INIT OK 20.1.4
This commit is contained in:
+1
-1
@@ -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
|
||||
|
||||
+1
-1
@@ -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
|
||||
|
||||
+1
-1
@@ -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 & ";"
|
||||
|
||||
+3
-3
@@ -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 (*.*)|*.*"
|
||||
|
||||
Reference in New Issue
Block a user