MNB Árfolyam 2006-tól

Ügyfél ármátrix
Szállítói bizonylat árfolyam kitöltése

Nuvolar.Module.CSharp/BusinessObjects/PriceFixCustomers.cs

@@ -0,0 +1,26 @@
+using System;
+using DevExpress.Xpo;
+using DevExpress.Persistent.Base;
+namespace Nuvolar.Module.BusinessObjects
+{
+    [DefaultClassOptions]
+    [NavigationItem(false)]
+    [NonPersistent()]
+    public class PriceFixCustomers : XPBaseObject
+    {
+        public PriceFixCustomers(Session session) : base(session) { }
+
+
+        public Customers Customers { get; set; }
+        public Products Products { get; set; }
+        public double PriceNettoHUF { get; set; }
+        public double PriceNettoDEV { get; set; }
+        public double PriceAverageNettoHUF { get; set; }
+        public double PriceAverageNettoDEV { get; set; }
+        public double MarginPercent { get; set; }
+        public CurrencyName CurrencyName { get; set; }
+        public double CurrencyRateValue { get; set; }
+        public DateTime DateValid { get; set; }
+
+    }
+}

Nuvolar.Module.CSharp/BusinessObjects/PriceFixCustomers_VC.Designer.cs

@@ -0,0 +1,56 @@
+namespace Nuvolar.Module.BusinessObjects
+{
+    partial class PriceFixCustomers_VC
+    {
+        /// <summary>
+        /// Required designer variable.
+        /// </summary>
+        private System.ComponentModel.IContainer components = null;
+
+        /// <summary> 
+        /// Clean up any resources being used.
+        /// </summary>
+        /// <param name="disposing">true if managed resources should be disposed; otherwise, false.</param>
+        protected override void Dispose(bool disposing)
+        {
+            if (disposing && (components != null))
+            {
+                components.Dispose();
+            }
+            base.Dispose(disposing);
+        }
+
+        #region Component Designer generated code
+
+        /// <summary>
+        /// Required method for Designer support - do not modify
+        /// the contents of this method with the code editor.
+        /// </summary>
+        private void InitializeComponent()
+        {
+            this.components = new System.ComponentModel.Container();
+            this.aViewPriceFixCustomers = new DevExpress.ExpressApp.Actions.SimpleAction(this.components);
+            // 
+            // aViewPriceFixCustomers
+            // 
+            this.aViewPriceFixCustomers.Caption = "aView Price Fix Customers";
+            this.aViewPriceFixCustomers.ConfirmationMessage = null;
+            this.aViewPriceFixCustomers.Id = "aViewPriceFixCustomers";
+            this.aViewPriceFixCustomers.TargetObjectType = typeof(Nuvolar.Module.Customers);
+            this.aViewPriceFixCustomers.TargetViewNesting = DevExpress.ExpressApp.Nesting.Root;
+            this.aViewPriceFixCustomers.TargetViewType = DevExpress.ExpressApp.ViewType.ListView;
+            this.aViewPriceFixCustomers.ToolTip = null;
+            this.aViewPriceFixCustomers.TypeOfView = typeof(DevExpress.ExpressApp.ListView);
+            this.aViewPriceFixCustomers.Execute += new DevExpress.ExpressApp.Actions.SimpleActionExecuteEventHandler(this.aViewPriceFixCustomers_Execute);
+            // 
+            // PriceFixCustomers_VC
+            // 
+            this.Actions.Add(this.aViewPriceFixCustomers);
+
+        }
+
+        #endregion
+
+        private DevExpress.ExpressApp.Actions.SimpleAction aViewPriceFixCustomers;
+    }
+}

Nuvolar.Module.CSharp/BusinessObjects/PriceFixCustomers_VC.cs

@@ -0,0 +1,145 @@
+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 DevExpress.Xpo;
+using Nuvolar.Module.Win;
+
+namespace Nuvolar.Module.BusinessObjects
+{
+    // For more typical usage scenarios, be sure to check out https://documentation.devexpress.com/eXpressAppFramework/clsDevExpressExpressAppViewControllertopic.aspx.
+
+    public partial class PriceFixCustomers_VC : ViewController
+    {
+        private WaitFormClass _WaitFormClass;
+        public PriceFixCustomers_VC()
+        {
+            InitializeComponent();
+            // Target required Views (via the TargetXXX properties) and create their Actions.
+        }
+        protected override void OnActivated()
+        {
+            base.OnActivated();
+            if (View.Id == "PriceFixCustomers_ListView")
+            {
+                _WaitFormClass = new WaitFormClass();
+                Load_PriceFixCustomers_ListView();
+            }
+            // 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 aViewPriceFixCustomers_Execute(object sender, SimpleActionExecuteEventArgs e)
+        {
+            XPObjectSpace _onew = (XPObjectSpace)Application.CreateObjectSpace();
+            CollectionSource _CS = new CollectionSource(_onew, typeof(PriceFixCustomers));
+
+            e.ShowViewParameters.CreatedView = Application.CreateListView("PriceFixCustomers_ListView", _CS, false);
+            e.ShowViewParameters.NewWindowTarget = NewWindowTarget.MdiChild;
+            e.ShowViewParameters.TargetWindow = TargetWindow.NewWindow;
+        }
+        private void Load_PriceFixCustomers_ListView()
+        {
+            XPObjectSpace _ocur = View.ObjectSpace as XPObjectSpace;
+            ListView _ListView = View as ListView;
+
+            XPCollection<CurrencyRate> _CurrencyRate_Collection = new XPCollection<CurrencyRate>(_ocur.Session, CriteriaOperator.Parse("IsMNB=True And GetDate(DateValid)=?", DateTime.Now.Date));
+
+
+
+
+            XPCollection<Customers> _Customers_Collection = new XPCollection<Customers>(_ocur.Session, CriteriaOperator.Parse("IsNull(Pricing)=False"));
+
+
+            _WaitFormClass.Initwork(1, 1, _Customers_Collection.Count);
+            foreach (Customers _Customers in _Customers_Collection)
+            {
+                _WaitFormClass.DoWork();
+                foreach (PricingFix _PricingFix in _Customers.Pricing.PricingFix)
+                {
+                    PriceFixCustomers _PriceFixCustomers = new PriceFixCustomers(_ocur.Session);
+                    _PriceFixCustomers.Customers = _Customers;
+                    _PriceFixCustomers.CurrencyName = _PricingFix.CurrencyName;
+                    _PriceFixCustomers.Products = _PricingFix.Products;
+                    if (_PricingFix.CurrencyName.ShortName == "HUF")
+                    {
+                        _PriceFixCustomers.PriceNettoHUF = _PricingFix.PriceNetto;
+                        _PriceFixCustomers.PriceNettoDEV = 0;
+                    }
+                    else
+                    {
+                        foreach (CurrencyRate _CurrencyRate in _CurrencyRate_Collection)
+                        {
+                            if (_CurrencyRate.CurrencyName.ShortName == _PricingFix.CurrencyName.ShortName)
+                            {
+                                _PriceFixCustomers.PriceNettoHUF = _PricingFix.PriceNetto * _CurrencyRate.RateAverage;
+                                _PriceFixCustomers.CurrencyRateValue = _CurrencyRate.RateAverage;
+                            }
+                        }
+                        _PriceFixCustomers.PriceNettoDEV = _PricingFix.PriceNetto;
+                    }
+                    _PriceFixCustomers.CurrencyName = _PricingFix.CurrencyName;
+
+
+
+                    XPCollection<DeliveryNoteInRRFC> _DeliveryNoteInRRFC_Collection = new XPCollection<DeliveryNoteInRRFC>(_ocur.Session, CriteriaOperator.Parse("IsNull(RegistryRowsFinancialControlling)=False And DeliveryNoteInRows.DeliveryNoteInHeader.IsEditable=False And DeliveryNoteInRows.Products=?", _PricingFix.Products));
+
+                    _DeliveryNoteInRRFC_Collection.Sorting.Add(new SortProperty("RegistryRowsFinancialControlling.RegistryHeader.F_DateExecution", DevExpress.Xpo.DB.SortingDirection.Descending));
+
+                    if (_DeliveryNoteInRRFC_Collection.Count > 0)
+                    {
+                        _PriceFixCustomers.DateValid = _DeliveryNoteInRRFC_Collection[0].RegistryRowsFinancialControlling.RegistryHeader.F_DateExecution;
+                        if (_DeliveryNoteInRRFC_Collection[0].RegistryRowsFinancialControlling.RegistryHeader.F_CurrencyName.ShortName == "HUF")
+                        {
+                            _PriceFixCustomers.PriceAverageNettoDEV = 0;
+                            _PriceFixCustomers.PriceAverageNettoHUF = (_DeliveryNoteInRRFC_Collection[0].DeliveryNoteInRows.SumPriceHUF) / _DeliveryNoteInRRFC_Collection[0].DeliveryNoteInRows.QTT;
+                        }
+                        else
+                        {
+                            _PriceFixCustomers.PriceAverageNettoDEV = _DeliveryNoteInRRFC_Collection[0].DeliveryNoteInRows.SumPriceDEV / _DeliveryNoteInRRFC_Collection[0].DeliveryNoteInRows.QTT;
+                            _PriceFixCustomers.PriceAverageNettoHUF = (_DeliveryNoteInRRFC_Collection[0].DeliveryNoteInRows.SumPriceDEV * _DeliveryNoteInRRFC_Collection[0].RegistryRowsFinancialControlling.RegistryHeader.F_CurrencyRate) / _DeliveryNoteInRRFC_Collection[0].DeliveryNoteInRows.QTT;
+                        }
+                    }
+
+                    if (_PriceFixCustomers.PriceNettoHUF!=0)
+                    {
+                        if (_PriceFixCustomers.CurrencyName.ShortName == "HUF")
+                        {
+                            _PriceFixCustomers.MarginPercent = (_PriceFixCustomers.PriceNettoHUF - _PriceFixCustomers.PriceAverageNettoHUF) / _PriceFixCustomers.PriceNettoHUF * 100;
+                        }
+                        else {
+                            _PriceFixCustomers.MarginPercent = (_PriceFixCustomers.PriceNettoDEV - _PriceFixCustomers.PriceAverageNettoDEV) / _PriceFixCustomers.PriceNettoDEV * 100;
+                        }
+                    }
+                    
+
+                    _ListView.CollectionSource.Add(_PriceFixCustomers);
+                }
+
+            }
+            _WaitFormClass.FinalWork();
+
+        }
+    }
+}

Nuvolar.Module.CSharp/BusinessObjects/PriceFixCustomers_VC.resx

@@ -0,0 +1,126 @@
+<?xml version="1.0" encoding="utf-8"?>
+<root>
+  <!-- 
+    Microsoft ResX Schema 
+    
+    Version 2.0
+    
+    The primary goals of this format is to allow a simple XML format 
+    that is mostly human readable. The generation and parsing of the 
+    various data types are done through the TypeConverter classes 
+    associated with the data types.
+    
+    Example:
+    
+    ... ado.net/XML headers & schema ...
+    <resheader name="resmimetype">text/microsoft-resx</resheader>
+    <resheader name="version">2.0</resheader>
+    <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
+    <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
+    <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
+    <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
+    <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
+        <value>[base64 mime encoded serialized .NET Framework object]</value>
+    </data>
+    <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+        <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
+        <comment>This is a comment</comment>
+    </data>
+                
+    There are any number of "resheader" rows that contain simple 
+    name/value pairs.
+    
+    Each data row contains a name, and value. The row also contains a 
+    type or mimetype. Type corresponds to a .NET class that support 
+    text/value conversion through the TypeConverter architecture. 
+    Classes that don't support this are serialized and stored with the 
+    mimetype set.
+    
+    The mimetype is used for serialized objects, and tells the 
+    ResXResourceReader how to depersist the object. This is currently not 
+    extensible. For a given mimetype the value must be set accordingly:
+    
+    Note - application/x-microsoft.net.object.binary.base64 is the format 
+    that the ResXResourceWriter will generate, however the reader can 
+    read any of the formats listed below.
+    
+    mimetype: application/x-microsoft.net.object.binary.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
+            : and then encoded with base64 encoding.
+    
+    mimetype: application/x-microsoft.net.object.soap.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
+            : and then encoded with base64 encoding.
+
+    mimetype: application/x-microsoft.net.object.bytearray.base64
+    value   : The object must be serialized into a byte array 
+            : using a System.ComponentModel.TypeConverter
+            : and then encoded with base64 encoding.
+    -->
+  <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+    <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
+    <xsd:element name="root" msdata:IsDataSet="true">
+      <xsd:complexType>
+        <xsd:choice maxOccurs="unbounded">
+          <xsd:element name="metadata">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" />
+              </xsd:sequence>
+              <xsd:attribute name="name" use="required" type="xsd:string" />
+              <xsd:attribute name="type" type="xsd:string" />
+              <xsd:attribute name="mimetype" type="xsd:string" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="assembly">
+            <xsd:complexType>
+              <xsd:attribute name="alias" type="xsd:string" />
+              <xsd:attribute name="name" type="xsd:string" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="data">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+                <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
+              <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+              <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="resheader">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" />
+            </xsd:complexType>
+          </xsd:element>
+        </xsd:choice>
+      </xsd:complexType>
+    </xsd:element>
+  </xsd:schema>
+  <resheader name="resmimetype">
+    <value>text/microsoft-resx</value>
+  </resheader>
+  <resheader name="version">
+    <value>2.0</value>
+  </resheader>
+  <resheader name="reader">
+    <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <resheader name="writer">
+    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <metadata name="aViewPriceFixCustomers.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 17</value>
+  </metadata>
+  <metadata name="$this.TrayLargeIcon" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+    <value>False</value>
+  </metadata>
+</root>

Nuvolar.Module.CSharp/Controllers/StorageOut_VC.Designer.cs

@@ -0,0 +1,57 @@
+namespace Nuvolar.Module.Controllers
+{
+    partial class StorageOut_VC
+    {
+        /// <summary>
+        /// Required designer variable.
+        /// </summary>
+        private System.ComponentModel.IContainer components = null;
+
+        /// <summary> 
+        /// Clean up any resources being used.
+        /// </summary>
+        /// <param name="disposing">true if managed resources should be disposed; otherwise, false.</param>
+        protected override void Dispose(bool disposing)
+        {
+            if (disposing && (components != null))
+            {
+                components.Dispose();
+            }
+            base.Dispose(disposing);
+        }
+
+        #region Component Designer generated code
+
+        /// <summary>
+        /// Required method for Designer support - do not modify
+        /// the contents of this method with the code editor.
+        /// </summary>
+        private void InitializeComponent()
+        {
+            this.components = new System.ComponentModel.Container();
+            this.aCreateDeliveryNoteOutfromStorageOut = new DevExpress.ExpressApp.Actions.PopupWindowShowAction(this.components);
+            // 
+            // aCreateDeliveryNoteOutfromStorageOut
+            // 
+            this.aCreateDeliveryNoteOutfromStorageOut.AcceptButtonCaption = null;
+            this.aCreateDeliveryNoteOutfromStorageOut.CancelButtonCaption = null;
+            this.aCreateDeliveryNoteOutfromStorageOut.Caption = "aCreate Delivery Note Outfrom Storage Out";
+            this.aCreateDeliveryNoteOutfromStorageOut.ConfirmationMessage = null;
+            this.aCreateDeliveryNoteOutfromStorageOut.Id = "aCreateDeliveryNoteOutfromStorageOut";
+            this.aCreateDeliveryNoteOutfromStorageOut.TargetObjectType = typeof(Nuvolar.Module.StorageOutHeader);
+            this.aCreateDeliveryNoteOutfromStorageOut.TargetViewNesting = DevExpress.ExpressApp.Nesting.Root;
+            this.aCreateDeliveryNoteOutfromStorageOut.TargetViewType = DevExpress.ExpressApp.ViewType.ListView;
+            this.aCreateDeliveryNoteOutfromStorageOut.ToolTip = null;
+            this.aCreateDeliveryNoteOutfromStorageOut.TypeOfView = typeof(DevExpress.ExpressApp.ListView);
+            // 
+            // StorageOut_VC
+            // 
+            this.Actions.Add(this.aCreateDeliveryNoteOutfromStorageOut);
+
+        }
+
+        #endregion
+
+        private DevExpress.ExpressApp.Actions.PopupWindowShowAction aCreateDeliveryNoteOutfromStorageOut;
+    }
+}

Nuvolar.Module.CSharp/Controllers/StorageOut_VC.cs

@@ -0,0 +1,43 @@
+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;
+
+namespace Nuvolar.Module.Controllers
+{
+    // For more typical usage scenarios, be sure to check out https://documentation.devexpress.com/eXpressAppFramework/clsDevExpressExpressAppViewControllertopic.aspx.
+    public partial class StorageOut_VC : ViewController
+    {
+        public StorageOut_VC()
+        {
+            InitializeComponent();
+            // 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();
+        }
+    }
+}

Nuvolar.Module.CSharp/Controllers/StorageOut_VC.resx

@@ -0,0 +1,126 @@
+<?xml version="1.0" encoding="utf-8"?>
+<root>
+  <!-- 
+    Microsoft ResX Schema 
+    
+    Version 2.0
+    
+    The primary goals of this format is to allow a simple XML format 
+    that is mostly human readable. The generation and parsing of the 
+    various data types are done through the TypeConverter classes 
+    associated with the data types.
+    
+    Example:
+    
+    ... ado.net/XML headers & schema ...
+    <resheader name="resmimetype">text/microsoft-resx</resheader>
+    <resheader name="version">2.0</resheader>
+    <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
+    <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
+    <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
+    <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
+    <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
+        <value>[base64 mime encoded serialized .NET Framework object]</value>
+    </data>
+    <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+        <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
+        <comment>This is a comment</comment>
+    </data>
+                
+    There are any number of "resheader" rows that contain simple 
+    name/value pairs.
+    
+    Each data row contains a name, and value. The row also contains a 
+    type or mimetype. Type corresponds to a .NET class that support 
+    text/value conversion through the TypeConverter architecture. 
+    Classes that don't support this are serialized and stored with the 
+    mimetype set.
+    
+    The mimetype is used for serialized objects, and tells the 
+    ResXResourceReader how to depersist the object. This is currently not 
+    extensible. For a given mimetype the value must be set accordingly:
+    
+    Note - application/x-microsoft.net.object.binary.base64 is the format 
+    that the ResXResourceWriter will generate, however the reader can 
+    read any of the formats listed below.
+    
+    mimetype: application/x-microsoft.net.object.binary.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
+            : and then encoded with base64 encoding.
+    
+    mimetype: application/x-microsoft.net.object.soap.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
+            : and then encoded with base64 encoding.
+
+    mimetype: application/x-microsoft.net.object.bytearray.base64
+    value   : The object must be serialized into a byte array 
+            : using a System.ComponentModel.TypeConverter
+            : and then encoded with base64 encoding.
+    -->
+  <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+    <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
+    <xsd:element name="root" msdata:IsDataSet="true">
+      <xsd:complexType>
+        <xsd:choice maxOccurs="unbounded">
+          <xsd:element name="metadata">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" />
+              </xsd:sequence>
+              <xsd:attribute name="name" use="required" type="xsd:string" />
+              <xsd:attribute name="type" type="xsd:string" />
+              <xsd:attribute name="mimetype" type="xsd:string" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="assembly">
+            <xsd:complexType>
+              <xsd:attribute name="alias" type="xsd:string" />
+              <xsd:attribute name="name" type="xsd:string" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="data">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+                <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
+              <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+              <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="resheader">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" />
+            </xsd:complexType>
+          </xsd:element>
+        </xsd:choice>
+      </xsd:complexType>
+    </xsd:element>
+  </xsd:schema>
+  <resheader name="resmimetype">
+    <value>text/microsoft-resx</value>
+  </resheader>
+  <resheader name="version">
+    <value>2.0</value>
+  </resheader>
+  <resheader name="reader">
+    <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <resheader name="writer">
+    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <metadata name="aCreateDeliveryNoteOutfromStorageOut.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 17</value>
+  </metadata>
+  <metadata name="$this.TrayLargeIcon" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+    <value>False</value>
+  </metadata>
+</root>

Nuvolar.Module.CSharp/Helpers/BusinessDocumentHelper.cs

@@ -0,0 +1,36 @@
+using DevExpress.ExpressApp.Xpo;
+using System;
+using System.Collections.Generic;
+using System.Linq;
+using System.Text;
+
+namespace Nuvolar.Module.Helpers
+{
+    public static class BusinessDocumentHelper
+    {
+
+        #region DeliveryNoteOut
+        /// <summary>
+        /// Új kimenő szállítólevél fejlécet készít
+        /// </summary>
+        public static DeliveryNoteOutHeader CreateNewDeliveryNoteOutHeader(XPObjectSpace _ObjectSpace)
+        {
+            DeliveryNoteOutHeader _DeliveryNoteOutHeader = _ObjectSpace.CreateObject<DeliveryNoteOutHeader>();
+
+            return _DeliveryNoteOutHeader;
+        }
+
+        public static bool AddNewDeliveryNoteOutRows(XPObjectSpace _ObjectSpace, DeliveryNoteOutHeader _DeliveryNoteOutHeader)
+        {
+            return true;
+        }
+        public static bool FinalizeDeliveryNoteOutHeader(XPObjectSpace _ObjectSpace, DeliveryNoteOutHeader _DeliveryNoteOutHeader)
+        {
+            return true;
+        }
+        #endregion
+        #region Invoice
+
+        #endregion
+    }
+}

Nuvolar.Module.CSharp/Model.DesignedDiffs.Localization.hu.xafml

@@ -28,6 +28,20 @@
         <Member Name="StorageOutRowsInRows" Caption="Kitárolási sorok" />
       </OwnMembers>
     </Class>
+    <Class Name="Nuvolar.Module.BusinessObjects.PriceFixCustomers" Caption="Ármátrix">
+      <OwnMembers>
+        <Member Name="CurrencyName" Caption="Deviza" />
+        <Member Name="CurrencyRateValue" Caption="Mai napi árfolyam" />
+        <Member Name="Customers" Caption="Vevő" />
+        <Member Name="DateValid" Caption="Érvényes" />
+        <Member Name="MarginPercent" Caption="Árrés %" DisplayFormat="{0:#,##0.0}" />
+        <Member Name="PriceAverageNettoDEV" Caption="Besz. ár (DEV)" DisplayFormat="{0:#,##0.00}" />
+        <Member Name="PriceAverageNettoHUF" Caption="Besz. ár (HUF)" DisplayFormat="{0:#,##0}" />
+        <Member Name="PriceNettoDEV" Caption="El. ár (DEV)" DisplayFormat="{0:#,##0.00}" />
+        <Member Name="PriceNettoHUF" Caption="El. ár (HUF)" DisplayFormat="{0:#,##0}" />
+        <Member Name="Products" Caption="Termék" />
+      </OwnMembers>
+    </Class>
     <Class Name="Nuvolar.Module.NAVInvoiceReport" Caption="Adóhatósági ellenőrzési adatszolgáltatás">
       <OwnMembers>
         <Member Name="DocumentNumberBegin" Caption="Számlatömb előtag" />

Nuvolar.Module.CSharp/Model.DesignedDiffs.xafml

@@ -2,12 +2,14 @@
 <Application>
   <ActionDesign>
     <Actions>
+      <Action Id="aCreateDeliveryNoteOutfromStorageOut" ImageName="document_lock" Caption="Szállítólevél készítése" TargetObjectsCriteria="[StorageMoveType.MoveDirection] = ##Enum#Nuvolar.Module.eMoveDirection,eOutput# And [StorageMoveType.MoveType] = ##Enum#Nuvolar.Module.eMoveType,InventoryTransfer#" />
       <Action Id="aCreateNAVInvoiceReportXML" ImageName="Action_Export_ToXML" />
       <Action Id="aDeliveryNoteOutPrint_Divided" ImageName="MenuBar_Print" TargetObjectsCriteria="[DividedOriginal] In (2L, 1L)" />
       <Action Id="aMoveOrderIn" ImageName="replace2" />
       <Action Id="aMoveOrderInBack" ImageName="selection_replace" TargetObjectsCriteria="[OrderInHeader.IsEditable] = True And [QTT_Invoiced] = 0.0 And [QTT_DeliveryNoted] &gt; 0.0 And [QTT_DeliveryNoted] = [QTT_Storaged] And [DividedOriginal] = 1L" />
       <Action Id="aOpenWindowsExplorer" ImageName="console" />
       <Action Id="aOrderInStorageOut" ImageName="document_out" />
+      <Action Id="aViewPriceFixCustomers" Caption="Ármátrix áttekintése" ImageName="money2" />
     </Actions>
     <ActionToContainerMapping>
       <ActionContainer Id="@NAVReport" IsNewNode="True">
@@ -30,6 +32,18 @@
     <Class Name="Nuvolar.Module.BusinessObjects.NewCustomersFrom" ImageName="BO_User" />
     <Class Name="Nuvolar.Module.BusinessObjects.PCIGroupAdvance" ImageName="link" />
     <Class Name="Nuvolar.Module.BusinessObjects.Popup.OrderInMovePopup" ImageName="selection_replace" />
+    <Class Name="Nuvolar.Module.BusinessObjects.PriceFixCustomers">
+      <AppearanceRules>
+        <AppearanceRule Id="AR Invalid Margin" BackColor="Red" FontColor="Yellow" TargetItems="MarginPercent" Criteria="[MarginPercent] &gt;= 80.0 Or [MarginPercent] &lt; 1.0" IsNewNode="True" />
+        <AppearanceRule Id="AR Warning Margin" BackColor="Transparent" FontColor="Goldenrod" TargetItems="MarginPercent" Criteria="[MarginPercent] &lt;= 10.0" IsNewNode="True" />
+      </AppearanceRules>
+      <OwnMembers>
+        <Member Name="PriceAverageNettoDEV" HideValueIfZero="True" />
+        <Member Name="PriceAverageNettoHUF" HideValueIfZero="True" />
+        <Member Name="PriceNettoDEV" HideValueIfZero="True" />
+        <Member Name="PriceNettoHUF" HideValueIfZero="True" />
+      </OwnMembers>
+    </Class>
     <Class Name="Nuvolar.Module.CustomersOrder">
       <OwnMembers>
         <Member Name="DocumentPath" PropertyEditorType="MM.Module.Win.Editors.FolderBrowseEditor" />
@@ -63,10 +77,10 @@
   </NavigationItems>
   <Options EnableHtmlFormatting="True" />
   <SchemaModules>
-    <SchemaModule Name="CloneObjectModule" Version="15.2.5.0" IsNewNode="True" />
+    <SchemaModule Name="CloneObjectModule" Version="16.2.3.0" IsNewNode="True" />
     <SchemaModule Name="SchedulerModuleBase" Version="15.2.5.0" IsNewNode="True" />
     <SchemaModule Name="SchedulerWindowsFormsModule" Version="15.2.5.0" IsNewNode="True" />
-    <SchemaModule Name="SystemModule" Version="15.2.5.0" IsNewNode="True" />
+    <SchemaModule Name="SystemModule" Version="16.2.3.0" IsNewNode="True" />
     <SchemaModule Name="SystemWindowsFormsModule" Version="15.2.5.0" IsNewNode="True" />
   </SchemaModules>
   <Views>
@@ -565,6 +579,23 @@
         <Filter Id="@Closed" Criteria="[AmountHUF] = 0.0" Index="1" ImageName="bullet_ball_green" IsNewNode="True" />
       </Filters>
     </ListView>
+    <ListView Id="PriceFixCustomers_ListView" AllowDelete="False" AllowLink="False" AllowNew="False" AutoExpandAllGroups="True" DataAccessMode="Client" IsListViewProcess="False" IsGroupPanelVisible="True">
+      <Columns>
+        <ColumnInfo Id="Products" Width="55" Index="-1" />
+        <ColumnInfo Id="CurrencyName" SortIndex="-1" GroupIndex="0" Width="63" />
+        <ColumnInfo Id="Customers" Width="44" SortOrder="Ascending" GroupIndex="1" />
+        <ColumnInfo Id="Products.ProductGroups.ShortName" PropertyName="Products.ProductGroups.ShortName" Index="2" IsNewNode="True" />
+        <ColumnInfo Id="Products.ProductNumber" PropertyName="Products.ProductNumber" Index="3" IsNewNode="True" />
+        <ColumnInfo Id="Products.ShortName" PropertyName="Products.ShortName" Index="4" IsNewNode="True" />
+        <ColumnInfo Id="PriceNettoHUF" Width="76" Index="5" />
+        <ColumnInfo Id="PriceNettoDEV" Width="0" Index="6" />
+        <ColumnInfo Id="PriceAverageNettoHUF" Width="90" Index="7" />
+        <ColumnInfo Id="PriceAverageNettoDEV" Width="89" Index="8" />
+        <ColumnInfo Id="MarginPercent" Width="60" Index="9" />
+        <ColumnInfo Id="CurrencyRateValue" Width="104" Index="10" />
+        <ColumnInfo Id="DateValid" Width="73" Index="11" />
+      </Columns>
+    </ListView>
     <ListView Id="Products_Products_BusinessDirectory_ListView">
       <Columns>
         <ColumnInfo Id="BusinessDirectory_Parent" Index="-1" />

Nuvolar.Module.CSharp/Nuvolar.Module.CSharp.csproj

@@ -220,9 +220,16 @@
     <Compile Include="BusinessObjects\NAVInvoiceReport.cs" />
     <Compile Include="BusinessObjects\NewCustomersFrom.cs" />
     <Compile Include="BusinessObjects\nopCommerce\nopCParameters.cs" />
+    <Compile Include="BusinessObjects\PriceFixCustomers.cs" />
     <Compile Include="BusinessObjects\PCIGroupAdvance.cs" />
     <Compile Include="BusinessObjects\Popup\OrderInMovePopup.cs" />
     <Compile Include="BusinessObjects\Popup\StorageSelectPopup.cs" />
+    <Compile Include="BusinessObjects\PriceFixCustomers_VC.cs">
+      <SubType>Component</SubType>
+    </Compile>
+    <Compile Include="BusinessObjects\PriceFixCustomers_VC.Designer.cs">
+      <DependentUpon>PriceFixCustomers_VC.cs</DependentUpon>
+    </Compile>
     <Compile Include="BusinessObjects\StoragePDACollectionRowsH.cs" />
     <Compile Include="Controllers\AuditTrailVCC.cs">
       <SubType>Component</SubType>
@@ -278,6 +285,12 @@
     <Compile Include="Controllers\ReportV2_VC.Designer.cs">
       <DependentUpon>ReportV2_VC.cs</DependentUpon>
     </Compile>
+    <Compile Include="Controllers\StorageOut_VC.cs">
+      <SubType>Component</SubType>
+    </Compile>
+    <Compile Include="Controllers\StorageOut_VC.Designer.cs">
+      <DependentUpon>StorageOut_VC.cs</DependentUpon>
+    </Compile>
     <Compile Include="Controllers\StoragePDACollectionHeader_VC.cs">
       <SubType>Component</SubType>
     </Compile>
@@ -286,6 +299,7 @@
     </Compile>
     <Compile Include="Controllers\WorkEventArgs.cs" />
     <Compile Include="Editors\FolderBrowseEditor.cs" />
+    <Compile Include="Helpers\BusinessDocumentHelper.cs" />
     <Compile Include="Module.cs">
       <SubType>Component</SubType>
     </Compile>
@@ -302,6 +316,9 @@
     </Compile>
   </ItemGroup>
   <ItemGroup>
+    <EmbeddedResource Include="BusinessObjects\PriceFixCustomers_VC.resx">
+      <DependentUpon>PriceFixCustomers_VC.cs</DependentUpon>
+    </EmbeddedResource>
     <EmbeddedResource Include="Controllers\AuditTrailVCC.resx">
       <DependentUpon>AuditTrailVCC.cs</DependentUpon>
     </EmbeddedResource>
@@ -329,6 +346,9 @@
     <EmbeddedResource Include="Controllers\ReportV2_VC.resx">
       <DependentUpon>ReportV2_VC.cs</DependentUpon>
     </EmbeddedResource>
+    <EmbeddedResource Include="Controllers\StorageOut_VC.resx">
+      <DependentUpon>StorageOut_VC.cs</DependentUpon>
+    </EmbeddedResource>
     <EmbeddedResource Include="Controllers\StoragePDACollectionHeader_VC.resx">
       <DependentUpon>StoragePDACollectionHeader_VC.cs</DependentUpon>
     </EmbeddedResource>
@@ -409,6 +429,10 @@
     </BootstrapperPackage>
   </ItemGroup>
   <ItemGroup>
+    <ProjectReference Include="..\Nuvolar.Module.Win\Nuvolar.Module.Win.vbproj">
+      <Project>{98539DCF-BF11-4158-AEC0-4B008A404A0E}</Project>
+      <Name>Nuvolar.Module.Win</Name>
+    </ProjectReference>
     <ProjectReference Include="..\Nuvolar.Module\Nuvolar.Module.vbproj">
       <Project>{60bf693f-7dea-4cf6-85bd-ea96829d79dd}</Project>
       <Name>Nuvolar.Module</Name>

Nuvolar.Module.CSharp/Properties/licenses.licx

@@ -1 +1,3 @@
 DevExpress.ExpressApp.ViewController, DevExpress.ExpressApp.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
+
+DevExpress.ExpressApp.SystemModule.SystemModule, DevExpress.ExpressApp.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a

Nuvolar.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Accounts/GLAccountsVC.Designer.vb

@@ -21,11 +21,11 @@
 	'Required by the Component Designer
 	Private components As System.ComponentModel.IContainer
 
-	'NOTE: The following procedure is required by the Component Designer
+    'NOTE: The following procedure is required by the Component Designer
-	'It can be modified using the Component Designer.
+    'It can be modified using the Component Designer.
-	'Do not modify it using the code editor.
+    'Do not modify it using the code editor.
-	<System.Diagnostics.DebuggerStepThrough()> _
+    <System.Diagnostics.DebuggerStepThrough()>
-	Private Sub InitializeComponent()
+    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)
@@ -44,6 +44,7 @@
         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)
+        Me.aGetCurrencyRateGLAccounts = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
         '
         'aBackToRowEdit_GLAccounts
         '
@@ -227,6 +228,38 @@
         Me.aRestoreDeletedRecord_GLAccounts.TargetObjectType = GetType(Nuvolar.[Module].GLAccounts)
         Me.aRestoreDeletedRecord_GLAccounts.TargetViewId = "GLAccounts_ListView_Deleted"
         Me.aRestoreDeletedRecord_GLAccounts.ToolTip = Nothing
+        '
+        'aGetCurrencyRateGLAccounts
+        '
+        Me.aGetCurrencyRateGLAccounts.Caption = "aGet Currency Rate GLAccounts"
+        Me.aGetCurrencyRateGLAccounts.Category = "aGetCurrencyRateGLAccounts"
+        Me.aGetCurrencyRateGLAccounts.ConfirmationMessage = Nothing
+        Me.aGetCurrencyRateGLAccounts.Id = "aGetCurrencyRateGLAccounts"
+        Me.aGetCurrencyRateGLAccounts.TargetObjectType = GetType(Nuvolar.[Module].GLAccounts)
+        Me.aGetCurrencyRateGLAccounts.TargetViewType = DevExpress.ExpressApp.ViewType.DetailView
+        Me.aGetCurrencyRateGLAccounts.ToolTip = Nothing
+        Me.aGetCurrencyRateGLAccounts.TypeOfView = GetType(DevExpress.ExpressApp.DetailView)
+        '
+        'GLAccountsVC
+        '
+        Me.Actions.Add(Me.aBackToRowEdit_GLAccounts)
+        Me.Actions.Add(Me.aImportReceivables)
+        Me.Actions.Add(Me.aGetRegistryNumber_GLAccounts)
+        Me.Actions.Add(Me.aCloneGLAccounts)
+        Me.Actions.Add(Me.aToTable_GLAccounts)
+        Me.Actions.Add(Me.aMakeEditable_GLAccounts)
+        Me.Actions.Add(Me.aFinal_GLAccounts)
+        Me.Actions.Add(Me.aFinalAndNew_GLAccounts)
+        Me.Actions.Add(Me.aToTableD_GLAccounts)
+        Me.Actions.Add(Me.aViewPCIDW_GLAccounts)
+        Me.Actions.Add(Me.aOpenAccountsPdf)
+        Me.Actions.Add(Me.aPCICheckGLAccounts)
+        Me.Actions.Add(Me.aCreateMixedPCI_GLAccount)
+        Me.Actions.Add(Me.aToTable_GLAccounts_Telephone)
+        Me.Actions.Add(Me.aGenerateOpenClosePCIRecord)
+        Me.Actions.Add(Me.aGenerateOpenClosePCIRecord_Storno)
+        Me.Actions.Add(Me.aRestoreDeletedRecord_GLAccounts)
+        Me.Actions.Add(Me.aGetCurrencyRateGLAccounts)
 
     End Sub
     Friend WithEvents aToTable_GLAccounts As DevExpress.ExpressApp.Actions.SimpleAction
@@ -246,5 +279,5 @@
     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
-
+    Friend WithEvents aGetCurrencyRateGLAccounts As DevExpress.ExpressApp.Actions.SimpleAction
 End Class

Nuvolar.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Accounts/GLAccountsVC.resx

@@ -118,55 +118,58 @@
     <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
   </resheader>
   <metadata name="aBackToRowEdit_GLAccounts.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>17, 173</value>
+    <value>17, 251</value>
   </metadata>
   <metadata name="aImportReceivables.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>17, 290</value>
+    <value>17, 680</value>
   </metadata>
   <metadata name="aGetRegistryNumber_GLAccounts.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
     <value>17, 641</value>
   </metadata>
   <metadata name="aCloneGLAccounts.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>17, 602</value>
+    <value>17, 329</value>
   </metadata>
   <metadata name="aToTable_GLAccounts.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>17, 329</value>
+    <value>17, 602</value>
   </metadata>
   <metadata name="aMakeEditable_GLAccounts.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
     <value>17, 563</value>
   </metadata>
   <metadata name="aFinal_GLAccounts.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>17, 485</value>
-  </metadata>
-  <metadata name="aFinalAndNew_GLAccounts.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
     <value>17, 524</value>
   </metadata>
-  <metadata name="aToTableD_GLAccounts.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+  <metadata name="aFinalAndNew_GLAccounts.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>17, 446</value>
-  </metadata>
-  <metadata name="aViewPCIDW_GLAccounts.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>17, 407</value>
-  </metadata>
-  <metadata name="aOpenAccountsPdf.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
     <value>17, 368</value>
   </metadata>
+  <metadata name="aToTableD_GLAccounts.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 485</value>
+  </metadata>
+  <metadata name="aViewPCIDW_GLAccounts.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 446</value>
+  </metadata>
+  <metadata name="aOpenAccountsPdf.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 407</value>
+  </metadata>
   <metadata name="aPCICheckGLAccounts.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>17, 56</value>
+    <value>17, 212</value>
   </metadata>
   <metadata name="aCreateMixedPCI_GLAccount.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>17, 251</value>
+    <value>17, 290</value>
   </metadata>
   <metadata name="aToTable_GLAccounts_Telephone.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>17, 134</value>
+    <value>17, 173</value>
   </metadata>
   <metadata name="aGenerateOpenClosePCIRecord.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
     <value>17, 95</value>
   </metadata>
   <metadata name="aGenerateOpenClosePCIRecord_Storno.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>17, 212</value>
+    <value>17, 134</value>
   </metadata>
   <metadata name="aRestoreDeletedRecord_GLAccounts.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>190, 56</value>
+    <value>17, 56</value>
+  </metadata>
+  <metadata name="aGetCurrencyRateGLAccounts.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>742, 134</value>
   </metadata>
   <metadata name="$this.TrayLargeIcon" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
     <value>False</value>

Nuvolar.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Accounts/GLAccountsVC.vb

@@ -25,7 +25,7 @@ Public Class GLAccountsVC
     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 Event FinalWork()
     Public Sub New()
         MyBase.New()
         selection = New ArrayList()
@@ -226,12 +226,12 @@ Public Class GLAccountsVC
                 _GLRows.CreditAmountHUF = _NettoHUF
                 _GLRows.CreditAmountDEV = _NettoDEV
             End If
-            _GLRows.AddGLRows(_GLHeader, _GLHeader.row_DebitChartOfAccounts, _GLHeader.row_CreditChartOfAccounts, _
+            _GLRows.AddGLRows(_GLHeader, _GLHeader.row_DebitChartOfAccounts, _GLHeader.row_CreditChartOfAccounts,
-                              _NettoDEV, _NettoHUF, _GLHeader.row_LiquidAssets, _
+                              _NettoDEV, _NettoHUF, _GLHeader.row_LiquidAssets,
-                              _GLAccounts.Customers, _GLHeader.row_DateVAT, _GLHeader.row_VAT, _
+                              _GLAccounts.Customers, _GLHeader.row_DateVAT, _GLHeader.row_VAT,
-                              _GLHeader.row_NoteRows, _GLHeader.row_UniqueObjects, _
+                              _GLHeader.row_NoteRows, _GLHeader.row_UniqueObjects,
-                              _GLHeader.row_Controlling, _GLHeader.row_JobNumberObjects, _GLHeader.row_CostPlace, _
+                              _GLHeader.row_Controlling, _GLHeader.row_JobNumberObjects, _GLHeader.row_CostPlace,
-                              _GLHeader.row_CostHolder, _GLHeader.row_ConnectInfo, eGLRowsTypeVAT.eNettoRow, _GUID, _
+                              _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
@@ -261,11 +261,11 @@ Public Class GLAccountsVC
                     _GLRows.CreditAmountDEV = _VATDEV
                 End If
 
-                _GLRows.AddGLRows(_GLHeader, _GLHeader.row_DebitChartOfAccounts, _GLHeader.row_CreditChartOfAccounts, _
+                _GLRows.AddGLRows(_GLHeader, _GLHeader.row_DebitChartOfAccounts, _GLHeader.row_CreditChartOfAccounts,
-                                  _VATDEV, _VATHUF, _GLHeader.row_LiquidAssets, _
+                                  _VATDEV, _VATHUF, _GLHeader.row_LiquidAssets,
-                                  _GLAccounts.Customers, _GLHeader.row_DateVAT, _GLHeader.row_VAT, _GLHeader.row_NoteRows, _
+                                  _GLAccounts.Customers, _GLHeader.row_DateVAT, _GLHeader.row_VAT, _GLHeader.row_NoteRows,
-                                  _GLHeader.row_UniqueObjects, _GLHeader.row_Controlling, _GLHeader.row_JobNumberObjects, _
+                                  _GLHeader.row_UniqueObjects, _GLHeader.row_Controlling, _GLHeader.row_JobNumberObjects,
-                                  _GLHeader.row_CostPlace, _GLHeader.row_CostHolder, _GLHeader.row_ConnectInfo, _
+                                  _GLHeader.row_CostPlace, _GLHeader.row_CostHolder, _GLHeader.row_ConnectInfo,
                                   eGLRowsTypeVAT.eVATRow, _GUID, eTransactionType.eNotSet, eCashType.ePartner, _GLAccounts.PartnerType)
             End If
             _ocur.CommitChanges()
@@ -481,7 +481,7 @@ Public Class GLAccountsVC
         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", _
+            _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)()
@@ -492,15 +492,15 @@ Public Class GLAccountsVC
 
                 '-- 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 _
+                Dim query = From invoice In invoices Where invoice.InvoiceHeader.Oid = _InvoiceHeader.Oid
-                    Group invoice By invoice.Controlling, invoice.CostHolder, invoice.UniqueObjects, _
+                            Group invoice By invoice.Controlling, invoice.CostHolder, invoice.UniqueObjects,
-                                     invoice.JobNumberObjects, invoice.Controlling.ChartOfAccounts Into g = Group _
+                                             invoice.JobNumberObjects, invoice.Controlling.ChartOfAccounts Into g = Group
-                    Select New With {Key .Controlling = Controlling,
+                            Select New With {Key .Controlling = Controlling,
-                                     Key .CostHolder = CostHolder,
+                                             Key .CostHolder = CostHolder,
-                                     Key .UniqueObjects = UniqueObjects,
+                                             Key .UniqueObjects = UniqueObjects,
-                                     Key .JobNumberObjects = JobNumberObjects,
+                                             Key .JobNumberObjects = JobNumberObjects,
-                                     Key .AmountNettoHUF = g.Sum(Function(inv) (inv.ListPriceHUF - inv.DiscountPriceHUF) * inv.QTT), _
+                                             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 .AmountNettoDEV = g.Sum(Function(inv) (inv.ListPriceDEV - inv.DiscountPriceDEV) * inv.QTT)}
                 For Each item In query
 
                 Next
@@ -560,8 +560,8 @@ Public Class GLAccountsVC
         Dim _GLAccounts As GLAccounts = TryCast(View.SelectedObjects(0), GLAccounts)
 
         If _GLAccounts IsNot Nothing Then
-            ViewPDCI.ViewPDCIDetail(_onew, Application, e, _GLAccounts.CustomersFrom, _
+            ViewPDCI.ViewPDCIDetail(_onew, Application, e, _GLAccounts.CustomersFrom,
-                              _GLAccounts.Customers, _GLAccounts.PartnerType, _
+                              _GLAccounts.Customers, _GLAccounts.PartnerType,
                               _GLAccounts.DocumentNumber)
         End If
     End Sub
@@ -636,7 +636,7 @@ Public Class GLAccountsVC
                 GLFunctions.ReconfigurePCI(_uow, _GLAccounts.CustomersFrom, _GLAccounts.Customers, _GLAccounts.PartnerType, _GLAccounts.ConnectInfo)
             End If
         Next
-        RaiseEvent FinalWork
+        RaiseEvent FinalWork()
 
         Frame.GetController(Of RefreshController).RefreshAction.DoExecute()
     End Sub
@@ -736,8 +736,8 @@ Public Class GLAccountsVC
         For Each _GLAccounts In View.SelectedObjects
             RaiseEvent DoWork()
             _GLAccounts = _onew.GetObjectByKey(Of GLAccounts)(_GLAccounts.Oid)
-            If _GLAccounts.PartnerType = ePartnerType.eReceivables And _
+            If _GLAccounts.PartnerType = ePartnerType.eReceivables And
-               _GLAccounts.PaymentOption.PayMode = ePayMode.InCash 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))
@@ -761,10 +761,10 @@ Public Class GLAccountsVC
                         _GLMixedRows.InAmountHUF = _GLAccounts.AmountHUFBrutto
                         _GLMixedRows.InAmountDEV = _GLAccounts.AmountDEVBrutto
                         _GUID = Guid.NewGuid
-                        _GLMixedRows.AddGLRows(_GLHeader, _onew.GetObject(_GLAccountMixedPCI.ChartOfAccounts), _GLRows.DebitChartOfAccounts, _
+                        _GLMixedRows.AddGLRows(_GLHeader, _onew.GetObject(_GLAccountMixedPCI.ChartOfAccounts), _GLRows.DebitChartOfAccounts,
-                                          _GLAccounts.AmountDEVBrutto, _GLAccounts.AmountHUFBrutto, Nothing, _
+                                          _GLAccounts.AmountDEVBrutto, _GLAccounts.AmountHUFBrutto, Nothing,
-                                          _GLAccounts.Customers, _GLAccounts.DateExecution, Nothing, _
+                                          _GLAccounts.Customers, _GLAccounts.DateExecution, Nothing,
-                                          "", Nothing, Nothing, Nothing, Nothing, Nothing, _
+                                          "", Nothing, Nothing, Nothing, Nothing, Nothing,
                                           _GLAccounts.ConnectInfo, eGLRowsTypeVAT.eNettoRow, _GUID, eTransactionType.ePartnerCredit, eCashType.eNormal, ePartnerType.eReceivables)
                         _onew.CommitChanges()
 
@@ -779,7 +779,7 @@ Public Class GLAccountsVC
             End If
         Next
         _onew.CommitChanges()
-        RaiseEvent FinalWork
+        RaiseEvent FinalWork()
     End Sub
 
     Private Sub aToTable_GLAccounts_Telephone_CustomizePopupWindowParams(sender As Object, e As CustomizePopupWindowParamsEventArgs) Handles aToTable_GLAccounts_Telephone.CustomizePopupWindowParams
@@ -845,7 +845,7 @@ Public Class GLAccountsVC
         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
@@ -861,20 +861,20 @@ Public Class GLAccountsVC
                     _Controlling = _ocur.GetObject(_RegistryTelephone.RegistryTelephoneParameters.Controlling_INTERNET)
                     _DebitChartOfAccounts = _Controlling.GetChartOfAccounts(_GLAccounts.DateExecution.Year, False)
                     '// Nettó sor
-                    _GLRows.AddGLRows(_GLHeader, _DebitChartOfAccounts, _CreditChartOfAccounts, 0, _NettoHUF, Nothing, _
+                    _GLRows.AddGLRows(_GLHeader, _DebitChartOfAccounts, _CreditChartOfAccounts, 0, _NettoHUF, Nothing,
-                              _GLAccounts.Customers, _GLHeader.row_DateVAT, _VAT, _
+                              _GLAccounts.Customers, _GLHeader.row_DateVAT, _VAT,
-                              _GLHeader.row_NoteRows, _UniqueObjects, _
+                              _GLHeader.row_NoteRows, _UniqueObjects,
-                              _Controlling, _GLHeader.row_JobNumberObjects, _GLHeader.row_CostPlace, _
+                              _Controlling, _GLHeader.row_JobNumberObjects, _GLHeader.row_CostPlace,
-                              _GLHeader.row_CostHolder, _GLHeader.row_ConnectInfo, eGLRowsTypeVAT.eNettoRow, _GUID, _
+                              _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, _
+                    _GLRows.AddGLRows(_GLHeader, _DebitChartOfAccounts, _CreditChartOfAccounts, 0, _VATHUF, Nothing,
-                              _GLAccounts.Customers, _GLHeader.row_DateVAT, _VAT, _
+                              _GLAccounts.Customers, _GLHeader.row_DateVAT, _VAT,
-                              _GLHeader.row_NoteRows, Nothing, _
+                              _GLHeader.row_NoteRows, Nothing,
-                              Nothing, Nothing, Nothing, _
+                              Nothing, Nothing, Nothing,
-                              Nothing, _GLHeader.row_ConnectInfo, eGLRowsTypeVAT.eVATRow, _GUID, _
+                              Nothing, _GLHeader.row_ConnectInfo, eGLRowsTypeVAT.eVATRow, _GUID,
                               eTransactionType.eNotSet, eCashType.ePartner, _GLAccounts.PartnerType)
                 End If
                 If _RegistryTelephone.Amount_Brutto_OTHER_DEFAULTVAT > 0 Then
@@ -890,20 +890,20 @@ Public Class GLAccountsVC
                     _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, _
+                    _GLRows.AddGLRows(_GLHeader, _DebitChartOfAccounts, _CreditChartOfAccounts, 0, _NettoHUF, Nothing,
-                              _GLAccounts.Customers, _GLHeader.row_DateVAT, _VAT, _
+                              _GLAccounts.Customers, _GLHeader.row_DateVAT, _VAT,
-                              _GLHeader.row_NoteRows, _UniqueObjects, _
+                              _GLHeader.row_NoteRows, _UniqueObjects,
-                              _Controlling, _GLHeader.row_JobNumberObjects, _GLHeader.row_CostPlace, _
+                              _Controlling, _GLHeader.row_JobNumberObjects, _GLHeader.row_CostPlace,
-                              _GLHeader.row_CostHolder, _GLHeader.row_ConnectInfo, eGLRowsTypeVAT.eNettoRow, _GUID, _
+                              _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, _
+                    _GLRows.AddGLRows(_GLHeader, _DebitChartOfAccounts, _CreditChartOfAccounts, 0, _VATHUF, Nothing,
-                              _GLAccounts.Customers, _GLHeader.row_DateVAT, _VAT, _
+                              _GLAccounts.Customers, _GLHeader.row_DateVAT, _VAT,
-                              _GLHeader.row_NoteRows, Nothing, _
+                              _GLHeader.row_NoteRows, Nothing,
-                              Nothing, Nothing, Nothing, _
+                              Nothing, Nothing, Nothing,
-                              Nothing, _GLHeader.row_ConnectInfo, eGLRowsTypeVAT.eVATRow, _GUID, _
+                              Nothing, _GLHeader.row_ConnectInfo, eGLRowsTypeVAT.eVATRow, _GUID,
                               eTransactionType.eNotSet, eCashType.ePartner, _GLAccounts.PartnerType)
                 End If
                 If _RegistryTelephone.Amount_Brutto_OTHER_NOVAT > 0 Then
@@ -919,20 +919,20 @@ Public Class GLAccountsVC
                     _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, _
+                    _GLRows.AddGLRows(_GLHeader, _DebitChartOfAccounts, _CreditChartOfAccounts, 0, _NettoHUF, Nothing,
-                              _GLAccounts.Customers, _GLHeader.row_DateVAT, _VAT, _
+                              _GLAccounts.Customers, _GLHeader.row_DateVAT, _VAT,
-                              _GLHeader.row_NoteRows, _UniqueObjects, _
+                              _GLHeader.row_NoteRows, _UniqueObjects,
-                              _Controlling, _GLHeader.row_JobNumberObjects, _GLHeader.row_CostPlace, _
+                              _Controlling, _GLHeader.row_JobNumberObjects, _GLHeader.row_CostPlace,
-                              _GLHeader.row_CostHolder, _GLHeader.row_ConnectInfo, eGLRowsTypeVAT.eNettoRow, _GUID, _
+                              _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, _
+                    _GLRows.AddGLRows(_GLHeader, _DebitChartOfAccounts, _CreditChartOfAccounts, 0, _VATHUF, Nothing,
-                              _GLAccounts.Customers, _GLHeader.row_DateVAT, _VAT, _
+                              _GLAccounts.Customers, _GLHeader.row_DateVAT, _VAT,
-                              _GLHeader.row_NoteRows, Nothing, _
+                              _GLHeader.row_NoteRows, Nothing,
-                              Nothing, Nothing, Nothing, _
+                              Nothing, Nothing, Nothing,
-                              Nothing, _GLHeader.row_ConnectInfo, eGLRowsTypeVAT.eVATRow, _GUID, _
+                              Nothing, _GLHeader.row_ConnectInfo, eGLRowsTypeVAT.eVATRow, _GUID,
                               eTransactionType.eNotSet, eCashType.ePartner, _GLAccounts.PartnerType)
                 End If
                 If _RegistryTelephone.Amount_Brutto_PARKING > 0 Then
@@ -948,20 +948,20 @@ Public Class GLAccountsVC
                     _Controlling = _ocur.GetObject(_RegistryTelephone.RegistryTelephoneParameters.Controlling_PARKING)
                     _DebitChartOfAccounts = _Controlling.GetChartOfAccounts(_GLAccounts.DateExecution.Year, False)
                     '// Nettó sor
-                    _GLRows.AddGLRows(_GLHeader, _DebitChartOfAccounts, _CreditChartOfAccounts, 0, _NettoHUF, Nothing, _
+                    _GLRows.AddGLRows(_GLHeader, _DebitChartOfAccounts, _CreditChartOfAccounts, 0, _NettoHUF, Nothing,
-                              _GLAccounts.Customers, _GLHeader.row_DateVAT, _VAT, _
+                              _GLAccounts.Customers, _GLHeader.row_DateVAT, _VAT,
-                              _GLHeader.row_NoteRows, _UniqueObjects, _
+                              _GLHeader.row_NoteRows, _UniqueObjects,
-                              _Controlling, _GLHeader.row_JobNumberObjects, _GLHeader.row_CostPlace, _
+                              _Controlling, _GLHeader.row_JobNumberObjects, _GLHeader.row_CostPlace,
-                              _GLHeader.row_CostHolder, _GLHeader.row_ConnectInfo, eGLRowsTypeVAT.eNettoRow, _GUID, _
+                              _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, _
+                    _GLRows.AddGLRows(_GLHeader, _DebitChartOfAccounts, _CreditChartOfAccounts, 0, _VATHUF, Nothing,
-                              _GLAccounts.Customers, _GLHeader.row_DateVAT, _VAT, _
+                              _GLAccounts.Customers, _GLHeader.row_DateVAT, _VAT,
-                              _GLHeader.row_NoteRows, Nothing, _
+                              _GLHeader.row_NoteRows, Nothing,
-                              Nothing, Nothing, Nothing, _
+                              Nothing, Nothing, Nothing,
-                              Nothing, _GLHeader.row_ConnectInfo, eGLRowsTypeVAT.eVATRow, _GUID, _
+                              Nothing, _GLHeader.row_ConnectInfo, eGLRowsTypeVAT.eVATRow, _GUID,
                               eTransactionType.eNotSet, eCashType.ePartner, _GLAccounts.PartnerType)
                 End If
                 If _RegistryTelephone.Amount_Brutto_TELEPHON > 0 Then
@@ -975,11 +975,11 @@ Public Class GLAccountsVC
 
                     _UniqueObjects = _ocur.GetObject(_RegistryTelephone.UniqueObjects)
                     _DebitChartOfAccounts = _VAT.GetChartOfAccounts(_GLAccounts.row_DateVAT.Year, eVATMode.eIn)
-                    _GLRows.AddGLRows(_GLHeader, _DebitChartOfAccounts, _CreditChartOfAccounts, 0, _VATHUF, Nothing, _
+                    _GLRows.AddGLRows(_GLHeader, _DebitChartOfAccounts, _CreditChartOfAccounts, 0, _VATHUF, Nothing,
-                              _GLAccounts.Customers, _GLHeader.row_DateVAT, _VAT, _
+                              _GLAccounts.Customers, _GLHeader.row_DateVAT, _VAT,
-                              _GLHeader.row_NoteRows, Nothing, _
+                              _GLHeader.row_NoteRows, Nothing,
-                              Nothing, Nothing, Nothing, _
+                              Nothing, Nothing, Nothing,
-                              Nothing, _GLHeader.row_ConnectInfo, eGLRowsTypeVAT.eVATRow, _GUID, _
+                              Nothing, _GLHeader.row_ConnectInfo, eGLRowsTypeVAT.eVATRow, _GUID,
                               eTransactionType.eNotSet, eCashType.ePartner, _GLAccounts.PartnerType)
 
                     _GLRows = _ocur.CreateObject(Of GLRows)()
@@ -990,11 +990,11 @@ Public Class GLAccountsVC
                     _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, _
+                    _GLRows.AddGLRows(_GLHeader, _DebitChartOfAccounts, _CreditChartOfAccounts, 0, _NettoHUF, Nothing,
-                              _GLAccounts.Customers, _GLHeader.row_DateVAT, _VAT, _
+                              _GLAccounts.Customers, _GLHeader.row_DateVAT, _VAT,
-                              _GLHeader.row_NoteRows, _UniqueObjects, _
+                              _GLHeader.row_NoteRows, _UniqueObjects,
-                              _Controlling, _GLHeader.row_JobNumberObjects, _GLHeader.row_CostPlace, _
+                              _Controlling, _GLHeader.row_JobNumberObjects, _GLHeader.row_CostPlace,
-                              _GLHeader.row_CostHolder, _GLHeader.row_ConnectInfo, eGLRowsTypeVAT.eNettoRow, _GUID, _
+                              _GLHeader.row_CostHolder, _GLHeader.row_ConnectInfo, eGLRowsTypeVAT.eNettoRow, _GUID,
                               eTransactionType.eNotSet, eCashType.ePartner, _GLAccounts.PartnerType)
 
                     _GLRows = _ocur.CreateObject(Of GLRows)()
@@ -1005,11 +1005,11 @@ Public Class GLAccountsVC
                     _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, _
+                    _GLRows.AddGLRows(_GLHeader, _DebitChartOfAccounts, _CreditChartOfAccounts, 0, _NettoHUF, Nothing,
-                              _GLAccounts.Customers, _GLHeader.row_DateVAT, _VAT, _
+                              _GLAccounts.Customers, _GLHeader.row_DateVAT, _VAT,
-                              _GLHeader.row_NoteRows, _UniqueObjects, _
+                              _GLHeader.row_NoteRows, _UniqueObjects,
-                              _Controlling, _GLHeader.row_JobNumberObjects, _GLHeader.row_CostPlace, _
+                              _Controlling, _GLHeader.row_JobNumberObjects, _GLHeader.row_CostPlace,
-                              _GLHeader.row_CostHolder, _GLHeader.row_ConnectInfo, eGLRowsTypeVAT.eNettoRow, _GUID, _
+                              _GLHeader.row_CostHolder, _GLHeader.row_ConnectInfo, eGLRowsTypeVAT.eNettoRow, _GUID,
                               eTransactionType.eNotSet, eCashType.ePartner, _GLAccounts.PartnerType)
                 End If
             Next
@@ -1040,7 +1040,7 @@ Public Class GLAccountsVC
             RaiseEvent DoWork()
             MakeOpenClosePCI(_uow, _GLAccounts.CustomersFrom, _GLAccounts.Customers, _GLAccounts.PartnerType, _GLAccounts.ConnectInfo, _GLAccountsOpenClosePCIPopup.YearClose, _GLAccountsOpenClosePCIPopup.GLRowsTypeSelect)
         Next
-        RaiseEvent FinalWork
+        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)
@@ -1249,7 +1249,7 @@ Public Class GLAccountsVC
             RaiseEvent DoWork()
             RemoveOpenClosePCI(_uow, _GLAccounts.CustomersFrom, _GLAccounts.Customers, _GLAccounts.PartnerType, _GLAccounts.ConnectInfo, _GLAccountsOpenClosePCIPopup.YearClose)
         Next
-        RaiseEvent FinalWork
+        RaiseEvent FinalWork()
     End Sub
 
     Private Sub aRestoreDeletedRecord_GLAccounts_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aRestoreDeletedRecord_GLAccounts.Execute
@@ -1263,6 +1263,28 @@ Public Class GLAccountsVC
             _GLAccounts.SetMemberValue("GCRecord", Nothing)
         Next
         _ocur.CommitChanges()
-        RaiseEvent FinalWork
+        RaiseEvent FinalWork()
+    End Sub
+
+    Private Sub aGetCurrencyRateGLAccounts_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aGetCurrencyRateGLAccounts.Execute
+        Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
+        Dim _GLAccounts As GLAccounts = TryCast(View.SelectedObjects(0), GLAccounts)
+        Dim _LiquidAssets As LiquidAssets = _ocur.CreateObject(Of LiquidAssets)
+
+        If _GLAccounts IsNot Nothing Then
+            Dim _CurrencyRate_MNB_Collection = New XPCollection(Of CurrencyRate)(_ocur.Session,
+                            CriteriaOperator.Parse("CurrencyName=? and IsMNB=True and GetDate(DateValid)<=?",
+                             _GLAccounts.CurrencyName, _GLAccounts.DateExecution))
+            _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 = _GLAccounts.DateExecution.Date Then
+                        _GLAccounts.CurrencyRate = _CurrencyRate_MNB.RateAverage
+                        Exit For
+                    End If
+                    Exit For
+                Next
+            End If
+        End If
     End Sub
 End Class

Nuvolar.Module/BusinessObjects/Financial/FinancialObjects/Stocks/CurrencyRateVC.vb

@@ -38,7 +38,7 @@ Public Class CurrencyRateVC
         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 _BeginDate As Date = "2006-01-01"
         Dim _StartDate As Date
         Dim _EndDate As Date = String.Format("{0}-{1}-{2}", Now.Year, Now.Month, Now.Day)
 

Nuvolar.Win.Lite/WinApplication_DB.vb

@@ -71,7 +71,7 @@ Partial Public Class NuvolarWindowsFormsApplication
                         _connectionString = DevExpress.Xpo.DB.MySqlConnectionProvider.GetConnectionString(_ChangeLogon.SQLServer, "bf614abf4c83ef", "edbc0ac0", "trevor")
                     Case "84.1.95.74"
                         _connectionString = DevExpress.Xpo.DB.MySqlConnectionProvider.GetConnectionString(_ChangeLogon.SQLServer, "root", "malomko10", _ChangeLogon.DBConnection)
-                    Case "192.168.100.182"
+                    Case "192.168.100.182", "localhost"
                         _connectionString = DevExpress.Xpo.DB.MySqlConnectionProvider.GetConnectionString(_ChangeLogon.SQLServer, "root", "M1cr0s0ft!12345", _ChangeLogon.DBConnection)
                     Case "81.183.209.96"
                         _connectionString = DevExpress.Xpo.DB.MySqlConnectionProvider.GetConnectionString(_ChangeLogon.SQLServer, "root", "M1cr0s0ft!", _ChangeLogon.DBConnection)