Termeltetési szerződés termék bevonás év forduló 9-ről 8 ra.
This commit is contained in:
@@ -1,4 +1,4 @@
|
||||
Imports System
|
||||
Imports System
|
||||
Imports System.ComponentModel
|
||||
Imports System.Collections.Generic
|
||||
Imports System.Diagnostics
|
||||
@@ -143,7 +143,7 @@ Public Class APCSheetVC
|
||||
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
|
||||
Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
|
||||
Dim _APCSheetHeader As APCSheetHeader = TryCast(View.SelectedObjects(0), APCSheetHeader)
|
||||
If _APCSheetHeader Is Nothing Then Throw New Exception("*Váratlan hiba történt, a folyamat megszakadt!")
|
||||
If _APCSheetHeader Is Nothing Then Throw New Exception("*Váratlan hiba történt, a folyamat megszakadt!")
|
||||
|
||||
Dim _APCSheetHeader_NEW As New APCSheetHeader(_onew.Session)
|
||||
Create_APCSheetHeader_NEW(_onew, _APCSheetHeader_NEW, _APCSheetHeader)
|
||||
@@ -178,10 +178,10 @@ Public Class APCSheetVC
|
||||
Try
|
||||
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
|
||||
Dim _APCSheetHeader As APCSheetHeader = TryCast(View.SelectedObjects(0), APCSheetHeader)
|
||||
If _APCSheetHeader Is Nothing Then Throw New Exception("*Váratlan hiba történt, a folyamat megszakadt!")
|
||||
If _APCSheetHeader Is Nothing Then Throw New Exception("*Váratlan hiba történt, a folyamat megszakadt!")
|
||||
|
||||
Dim _ReportData As ReportData = _APCSheetHeader.APCParameters.ReportData
|
||||
If _ReportData Is Nothing Then Throw New Exception("*Nincs beállítva nyomtatvány!" + vbNewLine + "A folyamat megszakadt!")
|
||||
If _ReportData Is Nothing Then Throw New Exception("*Nincs beállítva nyomtatvány!" + vbNewLine + "A folyamat megszakadt!")
|
||||
|
||||
Frame.GetController(Of Reports.ReportServiceController).ShowPreview(_ReportData, CriteriaOperator.Parse("Oid=?", _APCSheetHeader.Oid), True)
|
||||
|
||||
@@ -193,16 +193,16 @@ Public Class APCSheetVC
|
||||
Try
|
||||
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
|
||||
Dim _APCSheetHeader As APCSheetHeader = TryCast(View.SelectedObjects(0), APCSheetHeader)
|
||||
If _APCSheetHeader Is Nothing Then Throw New Exception("*Váratlan hiba történt, a folyamat megszakadt!")
|
||||
If _APCSheetHeader Is Nothing Then Throw New Exception("*Váratlan hiba történt, a folyamat megszakadt!")
|
||||
|
||||
Dim _ReportData As ReportData = _APCSheetHeader.APCParameters.ReportData
|
||||
If _ReportData Is Nothing Then Throw New Exception("*Nincs beállítva nyomtatvány!" + vbNewLine + "A folyamat megszakadt!")
|
||||
If _ReportData Is Nothing Then Throw New Exception("*Nincs beállítva nyomtatvány!" + vbNewLine + "A folyamat megszakadt!")
|
||||
|
||||
Dim _XafReport As XafReport = _ReportData.LoadReport(_ocur)
|
||||
|
||||
Dim _FilterString As String = "[Oid]='" & _APCSheetHeader.Oid.ToString & "'"
|
||||
_XafReport.FilterString = _FilterString
|
||||
Dim _FileName As String = System.IO.Path.GetTempPath & _APCSheetHeader.DocumentNumber & " szerzõdés.pdf"
|
||||
Dim _FileName As String = System.IO.Path.GetTempPath & _APCSheetHeader.DocumentNumber & " szerzõdés.pdf"
|
||||
Dim _StreamFile As New System.IO.FileStream(_FileName, FileMode.Create)
|
||||
|
||||
_XafReport.ExportToPdf(_StreamFile)
|
||||
@@ -211,7 +211,7 @@ Public Class APCSheetVC
|
||||
Dim _StreamFile2 As New FileStream(_FileName, FileMode.Open)
|
||||
|
||||
_APCSheetHeader.PDFOriginal = New FileData(_ocur.Session)
|
||||
_APCSheetHeader.PDFOriginal.LoadFromStream(_APCSheetHeader.DocumentNumber + " szerzõdés.pdf", _StreamFile2)
|
||||
_APCSheetHeader.PDFOriginal.LoadFromStream(_APCSheetHeader.DocumentNumber + " szerzõdés.pdf", _StreamFile2)
|
||||
_StreamFile2.Close()
|
||||
|
||||
_ocur.CommitChanges()
|
||||
@@ -233,14 +233,14 @@ Public Class APCSheetVC
|
||||
End Sub
|
||||
Private Sub aAPCSheetByProducts_New_Execute(sender As Object, e As PopupWindowShowActionExecuteEventArgs) Handles aAPCSheetByProducts_New.Execute
|
||||
Try
|
||||
If e.PopupWindow.View.SelectedObjects.Count = 0 Then Throw New Exception("*Nem került kiválasztásra egyetlen sor sem!")
|
||||
If e.PopupWindow.View.SelectedObjects.Count = 0 Then Throw New Exception("*Nem került kiválasztásra egyetlen sor sem!")
|
||||
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
|
||||
Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
|
||||
|
||||
Dim _ListView As ListView = TryCast(View, ListView)
|
||||
Dim _PropertyCollectionSource As PropertyCollectionSource = TryCast(_ListView.CollectionSource, PropertyCollectionSource)
|
||||
Dim _APCSheetHeader As APCSheetHeader = TryCast(_PropertyCollectionSource.MasterObject, APCSheetHeader)
|
||||
If _APCSheetHeader Is Nothing Then Throw New Exception("*Váratlan hiba történt, a folyamat megszakadt!")
|
||||
If _APCSheetHeader Is Nothing Then Throw New Exception("*Váratlan hiba történt, a folyamat megszakadt!")
|
||||
For Each _ProductsFunding As ProductsFunding In e.PopupWindow.View.SelectedObjects
|
||||
Dim _APCSheetByProducts As New APCSheetByProducts(_onew.Session)
|
||||
With (_APCSheetByProducts)
|
||||
@@ -363,7 +363,7 @@ CheckError:
|
||||
Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
|
||||
Dim _APCSheetHeaderSetAPCStatus_PopUp As New APCSheetHeaderSetAPCStatus_PopUp(_onew.Session)
|
||||
Dim _APCSheetHeader As APCSheetHeader = _onew.GetObject(TryCast(View.SelectedObjects(0), APCSheetHeader))
|
||||
If _APCSheetHeader Is Nothing Then Throw New Exception("*Váratlan hiba történt, a folyamat megszakadt!")
|
||||
If _APCSheetHeader Is Nothing Then Throw New Exception("*Váratlan hiba történt, a folyamat megszakadt!")
|
||||
|
||||
_APCSheetHeaderSetAPCStatus_PopUp.APCStatus = _APCSheetHeader.APCStatus
|
||||
|
||||
@@ -376,9 +376,9 @@ CheckError:
|
||||
Try
|
||||
Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
|
||||
Dim _APCSheetHeader As APCSheetHeader = _onew.GetObject(TryCast(View.SelectedObjects(0), APCSheetHeader))
|
||||
If _APCSheetHeader Is Nothing Then Throw New Exception("*Váratlan hiba történt, a folyamat megszakadt!")
|
||||
If _APCSheetHeader Is Nothing Then Throw New Exception("*Váratlan hiba történt, a folyamat megszakadt!")
|
||||
Dim _APCSheetHeaderSetAPCStatus_PopUp As APCSheetHeaderSetAPCStatus_PopUp = _onew.GetObject(TryCast(e.PopupWindow.View.SelectedObjects(0), APCSheetHeaderSetAPCStatus_PopUp))
|
||||
If _APCSheetHeaderSetAPCStatus_PopUp Is Nothing Then Throw New Exception("*Váratlan hiba történt, a folyamat megszakadt!")
|
||||
If _APCSheetHeaderSetAPCStatus_PopUp Is Nothing Then Throw New Exception("*Váratlan hiba történt, a folyamat megszakadt!")
|
||||
|
||||
Select Case _APCSheetHeaderSetAPCStatus_PopUp.APCStatus
|
||||
Case eAPCStatus.eRegistered
|
||||
@@ -386,10 +386,10 @@ CheckError:
|
||||
Case eAPCStatus.eReject
|
||||
_APCSheetHeader.APCStatus = eAPCStatus.eReject
|
||||
Case eAPCStatus.eSigned
|
||||
If _APCSheetHeader.APCStatus <> eAPCStatus.eRegistered Then Throw New Exception("*A termeltetési szerzõdés nem iktatási állapotban van!")
|
||||
If _APCSheetHeader.APCStatus <> eAPCStatus.eRegistered Then Throw New Exception("*A termeltetési szerzõdés nem iktatási állapotban van!")
|
||||
If _APCSheetHeader.PDFOriginal Is Nothing Then Throw New Exception("*Nincs becsatolva az eredeti dokumentum!")
|
||||
If _APCSheetHeader.PDFSigned Is Nothing Then Throw New Exception("*Nincs becsatolva az aláírt dokumentum!")
|
||||
If _APCSheetHeader.SalespersonsProposal <> eSalespersonsProposal.eSuggest Then Throw New Exception("*Az üzletkötõnek javasolnia kell a szerzõdéskötést!")
|
||||
If _APCSheetHeader.PDFSigned Is Nothing Then Throw New Exception("*Nincs becsatolva az aláírt dokumentum!")
|
||||
If _APCSheetHeader.SalespersonsProposal <> eSalespersonsProposal.eSuggest Then Throw New Exception("*Az üzletkötõnek javasolnia kell a szerzõdéskötést!")
|
||||
|
||||
Dim _APCSheetByTerritorial_Area As Double = 0
|
||||
Dim _APCSheetByTerritorial_Collection As New XPCollection(Of APCSheetByTerritorial)(_onew.Session, CriteriaOperator.Parse("APCSheetHeader=? AND Involved=True", _APCSheetHeader))
|
||||
@@ -416,28 +416,28 @@ CheckError:
|
||||
_APCSheetByTerritorialNo_Area = Math.Round(_APCSheetByTerritorialNo_Area, 4, MidpointRounding.AwayFromZero)
|
||||
_APCSheetPresentation_Area = Math.Round(_APCSheetPresentation_Area, 4, MidpointRounding.AwayFromZero)
|
||||
If Math.Round(_APCSheetByTerritorial_Area + _APCSheetByTerritorialNo_Area, 2, MidpointRounding.AwayFromZero) <> Math.Round(_APCSheetPresentation_Area, 2, MidpointRounding.AwayFromZero) Then _
|
||||
Throw New Exception(String.Format("Nem egyezik meg a termelésbe bevont és termelésbe nem bevont területek összege a " + vbNewLine + _
|
||||
"bemutatkozás rovatban szereplõ területek összegével! Kérem, ellenõrizze! {0} {1}", Math.Round(_APCSheetByTerritorial_Area + _APCSheetByTerritorialNo_Area, 2, MidpointRounding.AwayFromZero), Math.Round(_APCSheetPresentation_Area, 2, MidpointRounding.AwayFromZero)))
|
||||
Throw New Exception(String.Format("Nem egyezik meg a termelésbe bevont és termelésbe nem bevont területek összege a " + vbNewLine + _
|
||||
"bemutatkozás rovatban szereplõ területek összegével! Kérem, ellenõrizze! {0} {1}", Math.Round(_APCSheetByTerritorial_Area + _APCSheetByTerritorialNo_Area, 2, MidpointRounding.AwayFromZero), Math.Round(_APCSheetPresentation_Area, 2, MidpointRounding.AwayFromZero)))
|
||||
|
||||
_APCSheetHeader.APCStatus = eAPCStatus.eSigned
|
||||
Case eAPCStatus.eSendToBank
|
||||
If _APCSheetHeader.APCStatus <> eAPCStatus.eSigned Then Throw New Exception("*A termeltetési szerzõdés nem aláírt állapotban van!")
|
||||
If _APCSheetHeader.APCStatus <> eAPCStatus.eSigned Then Throw New Exception("*A termeltetési szerzõdés nem aláírt állapotban van!")
|
||||
|
||||
_APCSheetHeader.APCStatus = eAPCStatus.eSendToBank
|
||||
Case eAPCStatus.eSendToInsurrance
|
||||
If _APCSheetHeader.APCStatus <> eAPCStatus.eSendToBank Then Throw New Exception("*A termeltetési szerzõdés nem bankba küldés állapotban van!")
|
||||
If _APCSheetHeader.ManagementQualificationState <> eBankPreQualificationState.eAccept Then Throw New Exception("*Csak engedélyezett státuszú szerzõdés küldhetõ biztosítóhoz!")
|
||||
If _APCSheetHeader.SendToBankDate.Year < GetSQLTime(_onew.Session).Year - 10 Then Throw New Exception("*Nincs beállítva a banki döntés dátuma!")
|
||||
If _APCSheetHeader.APCStatus <> eAPCStatus.eSendToBank Then Throw New Exception("*A termeltetési szerzõdés nem bankba küldés állapotban van!")
|
||||
If _APCSheetHeader.ManagementQualificationState <> eBankPreQualificationState.eAccept Then Throw New Exception("*Csak engedélyezett státuszú szerzõdés küldhetõ biztosítóhoz!")
|
||||
If _APCSheetHeader.SendToBankDate.Year < GetSQLTime(_onew.Session).Year - 10 Then Throw New Exception("*Nincs beállítva a banki döntés dátuma!")
|
||||
|
||||
_APCSheetHeader.APCStatus = eAPCStatus.eSendToInsurrance
|
||||
Case eAPCStatus.eAccepted
|
||||
If _APCSheetHeader.APCStatus <> eAPCStatus.eSendToInsurrance Then Throw New Exception("*A termeltetési szerzõdés nem biztosítóhoz küldés állapotban van!")
|
||||
If _APCSheetHeader.ManagementAcceptDocument Is Nothing Then Throw New Exception("*Nincs becsatolva az engedélyezési okirat!")
|
||||
If _APCSheetHeader.ManagementQualificationState <> eBankPreQualificationState.eAccept Then Throw New Exception("*Csak a bank által jóváhagyott szerzõdés lehet elfogadott státuszban!")
|
||||
If _APCSheetHeader.ManagementDeferredPaymentDay = 0 Then Throw New Exception("*A halaszott fizetési napok száma nem lehet nulla!")
|
||||
If _APCSheetHeader.ManagementDeferredPaymentHUF = 0 Then Throw New Exception("*A jóváhagyott összeg értéke nem lehet nulla!")
|
||||
If Math.Round(_APCSheetHeader.ManagementDeferredPaymentHUF, 1, MidpointRounding.AwayFromZero) < Math.Round(_APCSheetHeader.DeferredPaymentHUF, 1, MidpointRounding.AwayFromZero) Then Throw New Exception("*A biztosító által enegdélyezett összeg kisebb, mint az üzletkötõ által javasolt összeg!")
|
||||
If _APCSheetHeader.ManagementTerritorialArea = 0 Then Throw New Exception("*A jóváhagyott terület értéke nem lehet nulla!")
|
||||
If _APCSheetHeader.APCStatus <> eAPCStatus.eSendToInsurrance Then Throw New Exception("*A termeltetési szerzõdés nem biztosítóhoz küldés állapotban van!")
|
||||
If _APCSheetHeader.ManagementAcceptDocument Is Nothing Then Throw New Exception("*Nincs becsatolva az engedélyezési okirat!")
|
||||
If _APCSheetHeader.ManagementQualificationState <> eBankPreQualificationState.eAccept Then Throw New Exception("*Csak a bank által jóváhagyott szerzõdés lehet elfogadott státuszban!")
|
||||
If _APCSheetHeader.ManagementDeferredPaymentDay = 0 Then Throw New Exception("*A halaszott fizetési napok száma nem lehet nulla!")
|
||||
If _APCSheetHeader.ManagementDeferredPaymentHUF = 0 Then Throw New Exception("*A jóváhagyott összeg értéke nem lehet nulla!")
|
||||
If Math.Round(_APCSheetHeader.ManagementDeferredPaymentHUF, 1, MidpointRounding.AwayFromZero) < Math.Round(_APCSheetHeader.DeferredPaymentHUF, 1, MidpointRounding.AwayFromZero) Then Throw New Exception("*A biztosító által enegdélyezett összeg kisebb, mint az üzletkötõ által javasolt összeg!")
|
||||
If _APCSheetHeader.ManagementTerritorialArea = 0 Then Throw New Exception("*A jóváhagyott terület értéke nem lehet nulla!")
|
||||
|
||||
_APCSheetHeader.APCStatus = eAPCStatus.eAccepted
|
||||
End Select
|
||||
@@ -464,9 +464,9 @@ CheckError:
|
||||
Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
|
||||
|
||||
Dim _APCSheetHeader As APCSheetHeader = _onew.GetObject(TryCast(TryCast(TryCast(View, ListView).CollectionSource, PropertyCollectionSource).MasterObject, APCSheetHeader))
|
||||
If _APCSheetHeader Is Nothing Then Throw New Exception("*Váratlan hiba történt, a folyamat megszakadt!")
|
||||
If _APCSheetHeader Is Nothing Then Throw New Exception("*Váratlan hiba történt, a folyamat megszakadt!")
|
||||
Dim _APCSheetByTerritorial_New_PopUp As APCSheetByTerritorial_New_PopUp = _onew.GetObject(TryCast(e.PopupWindow.View.SelectedObjects(0), APCSheetByTerritorial_New_PopUp))
|
||||
If _APCSheetByTerritorial_New_PopUp Is Nothing Then Throw New Exception("*Váratlan hiba történt, a folyamat megszakadt!")
|
||||
If _APCSheetByTerritorial_New_PopUp Is Nothing Then Throw New Exception("*Váratlan hiba történt, a folyamat megszakadt!")
|
||||
Dim _APCSheetByTerritorial_Collection As New XPCollection(Of APCSheetByTerritorial)(_onew.Session, CriteriaOperator.Parse("APCSheetHeader=? AND Involved=True", _APCSheetHeader))
|
||||
|
||||
Dim _APCSheetByTerritorial As New APCSheetByTerritorial(_onew.Session)
|
||||
@@ -562,7 +562,7 @@ CheckError:
|
||||
Try
|
||||
Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
|
||||
Dim _APCSheetHeader As APCSheetHeader = _onew.GetObject(TryCast(TryCast(TryCast(View, ListView).CollectionSource, PropertyCollectionSource).MasterObject, APCSheetHeader))
|
||||
If _APCSheetHeader Is Nothing Then Throw New Exception("*Váratlan hiba történt, a folyamat megszakadt!")
|
||||
If _APCSheetHeader Is Nothing Then Throw New Exception("*Váratlan hiba történt, a folyamat megszakadt!")
|
||||
|
||||
Dim _APCSheetByProducts_DEL_Collection As New ArrayList
|
||||
Dim _APCSheetPresentation_DEL_Collection As New ArrayList
|
||||
@@ -595,7 +595,7 @@ CheckError:
|
||||
Try
|
||||
Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
|
||||
Dim _APCSheetHeader As APCSheetHeader = _onew.GetObject(TryCast(TryCast(TryCast(View, ListView).CollectionSource, PropertyCollectionSource).MasterObject, APCSheetHeader))
|
||||
If _APCSheetHeader Is Nothing Then Throw New Exception("*Váratlan hiba történt, a folyamat megszakadt!")
|
||||
If _APCSheetHeader Is Nothing Then Throw New Exception("*Váratlan hiba történt, a folyamat megszakadt!")
|
||||
|
||||
Dim _APCSheetPresentation_DEL_Collection As New ArrayList
|
||||
|
||||
@@ -662,9 +662,9 @@ CheckError:
|
||||
Try
|
||||
Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
|
||||
Dim _APCSheetHeader As APCSheetHeader = _onew.GetObject(TryCast(TryCast(TryCast(View, ListView).CollectionSource, PropertyCollectionSource).MasterObject, APCSheetHeader))
|
||||
If _APCSheetHeader Is Nothing Then Throw New Exception("*Váratlan hiba történt, a folyamat megszakadt!")
|
||||
If _APCSheetHeader Is Nothing Then Throw New Exception("*Váratlan hiba történt, a folyamat megszakadt!")
|
||||
Dim _APCSheetPresentation_New_PopUp As APCSheetPresentation_New_PopUp = _onew.GetObject(TryCast(e.PopupWindow.View.SelectedObjects(0), APCSheetPresentation_New_PopUp))
|
||||
If _APCSheetPresentation_New_PopUp Is Nothing Then Throw New Exception("*Váratlan hiba történt, a folyamat megszakadt!")
|
||||
If _APCSheetPresentation_New_PopUp Is Nothing Then Throw New Exception("*Váratlan hiba történt, a folyamat megszakadt!")
|
||||
|
||||
Dim _APCSheetPresentation As New APCSheetPresentation(_onew.Session)
|
||||
With _APCSheetPresentation
|
||||
@@ -698,9 +698,9 @@ CheckError:
|
||||
Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
|
||||
|
||||
Dim _APCSheetHeader As APCSheetHeader = _onew.GetObject(TryCast(TryCast(TryCast(View, ListView).CollectionSource, PropertyCollectionSource).MasterObject, APCSheetHeader))
|
||||
If _APCSheetHeader Is Nothing Then Throw New Exception("*Váratlan hiba történt, a folyamat megszakadt!")
|
||||
If _APCSheetHeader Is Nothing Then Throw New Exception("*Váratlan hiba történt, a folyamat megszakadt!")
|
||||
Dim _APCSheetByTerritorial_New_PopUp As APCSheetByTerritorial_New_PopUp = _onew.GetObject(TryCast(e.PopupWindow.View.SelectedObjects(0), APCSheetByTerritorial_New_PopUp))
|
||||
If _APCSheetByTerritorial_New_PopUp Is Nothing Then Throw New Exception("*Váratlan hiba történt, a folyamat megszakadt!")
|
||||
If _APCSheetByTerritorial_New_PopUp Is Nothing Then Throw New Exception("*Váratlan hiba történt, a folyamat megszakadt!")
|
||||
Dim _APCSheetByTerritorial_Collection As New XPCollection(Of APCSheetByTerritorial)(_onew.Session, CriteriaOperator.Parse("APCSheetHeader=? AND Involved=False", _APCSheetHeader))
|
||||
|
||||
Dim _APCSheetByTerritorial As New APCSheetByTerritorial(_onew.Session)
|
||||
@@ -743,7 +743,7 @@ CheckError:
|
||||
Try
|
||||
Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
|
||||
Dim _APCSheetHeader As APCSheetHeader = _onew.GetObject(TryCast(TryCast(TryCast(View, ListView).CollectionSource, PropertyCollectionSource).MasterObject, APCSheetHeader))
|
||||
If _APCSheetHeader Is Nothing Then Throw New Exception("*Váratlan hiba történt, a folyamat megszakadt!")
|
||||
If _APCSheetHeader Is Nothing Then Throw New Exception("*Váratlan hiba történt, a folyamat megszakadt!")
|
||||
|
||||
Dim _APCSheetPresentation_DEL_Collection As New ArrayList
|
||||
' Dim _APCSheetPresentation As APCSheetPresentation = _onew.FindObject(Of APCSheetPresentation)(CriteriaOperator.Parse("APCSheetHeader=? AND IsNull(Products)=True", _APCSheetHeader))
|
||||
@@ -780,9 +780,9 @@ CheckError:
|
||||
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
|
||||
|
||||
Dim _APCSheetHeader As APCSheetHeader = TryCast(View.SelectedObjects(0), APCSheetHeader)
|
||||
If _APCSheetHeader Is Nothing Then Throw New Exception("*Váratlan hiba történt, a folyamat megszakadt!")
|
||||
If _APCSheetHeader.APCStatus <> eAPCStatus.eAccepted Then Throw New Exception("*Csak elfogatott státuszú adatlapról lehet szerzõdést készítnei!")
|
||||
If _APCSheetHeader.APCSheetByProducts.Count = 0 Then Throw New Exception("*Az adatlapnak nincs egyetlen olyan sora sem, melyrõl szerzõdést lehetne készíteni!")
|
||||
If _APCSheetHeader Is Nothing Then Throw New Exception("*Váratlan hiba történt, a folyamat megszakadt!")
|
||||
If _APCSheetHeader.APCStatus <> eAPCStatus.eAccepted Then Throw New Exception("*Csak elfogatott státuszú adatlapról lehet szerzõdést készítnei!")
|
||||
If _APCSheetHeader.APCSheetByProducts.Count = 0 Then Throw New Exception("*Az adatlapnak nincs egyetlen olyan sora sem, melyrõl szerzõdést lehetne készíteni!")
|
||||
Dim _APCSheetByProductsViewItem As DevExpress.ExpressApp.Editors.ListPropertyEditor = TryCast(View, DetailView).FindItem("APCSheetByProducts")
|
||||
Dim _ContractNumber As Long = 0
|
||||
|
||||
@@ -808,7 +808,7 @@ CheckError:
|
||||
End If
|
||||
Next
|
||||
|
||||
If _ContractNumber = 0 Then Throw New Exception("*A kijelölt sorok mindegyikéhez tartozik szerzõdés!")
|
||||
If _ContractNumber = 0 Then Throw New Exception("*A kijelölt sorok mindegyikéhez tartozik szerződés!")
|
||||
|
||||
_ocur.CommitChanges()
|
||||
|
||||
@@ -820,9 +820,9 @@ CheckError:
|
||||
Try
|
||||
Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
|
||||
Dim _APCSheetHeader As APCSheetHeader = _onew.GetObject(TryCast(TryCast(TryCast(View, ListView).CollectionSource, PropertyCollectionSource).MasterObject, APCSheetHeader))
|
||||
If _APCSheetHeader Is Nothing Then Throw New Exception("*Váratlan hiba történt, a folyamat megszakadt!")
|
||||
If _APCSheetHeader Is Nothing Then Throw New Exception("*Váratlan hiba történt, a folyamat megszakadt!")
|
||||
Dim _APCSheetByTerritorial As APCSheetByTerritorial = TryCast(View.SelectedObjects(0), APCSheetByTerritorial)
|
||||
If _APCSheetByTerritorial Is Nothing Then Throw New Exception("*Váratlan hiba történt, a folyamat megszakadt!")
|
||||
If _APCSheetByTerritorial Is Nothing Then Throw New Exception("*Váratlan hiba történt, a folyamat megszakadt!")
|
||||
|
||||
Dim _APCSheetByTerritorial_Change_PopUp As New APCSheetByTerritorial_Change_PopUp(_onew.Session)
|
||||
With _APCSheetByTerritorial_Change_PopUp
|
||||
@@ -843,11 +843,11 @@ CheckError:
|
||||
Try
|
||||
Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
|
||||
Dim _APCSheetHeader As APCSheetHeader = _onew.GetObject(TryCast(TryCast(TryCast(View, ListView).CollectionSource, PropertyCollectionSource).MasterObject, APCSheetHeader))
|
||||
If _APCSheetHeader Is Nothing Then Throw New Exception("*Váratlan hiba történt, a folyamat megszakadt!")
|
||||
If _APCSheetHeader Is Nothing Then Throw New Exception("*Váratlan hiba történt, a folyamat megszakadt!")
|
||||
Dim _APCSheetByTerritorial As APCSheetByTerritorial = _onew.GetObject(TryCast(View.SelectedObjects(0), APCSheetByTerritorial))
|
||||
If _APCSheetByTerritorial Is Nothing Then Throw New Exception("*Váratlan hiba történt, a folyamat megszakadt!")
|
||||
If _APCSheetByTerritorial Is Nothing Then Throw New Exception("*Váratlan hiba történt, a folyamat megszakadt!")
|
||||
Dim _APCSheetByTerritorial_Change_PopUp As APCSheetByTerritorial_Change_PopUp = _onew.GetObject(TryCast(e.PopupWindow.View.SelectedObjects(0), APCSheetByTerritorial_Change_PopUp))
|
||||
If _APCSheetByTerritorial_Change_PopUp Is Nothing Then Throw New Exception("*Váratlan hiba történt, a folyamat megszakadt!")
|
||||
If _APCSheetByTerritorial_Change_PopUp Is Nothing Then Throw New Exception("*Váratlan hiba történt, a folyamat megszakadt!")
|
||||
|
||||
With _APCSheetByTerritorial
|
||||
.City = _APCSheetByTerritorial_Change_PopUp.City
|
||||
@@ -869,9 +869,9 @@ CheckError:
|
||||
Try
|
||||
Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
|
||||
Dim _APCSheetHeader As APCSheetHeader = _onew.GetObject(TryCast(TryCast(TryCast(View, ListView).CollectionSource, PropertyCollectionSource).MasterObject, APCSheetHeader))
|
||||
If _APCSheetHeader Is Nothing Then Throw New Exception("*Váratlan hiba történt, a folyamat megszakadt!")
|
||||
If _APCSheetHeader Is Nothing Then Throw New Exception("*Váratlan hiba történt, a folyamat megszakadt!")
|
||||
Dim _APCSheetByTerritorial As APCSheetByTerritorial = TryCast(View.SelectedObjects(0), APCSheetByTerritorial)
|
||||
If _APCSheetByTerritorial Is Nothing Then Throw New Exception("*Váratlan hiba történt, a folyamat megszakadt!")
|
||||
If _APCSheetByTerritorial Is Nothing Then Throw New Exception("*Váratlan hiba történt, a folyamat megszakadt!")
|
||||
|
||||
Dim _APCSheetByTerritorial_Change_PopUp As New APCSheetByTerritorial_Change_PopUp(_onew.Session)
|
||||
With _APCSheetByTerritorial_Change_PopUp
|
||||
@@ -892,11 +892,11 @@ CheckError:
|
||||
Try
|
||||
Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
|
||||
Dim _APCSheetHeader As APCSheetHeader = _onew.GetObject(TryCast(TryCast(TryCast(View, ListView).CollectionSource, PropertyCollectionSource).MasterObject, APCSheetHeader))
|
||||
If _APCSheetHeader Is Nothing Then Throw New Exception("*Váratlan hiba történt, a folyamat megszakadt!")
|
||||
If _APCSheetHeader Is Nothing Then Throw New Exception("*Váratlan hiba történt, a folyamat megszakadt!")
|
||||
Dim _APCSheetByTerritorial As APCSheetByTerritorial = _onew.GetObject(TryCast(View.SelectedObjects(0), APCSheetByTerritorial))
|
||||
If _APCSheetByTerritorial Is Nothing Then Throw New Exception("*Váratlan hiba történt, a folyamat megszakadt!")
|
||||
If _APCSheetByTerritorial Is Nothing Then Throw New Exception("*Váratlan hiba történt, a folyamat megszakadt!")
|
||||
Dim _APCSheetByTerritorial_Change_PopUp As APCSheetByTerritorial_Change_PopUp = _onew.GetObject(TryCast(e.PopupWindow.View.SelectedObjects(0), APCSheetByTerritorial_Change_PopUp))
|
||||
If _APCSheetByTerritorial_Change_PopUp Is Nothing Then Throw New Exception("*Váratlan hiba történt, a folyamat megszakadt!")
|
||||
If _APCSheetByTerritorial_Change_PopUp Is Nothing Then Throw New Exception("*Váratlan hiba történt, a folyamat megszakadt!")
|
||||
|
||||
With _APCSheetByTerritorial
|
||||
.City = _APCSheetByTerritorial_Change_PopUp.City
|
||||
@@ -918,9 +918,9 @@ CheckError:
|
||||
Try
|
||||
Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
|
||||
Dim _APCSheetHeader As APCSheetHeader = _onew.GetObject(TryCast(TryCast(TryCast(View, ListView).CollectionSource, PropertyCollectionSource).MasterObject, APCSheetHeader))
|
||||
If _APCSheetHeader Is Nothing Then Throw New Exception("*Váratlan hiba történt, a folyamat megszakadt!")
|
||||
If _APCSheetHeader Is Nothing Then Throw New Exception("*Váratlan hiba történt, a folyamat megszakadt!")
|
||||
Dim _APCSheetByTerritorial_Orig As APCSheetByTerritorial = _onew.GetObject(TryCast(View.SelectedObjects(0), APCSheetByTerritorial))
|
||||
If _APCSheetByTerritorial_Orig Is Nothing Then Throw New Exception("*Váratlan hiba történt, a folyamat megszakadt!")
|
||||
If _APCSheetByTerritorial_Orig Is Nothing Then Throw New Exception("*Váratlan hiba történt, a folyamat megszakadt!")
|
||||
|
||||
Dim _APCSheetByProductsReNumbering As Boolean = False
|
||||
Dim _APCSheetPresentationReNumbering As Boolean = False
|
||||
@@ -1029,12 +1029,12 @@ CheckError:
|
||||
Try
|
||||
Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
|
||||
Dim _APCSheetHeader As APCSheetHeader = _onew.GetObject(TryCast(TryCast(TryCast(View, ListView).CollectionSource, PropertyCollectionSource).MasterObject, APCSheetHeader))
|
||||
If _APCSheetHeader Is Nothing Then Throw New Exception("*Váratlan hiba történt, a folyamat megszakadt!")
|
||||
If _APCSheetHeader Is Nothing Then Throw New Exception("*Váratlan hiba történt, a folyamat megszakadt!")
|
||||
Dim _APCSheetByTerritorial_Orig As APCSheetByTerritorial = _onew.GetObject(TryCast(View.SelectedObjects(0), APCSheetByTerritorial))
|
||||
If _APCSheetByTerritorial_Orig Is Nothing Then Throw New Exception("*Nincs kijelölve egyetlen sor sem!")
|
||||
If _APCSheetByTerritorial_Orig Is Nothing Then Throw New Exception("*Nincs kijelölve egyetlen sor sem!")
|
||||
Dim _APCSheetByTerritorial_InvolvedIN_PopUp As APCSheetByTerritorial_InvolvedIN_PopUp = _onew.GetObject(TryCast(e.PopupWindow.View.SelectedObjects(0), APCSheetByTerritorial_InvolvedIN_PopUp))
|
||||
If _APCSheetByTerritorial_InvolvedIN_PopUp Is Nothing Then Throw New Exception("*Váratlan hiba történt, a folyamat megszakadt!")
|
||||
If _APCSheetByTerritorial_InvolvedIN_PopUp.ProductsFunding Is Nothing Then Throw New Exception("*Nem lett kiválasztva egyetlen termék sem a finanszírozáshoz!" + _
|
||||
If _APCSheetByTerritorial_InvolvedIN_PopUp Is Nothing Then Throw New Exception("*Váratlan hiba történt, a folyamat megszakadt!")
|
||||
If _APCSheetByTerritorial_InvolvedIN_PopUp.ProductsFunding Is Nothing Then Throw New Exception("*Nem lett kiválasztva egyetlen termék sem a finanszírozáshoz!" + _
|
||||
vbNewLine + "A folyamat megszakadt!")
|
||||
|
||||
Dim _APCSheetByTerritorialInvolved_Collection As New XPCollection(Of APCSheetByTerritorial)(_onew.Session, CriteriaOperator.Parse("APCSheetHeader=? AND Involved=True", _APCSheetHeader))
|
||||
@@ -1106,7 +1106,7 @@ CheckError:
|
||||
Case eMonths.eDecember
|
||||
_ActMonth = 12
|
||||
End Select
|
||||
If GetSQLTime(_onew.Session).Month < 9 Then
|
||||
If GetSQLTime(_onew.Session).Month < 8 Then
|
||||
.ProductExpirationDate = New Date(_ActYear, _ActMonth + 1, 1).AddDays(-1)
|
||||
Else
|
||||
.ProductExpirationDate = New Date(_ActYear + 1, _ActMonth + 1, 1).AddDays(-1)
|
||||
@@ -1116,7 +1116,7 @@ CheckError:
|
||||
|
||||
_onew.CommitChanges()
|
||||
|
||||
'<---===Kollekciók rendezése===--->
|
||||
'<---===Kollekciók rendezése===--->
|
||||
Dim _APCSheetPresentation_Collection As New XPCollection(Of APCSheetPresentation)(_onew.Session, CriteriaOperator.Parse("APCSheetHeader=?", _APCSheetHeader))
|
||||
Dim _RowIndex As Long = 1
|
||||
For Each _APCSheetPresentationCount As APCSheetPresentation In _APCSheetPresentation_Collection
|
||||
@@ -1149,7 +1149,7 @@ CheckError:
|
||||
Try
|
||||
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
|
||||
Dim _APCSheetHeader As APCSheetHeader = TryCast(TryCast(TryCast(View, ListView).CollectionSource, PropertyCollectionSource).MasterObject, APCSheetHeader)
|
||||
If _APCSheetHeader Is Nothing Then Throw New Exception("*Váratlan hiba történt, a folyamat megszakadt!")
|
||||
If _APCSheetHeader Is Nothing Then Throw New Exception("*Váratlan hiba történt, a folyamat megszakadt!")
|
||||
_APCSheetHeader.APCSheetPresentation.Sorting.Add(New SortProperty("RowIndex", DB.SortingDirection.Ascending))
|
||||
Dim _RowIndex As Long = 1
|
||||
For Each _APCSheetPresentation As APCSheetPresentation In _APCSheetHeader.APCSheetPresentation
|
||||
@@ -1166,7 +1166,7 @@ CheckError:
|
||||
Try
|
||||
Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
|
||||
Dim _APCSheetHeader As APCSheetHeader = _onew.GetObject(TryCast(View.SelectedObjects(0), APCSheetHeader))
|
||||
If _APCSheetHeader Is Nothing Then Throw New Exception("*Váratlan hiba történt a folyamat megszakadt!")
|
||||
If _APCSheetHeader Is Nothing Then Throw New Exception("*Váratlan hiba történt a folyamat megszakadt!")
|
||||
|
||||
_APCSheetHeader.DeferredPaymentHUF = 0
|
||||
_APCSheetHeader.TerritorialArea = 0
|
||||
@@ -1252,7 +1252,7 @@ CheckError:
|
||||
|
||||
|
||||
Dim _ReportData As ReportData = _APCSheetHeader.APCParameters.ReportDataReviewSheet
|
||||
If _ReportData Is Nothing Then Throw New Exception("*Nincs beállítva nyomtatvány!" + vbNewLine + "A folyamat megszakadt!")
|
||||
If _ReportData Is Nothing Then Throw New Exception("*Nincs beállítva nyomtatvány!" + vbNewLine + "A folyamat megszakadt!")
|
||||
|
||||
Dim _APCSheetByTerritorial_Collection As New XPCollection(Of APCSheetByTerritorial)(_ocur.Session, CriteriaOperator.Parse("APCSheetHeader=? AND Products=? AND Involved=True",
|
||||
_APCSheetHeader, _ocur.GetObject(_APCSheetByProducts_Select.Products)))
|
||||
@@ -1335,7 +1335,7 @@ CheckError:
|
||||
' Dim _APCSheetHeader_NEW As New APCSheetHeader(_ocur.Session)
|
||||
|
||||
' With _APCSheetHeader_NEW
|
||||
' .APCParameters = Nothing '_APCSheetHeader.APCParameters Laci kérése 2013.09.17
|
||||
' .APCParameters = Nothing '_APCSheetHeader.APCParameters Laci kérése 2013.09.17
|
||||
' .HRPerson = _APCSheetHeader.HRPerson
|
||||
' .Customers = _APCSheetHeader.Customers
|
||||
' .Contacts = _APCSheetHeader.Contacts
|
||||
@@ -1384,7 +1384,7 @@ CheckError:
|
||||
' .APCSheetAdministrator = _APCSheetHeader.APCSheetAdministrator
|
||||
' .APCSheetContractHandlingPlace = _APCSheetHeader.APCSheetContractHandlingPlace
|
||||
|
||||
' 'Sorszám 08.31 után a következõ év !
|
||||
' 'Sorszám 08.31 után a következõ év !
|
||||
' 'If GetSQLTime(_ocur.Session).Month > 8 Then
|
||||
' ' _YearString = (GetSQLTime(_ocur.Session).Year + 1).ToString
|
||||
' ' .DocumentNumber = .APCParameters.NumberGenerator.GetNewNumber(.APCParameters.NumberGenerator, _YearString)
|
||||
@@ -1533,8 +1533,8 @@ CheckError:
|
||||
Dim _YearString As String = Now.Year.ToString
|
||||
Dim _APCSheetHeaderSetAPCParameters_PopUp As APCSheetHeaderSetAPCParameters_PopUp = _ocur.GetObject(TryCast(e.PopupWindow.View.SelectedObjects(0), APCSheetHeaderSetAPCParameters_PopUp))
|
||||
|
||||
'If _APCSheetHeaderSetAPCParameters_PopUp Is Nothing Then Throw New Exception("*Váratlan hiba történt, a folyamat megszakadt!")
|
||||
'If _APCSheetHeaderSetAPCParameters_PopUp.APCParameter Is Nothing Then Throw New Exception("*Nem lett kiválasztva egyetlen paraméter sem a termeltetési adatlaphoz!" + _
|
||||
'If _APCSheetHeaderSetAPCParameters_PopUp Is Nothing Then Throw New Exception("*Váratlan hiba történt, a folyamat megszakadt!")
|
||||
'If _APCSheetHeaderSetAPCParameters_PopUp.APCParameter Is Nothing Then Throw New Exception("*Nem lett kiválasztva egyetlen paraméter sem a termeltetési adatlaphoz!" + _
|
||||
' vbNewLine + "A folyamat megszakadt!")
|
||||
|
||||
Try
|
||||
@@ -1544,7 +1544,7 @@ CheckError:
|
||||
Dim _APCSheetHeader_NEW As New APCSheetHeader(_ocur.Session)
|
||||
|
||||
With _APCSheetHeader_NEW
|
||||
.APCParameters = _ocur.GetObject(_APCSheetHeaderSetAPCParameters_PopUp.APCParameter) '_APCSheetHeader.APCParameters Laci kérése 2013.09.17
|
||||
.APCParameters = _ocur.GetObject(_APCSheetHeaderSetAPCParameters_PopUp.APCParameter) '_APCSheetHeader.APCParameters Laci kérése 2013.09.17
|
||||
.HRPerson = _APCSheetHeader.HRPerson
|
||||
.Customers = _APCSheetHeader.Customers
|
||||
.Contacts = _APCSheetHeader.Contacts
|
||||
@@ -1593,7 +1593,7 @@ CheckError:
|
||||
.APCSheetAdministrator = _APCSheetHeader.APCSheetAdministrator
|
||||
.APCSheetContractHandlingPlace = _APCSheetHeader.APCSheetContractHandlingPlace
|
||||
|
||||
'Sorszám 08.31 után a következõ év !
|
||||
'Sorszám 08.31 után a következõ év !
|
||||
'If GetSQLTime(_ocur.Session).Month > 8 Then
|
||||
' _YearString = (GetSQLTime(_ocur.Session).Year + 1).ToString
|
||||
' .DocumentNumber = .APCParameters.NumberGenerator.GetNewNumber(.APCParameters.NumberGenerator, _YearString)
|
||||
@@ -1690,7 +1690,7 @@ CheckError:
|
||||
Dim _APCSheetHeaderSetAPCParameters_PopUp As APCSheetHeaderSetAPCParameters_PopUp = TryCast(View.SelectedObjects(0), APCSheetHeaderSetAPCParameters_PopUp)
|
||||
If _APCSheetHeaderSetAPCParameters_PopUp.APCParameter Is Nothing Then
|
||||
e.Cancel = True
|
||||
MsgBox("A paraméreteket kötelezõ megadni!", MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\NuvolarExceptions", "MsgBoxCheckItAgain")))
|
||||
MsgBox("A paraméreteket kötelezõ megadni!", MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\NuvolarExceptions", "MsgBoxCheckItAgain")))
|
||||
End If
|
||||
End Sub
|
||||
|
||||
|
||||
Reference in New Issue
Block a user