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

Hehehehe

Browse Source
This commit is contained in:
ivanszabo
2018-08-07 14:52:41 +02:00
parent 37c9ce7495
commit 788ea08e95
8 changed files with 149 additions and 208 deletions
Download Patch File Download Diff File Expand all files Collapse all files
Nuvolar.Module/BusinessObjects/Business/BusinessTransactions/Invoice/InvoiceVC.vb
+5 -10
View File
@@ -23,6 +23,7 @@ Public Class InvoiceVC
Public Event InitWork(ByVal _Minimum As Long, ByVal _Step As Long, ByVal _Maximum As Long)
Public Event DoWork()
Public Event FinalWork()
Public Event FireNAVmanageInvoiceFinalWork(ByVal _InvoiceHeader As InvoiceHeader)
Public Sub New()
MyBase.New()
@@ -740,16 +741,10 @@ Public Class InvoiceVC
_p_InvoiceHeader.RecalculateInvoice(_p_InvoiceHeader, _ocur)
_ocur.CommitChanges()
If _p_InvoiceHeader.TotalVATHUF >= 100000 And
_p_InvoiceHeader.DateCreated >= #2018-07-01# And
_p_InvoiceHeader.NAV_InvoiceStatus <> "DONE" And
_p_InvoiceHeader.IsEditable = False And
_p_InvoiceHeader.IsProforma = False And
String.IsNullOrEmpty(_p_InvoiceHeader.DocumentNumber) = False Then
'Számla NAV feladása
If _p_InvoiceHeader.DateCreated >= #2018-07-01# And _p_InvoiceHeader.IsEditable = False And String.IsNullOrEmpty(_p_InvoiceHeader.DocumentNumber) = False And _p_InvoiceHeader.IsProforma = False Then
If Math.Abs(_p_InvoiceHeader.TotalVATHUF) >= 100000 Then
RaiseEvent FireNAVmanageInvoiceFinalWork(_p_InvoiceHeader)
End If
End If