Class Script
Sub Main
Dim Ru(1),Nu(8),Rit(8) As Integer
Dim ini , fin As Integer
Dim r,p As Integer
Dim T() As String
ini = EstrazioniArchivio -200
fin = EstrazioniArchivio
Scrivi ("Quadro Ritardi su Ruote alla Estrazione fine di : " & GetInfoEstrazione(fin) ,1)
T = {"Ruota","-","Rit1","Rit2","Rit3","Rit4","Rit5","Rit6","Rit7","Rit8"}
Call InitTabella(T,ColoreVerde,,,ColoreBianco)
For r = 1 To 11
Ru(1) = r
For p = 1 To 8
Nu(p) = NumeroPosRit(fin,r,p)
Rit(p) = EstrattoRitardo(Nu(p),r,fin)
Next
T = {NomeRuota(r),"-",Rit(1),Rit(2),Rit(3),Rit(4),Rit(5),Rit(6),Rit(7),Rit(8)}
Call AddRigaTabella(T)
'------------ colore celle e righe ------------------------------------------------
For x As Integer = 1 To 8
Call SetColoreCellaRighe(0,ColoreRosa,ColoreNero) ' colora 1 riga Ruote
Call SetColoreCellaRighe(1,ColoreVerde,ColoreBianco)
If Rit(x) > 99 Then Call SetColoreCellaRighe((x+1),ColoreRosso,ColoreGiallo )
If Rit(x) <= 99 Then Call SetColoreCellaRighe((x+1),ColoreGiallo,ColoreRosso )
Next
'----------------------------------------------------------------------------------
Next
Call CreaTabella()
End Sub
End Classl seguente script, con l'ultima versione 1.0.38, mi da il seguente errore:
"Argomento non specificato per il parametro 'Fine' di Public Function... Rit(p) = EstrattoRitardo(Nu(p),r,fin)
--------------
Anche lo script Primi 10 ritardatari da lo stesso errore
Con la versione precedente funzionavono.
Grazie per la eventuale risposta e saluti a tutti
ùVedi l'allegato 2228833
