INIT OK 20.1.4

This commit is contained in:
2020-06-09 10:30:25 +02:00
parent 96e5588d9d
commit 291939e03f
25 changed files with 54 additions and 60 deletions
@@ -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
@@ -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
@@ -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 & ";"
@@ -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 (*.*)|*.*"