ivanszabo/Nuvolar
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

MNB Árfolyam 2006-tól

Browse Source 
Ügyfél ármátrix
Szállítói bizonylat árfolyam kitöltése
This commit is contained in:
ivanszabo
2017-06-29 20:27:02 +02:00
parent 94cb4bcc7b
commit 1a95ad3a1a
17 changed files with 864 additions and 120 deletions
Download Patch File Download Diff File Expand all files Collapse all files
Nuvolar.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Accounts/GLAccountsVC.Designer.vb
Generated
+39 -6
View File
@@ -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
'It can be modified using the Component Designer.
'Do not modify it using the code editor.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
'NOTE: The following procedure is required by the Component Designer
'It can be modified using the Component Designer.
'Do not modify it using the code editor.
<System.Diagnostics.DebuggerStepThrough()>
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Me.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
+22 -19
View File
@@ -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">
<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">
<metadata name="aFinalAndNew_GLAccounts.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
+113 -91
View File
@@ -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, _
_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, _
_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
@@ -261,11 +261,11 @@ Public Class GLAccountsVC
_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, _
_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()
@@ -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 _
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)}
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
@@ -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, _
_GLAccounts.Customers, _GLAccounts.PartnerType, _
ViewPDCI.ViewPDCIDetail(_onew, Application, e, _GLAccounts.CustomersFrom,
_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 _
_GLAccounts.PaymentOption.PayMode = ePayMode.InCash And _
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))
@@ -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, _
_GLAccounts.AmountDEVBrutto, _GLAccounts.AmountHUFBrutto, Nothing, _
_GLAccounts.Customers, _GLAccounts.DateExecution, Nothing, _
"", Nothing, Nothing, Nothing, Nothing, Nothing, _
_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()
@@ -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, _
_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, _
_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, _
_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
@@ -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, _
_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, _
_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, _
_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
@@ -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, _
_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, _
_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, _
_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
@@ -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, _
_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, _
_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, _
_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
@@ -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, _
_GLAccounts.Customers, _GLHeader.row_DateVAT, _VAT, _
_GLHeader.row_NoteRows, Nothing, _
Nothing, Nothing, Nothing, _
Nothing, _GLHeader.row_ConnectInfo, eGLRowsTypeVAT.eVATRow, _GUID, _
_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)()
@@ -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, _
_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, _
_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)()
@@ -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, _
_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, _
_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
@@ -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