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

HA bemutatóra előkészítés

Browse Source
This commit is contained in:
ivanszabo
2018-04-22 22:20:16 +02:00
parent 5b333614ae
commit 714241c3a0
30 changed files with 418 additions and 1013 deletions
Download Patch File Download Diff File Expand all files Collapse all files
Nuvolar.Module/BusinessObjects/Business/BusinessTransactions/Orders/OrdersIn/OrderInVC.vb
+12 -9
View File
@@ -1928,7 +1928,7 @@ CheckError:
#End Region
#Region "Transactions"
'// Invoice customization
Private Sub InvoiceCustomization(sender As Object, e As CustomizePopupWindowParamsEventArgs) _
Public Overridable Sub InvoiceCustomization(sender As Object, e As CustomizePopupWindowParamsEventArgs) _
Handles aORI_Create_DeliveryInvoice.CustomizePopupWindowParams,
aOrderInStorageOutDeliveryNoteOutInvoice.CustomizePopupWindowParams,
aORI_Create_Invoice.CustomizePopupWindowParams,
@@ -2370,7 +2370,7 @@ CheckError:
End Try
End Sub
Private Sub aOrderInStorageOutDeliveryNoteOutInvoice_Execute(sender As Object, e As PopupWindowShowActionExecuteEventArgs) Handles aOrderInStorageOutDeliveryNoteOutInvoice.Execute
Public Overridable Sub aOrderInStorageOutDeliveryNoteOutInvoice_Execute(sender As Object, e As PopupWindowShowActionExecuteEventArgs) Handles aOrderInStorageOutDeliveryNoteOutInvoice.Execute
'// Kitárolás + kiszállítás + számla egyben
Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
Dim _uow_lock As New UnitOfWork(_onew.Session.DataLayer)
@@ -2791,19 +2791,22 @@ CheckError:
_onew.CommitChanges()
_InvoiceHeader.RecalculateInvoice(_InvoiceHeader, _onew)
_onew.CommitChanges()
Frame.GetController(Of RefreshController).RefreshAction.DoExecute()
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
'--==Nyomtatványok==--
'____________________________________________________________________________________________________________________
Dim _XAFPrintHelper_D As New XAFPrintHelper(_onew, Frame, _DeliveryNoteOutHeader.DeliveryNoteOutType.ReportDataV2, CriteriaOperator.Parse("DeliveryNoteOutHeader.Oid = ?", _DeliveryNoteOutHeader.Oid))
_XAFPrintHelper_D.ShowPreviewV2()
Application.ShowViewStrategy.ShowMessage("Sikeres tranzakció !", InformationType.Success, 3000, InformationPosition.Bottom)
Dim _XAFPrintHelper_I As New XAFPrintHelper(_onew, Frame, _InvoiceHeader.InvoiceType.ReportDataV2, CriteriaOperator.Parse("InvoiceHeader.Oid = ?", _InvoiceHeader.Oid))
_XAFPrintHelper_I.ShowPreviewV2()
Frame.GetController(Of RefreshController).RefreshAction.DoExecute()
'--==Nyomtatványok==--
''____________________________________________________________________________________________________________________
'Dim _XAFPrintHelper_D As New XAFPrintHelper(_onew, Frame, _DeliveryNoteOutHeader.DeliveryNoteOutType.ReportDataV2, CriteriaOperator.Parse("DeliveryNoteOutHeader.Oid = ?", _DeliveryNoteOutHeader.Oid))
'_XAFPrintHelper_D.ShowPreviewV2()
'Dim _XAFPrintHelper_I As New XAFPrintHelper(_onew, Frame, _InvoiceHeader.InvoiceType.ReportDataV2, CriteriaOperator.Parse("InvoiceHeader.Oid = ?", _InvoiceHeader.Oid))
'_XAFPrintHelper_I.ShowPreviewV2()
End If