INIT OK 20.1.4

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