Commit 1c4c89e0 authored by Michele's avatar Michele

in esporta csv spostata richiesta apertura file dopo verifica se lista vuota

parent a2c565fa
......@@ -607,13 +607,13 @@ Public Sub mnu_esporta_csv_Click()
Dim max As Integer
Dim risposta As Integer
risposta = Message.Question(("Aprire il file dopo la generazione?"), ("Ok"), ("No"))
max = 0
For i = C.INIZIO_PILOTI To D.Piloti.Max ' ottieni il numero massimo di modelli per pilota
If D.Piloti[i].get_indice_modelli() > max Then max = D.Piloti[i].get_indice_modelli()
Next
Print D.Piloti.max
If D.Piloti.max = 0 Then Return
risposta = Message.Question(("Aprire il file dopo la generazione?"), ("Ok"), ("No"))
Dialog.Path = User.home &/ C.CARTELLA_PROGRAMMA & "/ListaPiloti.csv" ' nome predefinito del file
Dialog.Filter = ["*.csv", " File CSV "] ' filtro estensione .csv
If Dialog.SaveFile() Then Return ' visualizza finestra dialogo ; se premuto annulla esci
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment