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/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