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

INIT OK 20.1.4

Browse Source
This commit is contained in:
ivanszabo
2020-06-09 10:30:25 +02:00
parent 96e5588d9d
commit 291939e03f
25 changed files with 54 additions and 60 deletions
Download Patch File Download Diff File Expand all files Collapse all files
Nuvolar.Module.Win/BusinessObjects/Business/BusinessTransactions/Contracts/ContractTemplate_VC.vb
+2 -2
View File
@@ -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
+3 -3
View File
@@ -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
+3 -3
View File
@@ -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
+1 -1
View File
@@ -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()
Nuvolar.Module.Win/BusinessObjects/Business/Product/ProductFinderVC.vb
+1 -1
View File
@@ -109,7 +109,7 @@ Public Class ProductFinderVC
_GridListEditor_Select.GridView.GridControl.Invoke(New EditCellDelegate(AddressOf Edit_QTT_Will_Cell))
End Sub
Private Sub Edit_QTT_Will_Cell()
'e.KeyCode = Windows.Forms.Keys.Enter And
'e.KeyCode = System.Windows.Forms.Keys.Enter And
If _GridListEditor_Select.GridView.FocusedRowHandle = GridControl.AutoFilterRowHandle And _GridListEditor_Select.GridView.RowCount >= 1 Then
'_GridListEditor_Select.GridView.FocusedColumn = _GridListEditor_Select.GridView.GetVisibleColumn(_GridListEditor_Select.FindColumn("QTT_Will").VisibleIndex)
_GridListEditor_Select.GridView.FocusedColumn = _GridListEditor_Select.GridView.Columns("QTT_Will")
Nuvolar.Module.Win/BusinessObjects/Business/Product/ProductSelect_VC.vb
+1 -1
View File
@@ -107,7 +107,7 @@ Public Class ProductSelect_VC
_GridListEditor_Select.GridView.GridControl.Invoke(New EditCellDelegate(AddressOf Edit_QTT_Will_Cell))
End Sub
Private Sub Edit_QTT_Will_Cell()
'e.KeyCode = Windows.Forms.Keys.Enter And
'e.KeyCode = System.Windows.Forms.Keys.Enter And
If _GridListEditor_Select.GridView.FocusedRowHandle = GridControl.AutoFilterRowHandle And _GridListEditor_Select.GridView.RowCount >= 1 Then
_GridListEditor_Select.GridView.FocusedColumn = _GridListEditor_Select.GridView.Columns("QTT_Will")
_GridListEditor_Select.GridView.HideEditor()
Nuvolar.Module.Win/BusinessObjects/Business/Services/ServiceFinderVC.vb
+1 -1
View File
@@ -96,7 +96,7 @@ Public Class ServiceFinderVC
_GridListEditor_Select.GridView.GridControl.Invoke(New EditCellDelegate(AddressOf Edit_QTT_Will_Cell))
End Sub
Private Sub Edit_QTT_Will_Cell()
'e.KeyCode = Windows.Forms.Keys.Enter And
'e.KeyCode = System.Windows.Forms.Keys.Enter And
If _GridListEditor_Select.GridView.FocusedRowHandle = GridControl.AutoFilterRowHandle And _GridListEditor_Select.GridView.RowCount >= 1 Then
'_GridListEditor_Select.GridView.FocusedColumn = _GridListEditor_Select.GridView.GetVisibleColumn(_GridListEditor_Select.FindColumn("QTT_Will").VisibleIndex)
_GridListEditor_Select.GridView.FocusedColumn = _GridListEditor_Select.GridView.Columns("QTT_Will")
Nuvolar.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Accounts/GLAccountsVC.vb
+1 -1
View File
@@ -173,7 +173,7 @@ Public Class GLAccountsVC
End If
End If
End Sub
Private Sub StringComboUserControl_KeyDown(sender As Object, e As Windows.Forms.KeyEventArgs)
Private Sub StringComboUserControl_KeyDown(sender As Object, e As System.Windows.Forms.KeyEventArgs)
If e.KeyCode = System.Windows.Forms.Keys.F12 Then
'// Kell egy mentés
If TryCast(sender, DevExpress.XtraEditors.ComboBoxEdit) IsNot Nothing Then
Nuvolar.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Bank/BankImportVC.vb
+1 -1
View File
@@ -519,7 +519,7 @@ Public Class BankImportVC
_GLRows.BankImportHeaderSumDetail.BankImportHeaderSum.GLBank.IsEditable = False
_ocur.CommitChanges()
Windows.Forms.MessageBox.Show("Az aktuális banki kivonathoz tartozó fõkönyvi bejegyzés végledesítésre került.")
System.Windows.Forms.MessageBox.Show("Az aktuális banki kivonathoz tartozó fõkönyvi bejegyzés végledesítésre került.")
End Sub
Nuvolar.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/LiquidAssets/GIROInfo_VC.vb
+1 -1
View File
@@ -32,7 +32,7 @@ Public Class GIROInfo_VC
Dim _OpenFileDialog As New OpenFileDialog
_OpenFileDialog.Filter = "xls Files (.xls)|*.xls|xlsx Files (.xlsx)|*.xlsx|All Files (*.*)|*.*"
_OpenFileDialog.FilterIndex = 1
If _OpenFileDialog.ShowDialog() = Windows.Forms.DialogResult.OK And (Not String.IsNullOrEmpty(_OpenFileDialog.FileName)) Then
If _OpenFileDialog.ShowDialog() = System.Windows.Forms.DialogResult.OK And (Not String.IsNullOrEmpty(_OpenFileDialog.FileName)) Then
Dim _xlsFile As String = _OpenFileDialog.FileName
_cs = "Provider=Microsoft.ACE.OLEDB.12.0;"
_cs += "Data Source=" & _xlsFile.ToString & ";"
Nuvolar.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Ballance/BallanceVC.vb
+3 -3
View File
@@ -132,7 +132,7 @@ Public Class BallanceVC
Dim _workbook As DevExpress.Spreadsheet.IWorkbook = _SpreadsheetControl.Document
Dim _worksheet As Worksheet = _workbook.Worksheets("Borító")
Dim _worksheet_range As DevExpress.Spreadsheet.Range
Dim _worksheet_range As DevExpress.Spreadsheet.CellRange
_worksheet_range = _worksheet.GetUsedRange()
@@ -162,7 +162,7 @@ Public Class BallanceVC
End Sub
Private Sub aSpreadImportXML_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aSpreadImportXML.Execute
Dim openFileDialog1 As New Windows.Forms.OpenFileDialog()
Dim openFileDialog1 As New System.Windows.Forms.OpenFileDialog()
openFileDialog1.InitialDirectory = My.Computer.FileSystem.SpecialDirectories.MyDocuments
openFileDialog1.Filter = "XML files (*.xml)|*.xml|All files (*.*)|*.*"
@@ -175,7 +175,7 @@ Public Class BallanceVC
End Sub
Private Sub aSpreadExportXML_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aSpreadExportXML.Execute
Dim openFileDialog1 As New Windows.Forms.SaveFileDialog()
Dim openFileDialog1 As New System.Windows.Forms.SaveFileDialog()
openFileDialog1.InitialDirectory = My.Computer.FileSystem.SpecialDirectories.MyDocuments
openFileDialog1.Filter = "XML files (*.xml)|*.xml|All files (*.*)|*.*"
Nuvolar.Module.Win/BusinessObjects/GeneralObjects/RTFDocumentsHandler/BusinessDirectory_VC.vb
+1 -1
View File
@@ -242,7 +242,7 @@ Public Class BusinessDirectory_VC
Private Sub aOpenRTFDocument_InsertDocVariable_Execute(sender As Object, e As PopupWindowShowActionExecuteEventArgs) Handles aOpenRTFDocument_InsertDocVariable.Execute
Try
Dim _RTFDocumanetsHandler_DocVariable_PopUp As RTFDocumanetsHandler_DocVariable_PopUp = TryCast(e.PopupWindow.View.SelectedObjects(0), RTFDocumanetsHandler_DocVariable_PopUp)
_RichEditControl.Document.Fields.Add(_RichEditControl.Document.CaretPosition, "DOCVARIABLE " + _RTFDocumanetsHandler_DocVariable_PopUp.DocVariableString)
'_RichEditControl.Document.Fields.Add(_RichEditControl.Document.CaretPosition, "DOCVARIABLE " + _RTFDocumanetsHandler_DocVariable_PopUp.DocVariableString)
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, "Hiba!")
End Try
Nuvolar.Module.Win/BusinessObjects/GeneralObjects/RTFDocumentsHandler/RTFDocumentsHandlerVC.vb
+1 -1
View File
@@ -135,7 +135,7 @@ Public Class RTFDocumentsHandlerVC
Private Sub aRTFDocuments_InsertRTFDocVariable_Execute(sender As Object, e As PopupWindowShowActionExecuteEventArgs) Handles aRTFDocuments_InsertRTFDocVariable.Execute
Try
Dim _RTFDocumanetsHandler_DocVariable_PopUp As RTFDocumanetsHandler_DocVariable_PopUp = TryCast(e.PopupWindow.View.SelectedObjects(0), RTFDocumanetsHandler_DocVariable_PopUp)
_RichEditControl.Document.Fields.Add(_RichEditControl.Document.CaretPosition, "DOCVARIABLE " + _RTFDocumanetsHandler_DocVariable_PopUp.DocVariableString)
'_RichEditControl.Document.Fields.Add(_RichEditControl.Document.CaretPosition, "DOCVARIABLE " + _RTFDocumanetsHandler_DocVariable_PopUp.DocVariableString)
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, "Hiba!")
End Try
Nuvolar.Module.Win/BusinessObjects/Imports/SpreadImport/SpreadImportVC.vb
+2 -2
View File
@@ -120,7 +120,7 @@ Partial Public Class SpreadImportVC
Private Sub aSpreadImport_LoadDocument_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aSpreadImport_LoadDocument.Execute
Dim openFileDialog1 As New Windows.Forms.OpenFileDialog()
Dim openFileDialog1 As New System.Windows.Forms.OpenFileDialog()
openFileDialog1.InitialDirectory = My.Computer.FileSystem.SpecialDirectories.MyDocuments
openFileDialog1.Filter = "XML files (*.xml)|*.xml|All files (*.*)|*.*"
@@ -133,7 +133,7 @@ Partial Public Class SpreadImportVC
End Sub
Private Sub aSpreadImport_SaveDocument_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aSpreadImport_SaveDocument.Execute
Dim openFileDialog1 As New Windows.Forms.SaveFileDialog()
Dim openFileDialog1 As New System.Windows.Forms.SaveFileDialog()
openFileDialog1.InitialDirectory = My.Computer.FileSystem.SpecialDirectories.MyDocuments
openFileDialog1.Filter = "XML files (*.xml)|*.xml|All files (*.*)|*.*"
Nuvolar.Module.Win/BusinessObjects/Imports/XLS Imports/XLSImportsVC.vb
+1 -1
View File
@@ -1458,7 +1458,7 @@ Public Class XLSImportsVC
Dim _Import_PH_Immovables_PopUp As Import_PH_Immovables_PopUp = TryCast(View.SelectedObjects(0), Import_PH_Immovables_PopUp)
If _Import_PH_Immovables_PopUp Is Nothing Then Throw New Exception("*Váratlan hiba történt a folyamat megszakadt!")
If _OpenFileDialog.ShowDialog() = Windows.Forms.DialogResult.OK Then
If _OpenFileDialog.ShowDialog() = System.Windows.Forms.DialogResult.OK Then
_Import_PH_Immovables_PopUp.FileName = _OpenFileDialog.FileName
End If
Catch ex As Exception