Commit 8e944694 authored by Michele's avatar Michele

Ulteriori modifiche

parent 49b6b9ed
......@@ -24,29 +24,40 @@ End
Public Sub btn_inizializza_Click()
Dim i As Integer
Dim stato As Integer
If rdb_attivi.value Then stato = C.STATO_LISTA
If rdb_sospesi.value Then stato = C.STATO_SOSPESO
If rdb_invisibili.value Then stato = C.STATO_INVISIBILE
Dim y As Integer
For i = C.INIZIO_PILOTI To D.Piloti.Max ' fai girare tutti i piloti
If D.Piloti[i].stato <> C.STATO_ELIMINATO Or ckb_eliminati.value Then ' se pilota era già eliminato ignoralo
If rdb_totale.value Then
D.Piloti[i].inizializza()
Else
With D.Piloti[i]
If ckb_ultimo_volo.value Then
.tempoultimovolo = Time(0, 0, 0)
If ckb_ultimo_volo.value Then .oraultimo = Time(0, 0, 0)
If ckb_numero_voli.value Then
For y = 0 To .get_indice_modelli()
.lista_modelli[2][y] = "0"
Next
Endif
End With
Endif
'ListBox1.Add(D.Piloti[i].situazione(CImpostazioni.vfreq, CImpostazioni.vvoli, Cimpostazioni.vmodello, CImpostazioni.vcostruttore)) ' riscrivi in listbox1
D.Piloti[i].stato = stato
If ckb_totale_tempo.value Then .tempovolo = Time(0, 0, 0)
If ckb_evidenziazione.value Then .evidenzia = False
If ckb_note.value Then .nota = Null
End With
Endif
Endif
With D.Piloti[i]
If rdb_attivi.value Then .stato = C.STATO_LISTA
If rdb_sospesi.value Then .stato = C.STATO_SOSPESO
If rdb_invisibili.value Then .stato = C.STATO_INVISIBILE
.oraprenotazione = Time(0, 0, 0)
.prioritaprenota = 0
.flag = False
.round = Null
.tempoultimovolo = Time(0, 0, 0)
End With
Next
If ckb_cronologia Then D.array_cronologia.clear
d.punta_prenota = 0
F.add_cronologia(-1, ("Inizializzazione piloti"))
Me.close
End
......@@ -519,9 +519,9 @@ Public Sub mnu_inizializza_Click()
If Message.Question(("Sei sicuro di inizializzare tutti i piloti?"), ("No"), ("Si")) = 2 Then
FInizializza.showmodal()
ListBox1.Clear ' cancella le listbox
ListBox2.Clear
ListBox3.clear
ListBox1_Riordina() ' cancella le listbox
ListBox2_Riordina()
listbox3_riordina()
Endif
End
......
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