From 159a71d3d0166bb116f83acc32239a0647234586 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Szab=C3=B3=20Iv=C3=A1n?= Date: Fri, 11 Aug 2017 11:50:40 +0200 Subject: [PATCH] =?UTF-8?q?Termeltet=C3=A9si=20szerz=C5=91d=C3=A9s=20term?= =?UTF-8?q?=C3=A9k=20bevon=C3=A1s=20=C3=A9v=20fordul=C3=B3=209-r=C5=91l=20?= =?UTF-8?q?8=20ra.?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- .../Business/Agricultural/APCSheetVC.vb | 140 +++++++++--------- 1 file changed, 70 insertions(+), 70 deletions(-) diff --git a/Nuvolar.Module/BusinessObjects/Business/Agricultural/APCSheetVC.vb b/Nuvolar.Module/BusinessObjects/Business/Agricultural/APCSheetVC.vb index 4f1c100..2cd93fd 100644 --- a/Nuvolar.Module/BusinessObjects/Business/Agricultural/APCSheetVC.vb +++ b/Nuvolar.Module/BusinessObjects/Business/Agricultural/APCSheetVC.vb @@ -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