INIT OK 20.1.4

Nuvolar.Module.Win/BusinessObjects/Business/BusinessTransactions/Contracts/ContractTemplate_VC.vb

@@ -39,7 +39,7 @@ Public Class ContractTemplate_VC
             Dim _ContractTemplate As ContractTemplate = TryCast(View.SelectedObjects(0), ContractTemplate)
             If _ContractTemplate Is Nothing Then Throw New Exception("*Váratlan hiba történt, a folyamat megszakadt!")
             If String.IsNullOrEmpty(_ContractTemplate.ContractsProperties) Then Throw New Exception("*Nem lett kiválasztva a kapcsolódó objektum!")
-            _RichEditControl.Document.Fields.Add(_RichEditControl.Document.CaretPosition, "DOCVARIABLE Contracts." + _ContractTemplate.ContractsProperties)
+            '_RichEditControl.Document.Fields.Add(_RichEditControl.Document.CaretPosition, "DOCVARIABLE Contracts." + _ContractTemplate.ContractsProperties)
             _ContractTemplate.ContractsProperties = ""
         Catch ex As Exception
             MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, "Hiba!")
@@ -57,7 +57,7 @@ Public Class ContractTemplate_VC
             Dim _ContractTemplate As ContractTemplate = TryCast(View.SelectedObjects(0), ContractTemplate)
             If _ContractTemplate Is Nothing Then Throw New Exception("*Váratlan hiba történt, a folyamat megszakadt!")
             If String.IsNullOrEmpty(_ContractTemplate.APCSheetByProductsProperties) Then Throw New Exception("*Nem lett kiválasztva a kapcsolódó objektum!")
-            _RichEditControl.Document.Fields.Add(_RichEditControl.Document.CaretPosition, "DOCVARIABLE APCSheetByProducts." + _ContractTemplate.APCSheetByProductsProperties)
+            '_RichEditControl.Document.Fields.Add(_RichEditControl.Document.CaretPosition, "DOCVARIABLE APCSheetByProducts." + _ContractTemplate.APCSheetByProductsProperties)
             _ContractTemplate.APCSheetByProductsProperties = ""
         Catch ex As Exception
             MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, "Hiba!")

Nuvolar.Module.Win/BusinessObjects/Business/BusinessTransactions/Estate/Stocks/ImmovablesCostRecordExcelVC.vb

@@ -429,7 +429,7 @@ Public Class ImmovablesCostRecordExcelVC
         Dim _ActImmovables As XPCollection = _ocur.CreateCollection(GetType(Immovables), CriteriaOperator.Parse("1=2"))
         Dim _ImmovablesCostRecordGroup As XPCollection = _ocur.CreateCollection(GetType(ImmovablesCostRecordGroup), CriteriaOperator.Parse("1=1"))
         Dim _OpenFileDialog As New OpenFileDialog
-        If _OpenFileDialog.ShowDialog() = Windows.Forms.DialogResult.OK Then
+        If _OpenFileDialog.ShowDialog() = System.Windows.Forms.DialogResult.OK Then
             Dim _xlsFile As String = _OpenFileDialog.FileName
             _cs = "Provider=Microsoft.ACE.OLEDB.12.0;"
             _cs += "Data Source=" & _xlsFile.ToString & ";"
@@ -484,7 +484,7 @@ Public Class ImmovablesCostRecordExcelVC
                 MsgBox(ex.Message)
                 conn.Close()
             Finally
-                _Waitformclass.FinalWork()
+                _WaitFormClass.FinalWork()
             End Try
         End If
 
@@ -552,7 +552,7 @@ Public Class ImmovablesCostRecordExcelVC
         Dim _ImmovablesName As New ArrayList
         Dim _SID As New ArrayList
         Dim _OpenFileDialog As New OpenFileDialog
-        If _OpenFileDialog.ShowDialog() = Windows.Forms.DialogResult.OK Then
+        If _OpenFileDialog.ShowDialog() = System.Windows.Forms.DialogResult.OK Then
 
             Dim _xlsFile As String = _OpenFileDialog.FileName
 

Nuvolar.Module.Win/BusinessObjects/Business/BusinessTransactions/Estate/Stocks/ImmovablesVC.vb

@@ -51,7 +51,7 @@ Public Class ImmovablesVC
         Dim _OpenFileDialog As New OpenFileDialog
         _OpenFileDialog.Filter = "Xls Files (.xls)|*.xls|Xlsx Files (.xlsx)|*.xlsx|All Files (*.*)|*.*"
 
-        If _OpenFileDialog.ShowDialog() = Windows.Forms.DialogResult.OK Then
+        If _OpenFileDialog.ShowDialog() = System.Windows.Forms.DialogResult.OK Then
             If Not String.IsNullOrEmpty(_OpenFileDialog.FileName) Then
                 Dim _xlsFile As String = _OpenFileDialog.FileName
 
@@ -97,7 +97,7 @@ Public Class ImmovablesVC
                 End Try
 
 
-                _WaitFormClass.InitWork(0, 1, _Array_UniqueObjects.Count)
+                _WaitFormClass.Initwork(0, 1, _Array_UniqueObjects.Count)
                 For ik = 0 To _Array_UniqueObjects.Count - 1 Step 1
                     Dim _UniqueObjects As UniqueObjects = _ocur.FindObject(Of UniqueObjects)(CriteriaOperator.Parse("Name=?", _Array_UniqueObjects(ik)))
                     If _UniqueObjects IsNot Nothing Then
@@ -122,7 +122,7 @@ Public Class ImmovablesVC
                 Next
             End If
             _ocur.CommitChanges()
-            _Waitformclass.FinalWork()
+            _WaitFormClass.FinalWork()
             If _MissingImmovable > 0 Then
                 Dim _UOList As String = ""
                 For Each _UO As String In _MissingImmovablesUO

Nuvolar.Module.Win/BusinessObjects/Business/BusinessTransactions/Offers/OfferOut/OfferOutVC.vb

@@ -229,7 +229,7 @@ Public Class OfferOutVC
 
     Private Sub Grid_HandleCreated(sender As Object, e As System.EventArgs)
         RemoveHandler _Grid.GridControl.HandleCreated, AddressOf Grid_HandleCreated
-        _GridListEditor.Grid.BeginInvoke(New Windows.Forms.MethodInvoker(AddressOf SelectAll))
+        _GridListEditor.Grid.BeginInvoke(New System.Windows.Forms.MethodInvoker(AddressOf SelectAll))
 
     End Sub
     Private Sub SelectAll()