From 5f830a16b5b30ffefad498076b946aec2c98979f Mon Sep 17 00:00:00 2001 From: "ivan.szabo" Date: Tue, 25 Apr 2017 12:52:07 +0200 Subject: [PATCH] =?UTF-8?q?Sz=C3=A1ll=C3=ADt=C3=A1sb=C3=B3l=20->=20sz?= =?UTF-8?q?=C3=A1mla=20lehessen=20P=C3=A9nzt=C3=A1ri=20bizonylat=20is.?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- .../BusinessTransactions/Orders/OrdersIn/OrderInVC.vb | 6 ++++++ 1 file changed, 6 insertions(+) diff --git a/Nuvolar.Module/BusinessObjects/Business/BusinessTransactions/Orders/OrdersIn/OrderInVC.vb b/Nuvolar.Module/BusinessObjects/Business/BusinessTransactions/Orders/OrdersIn/OrderInVC.vb index 3387984..bda9f43 100644 --- a/Nuvolar.Module/BusinessObjects/Business/BusinessTransactions/Orders/OrdersIn/OrderInVC.vb +++ b/Nuvolar.Module/BusinessObjects/Business/BusinessTransactions/Orders/OrdersIn/OrderInVC.vb @@ -3820,6 +3820,12 @@ CheckError: _InvoiceHeader.RecalculateInvoice(_InvoiceHeader, _onew) _onew.CommitChanges() + 'Készpénz esetén pénztári bizonylat is !!! + If _ORI_Invoice_Popup.IsLiquidAssets AndAlso _ORI_Invoice_Popup.PaymentOption.PayMode = ePayMode.InCash And _ORI_Invoice_Popup.IsFinalInvoice Then + CreateGLCassa(_InvoiceHeader, _onew, _ORI_Invoice_Popup) + End If + + If _InvoiceHeader IsNot Nothing Then Dim _XAFPrintHelper_I As New XAFPrintHelper(_onew, Frame, _InvoiceHeader.InvoiceType.ReportDataV2, CriteriaOperator.Parse("InvoiceHeader.Oid = ?", _InvoiceHeader.Oid)) _XAFPrintHelper_I.ShowPreviewV2()