+ Rispondi al Thread
Visualizzazione dei risultati da 1 a 8 su 8

Discussione: Array vuoto. Errore run-time "13" 0 "9"

  1. #1
    gmax74 non è in linea Novello
    Luogo
    Italy
    Post
    12

    Array vuoto. Errore run-time "13" 0 "9"

    Buon giorno a tutti !

    il programma che sto cercando di mettere in funzione mi deve leggere un file con divere righe come in es
    --------------------------------------------esempio file in lettura--------------------------------
    R:001:00:001:02:000082:000359:000133:060407:1640:0 062:0011:02:001002005000000000000000000000
    R:002:00:002:00:000000:000000:002222:000000:0000:0 062:0011:01:000000000000000000000000000000
    R:003:00:003:00:000000:000000:003333:000000:0000:0 062:0000:01:000000000000000000000000000000
    R:004:00:004:00:000000:000000:004444:000000:0000:0 062:0000:01:000000000000000000000000000000
    R:005:00:001:02:000082:000359:000133:060407:1640:0 062:0011:02:001002005000000000000000000000
    R:006:00:002:00:000000:000000:002222:000000:0000:0 062:0011:01:000000000000000000000000000000
    R:007:00:003:00:000000:000000:003333:000000:0000:0 062:0000:01:000000000000000000000000000000
    R:008:00:004:00:000000:000000:004444:000000:0000:0 062:0000:01:000000000000000000000000000000
    C:801:00:999:08:000024:000000:000000:060421:1019:0 062:0000:01:000000000000000000000000000000
    C:881:00:000:00:000000:000000:000000:000000:0000:0 062:0000:01:000000000000000000000000000000
    C:802:00:000:00:000000:000000:000000:000000:0000:0 062:0000:01:000000000000000000000000000000
    C:882:00:000:00:000000:000000:000000:000000:0000:0 062:0000:01:000000000000000000000000000000
    C:883:00:000:00:000000:000000:000000:000000:0000:0 062:0000:01:000000000000000000000000000000
    C:899:00:000:00:000000:000000:000000:000000:0000:0 062:0000:01:000000000000000000000000000000
    S:999:00:000:00:000000:000000:000000:000000:0000:0 062:0000:01:000000000000000000000000000000
    ---------------------------------------------------fine eof--------------------------------------------
    Ma in seguente file non ha sempre le stesse righe ma variano secondo come viene configurato dll' utente.

    il mio preblema è il seguente nel momento in cui x es. le linee r:004,r:005:r006 non ci sono in esucuzione il programma mi da un errore run-time "13" 0 "9" sicuramente perchè l' array reletiva è vuota, come posso ovviare a questo problema?

    allego la parte di codice relativa a questa sezione :

    array1 = Split(res(0), ":")
    array2 = Split(res(1), ":")
    array3 = Split(res(2), ":")
    array4 = Split(res(3), ":")
    array5 = Split(res(4), ":")
    array6 = Split(res(5), ":")
    array7 = Split(res(6), ":")
    array8 = Split(res(7), ":")
    array9 = Split(res(8), ":")
    array10 = Split(res(9), ":")
    array11 = Split(res(10), ":")
    array12 = Split(res(11), ":")
    array13 = Split(res(12), ":")
    array14 = Split(res(13), ":")
    array15 = Split(res(14), ":") _____________
    array16 = Split(res(15), ":")--------| Queste |
    array17 = Split(res(16), ":")--------| righe danno |
    array18 = Split(res(17), ":")--------| errore |
    array19 = Split(res(18), ":")--------|_____________|


    If array1(0) <> "s" Then
    Form2.Text1(0).Text = array1(0) & array1(3)
    Form2.Text1(1).Text = array1(7)
    End If
    If array2(0) <> "s" Then
    Form3.Text1(0).Text = array2(0) & array2(3)
    Form3.Text1(1).Text = array2(7)
    End If
    If array3(0) <> "s" Then
    Form4.Text1(0).Text = array3(0) & array3(3)
    Form4.Text1(1).Text = array3(7)
    End If
    If array4(0) <> "s" Then
    Form5.Text1(0).Text = array4(0) & array4(3)
    Form5.Text1(1).Text = array4(7)
    End If
    If array5(0) <> "s" Then
    Form6.Text1(0).Text = array5(0) & array5(3)
    Form6.Text1(1).Text = array5(7)
    End If
    If array6(0) <> "s" Then
    Form7.Text1(0).Text = array6(0) & array6(3)
    Form7.Text1(1).Text = array6(7)
    End If
    If array7(0) <> "s" Then
    Form8.Text1(0).Text = array6(0) & array6(3)
    Form8.Text1(1).Text = array6(7)
    End If
    If array8(0) <> "s" Then
    Form9.Text1(0).Text = array8(0) & array8(3)
    Form9.Text1(1).Text = array8(7)
    End If
    If array9(0) <> "s" Then
    Form10.Text1(0).Text = array9(0) & array9(3)
    Form10.Text1(1).Text = array9(7)
    End If
    If array10(0) <> "s" Then
    Form11.Text1(0).Text = array10(0) & array10(3)
    Form11.Text1(1).Text = array10(7)
    End If
    If array11(0) <> "S" Then
    Debug.Print array11(0)
    Form12.Text1(0).Text = array11(0) & array11(3)
    Form12.Text1(1).Text = array11(7)
    End If
    If array12(0) <> "s" Then
    '.Print array12(0)
    Form11.Text1(0).Text = array12(0) & array12(3)
    Form11.Text1(1).Text = array12(7)
    Else
    End If
    If array13(0) <> "s" Then
    Form12.Text1(0).Text = array13(0) & array13(3)
    Form12.Text1(1).Text = array13(7)
    End If
    If array14(0) <> "s" Then
    Form13.Text1(0).Text = array14(0) & array14(3)
    Form13.Text1(1).Text = array14(7)
    End If
    If array15(0) <> "s" Then
    Form14.Text1(0).Text = array15(0) & array15(3)
    Form14.Text1(1).Text = array15(7)
    End If

    If array16(0) <> "s" Then in questo punto mi da errore!
    Form15.Text1(0).Text = array16(0) & array16(3)
    Form15.Text1(1).Text = array16(7)
    End If
    If array17(0) <> "s" Then
    Form16.Text1(0).Text = array17(0) & array17(3)
    Form16.Text1(1).Text = array17(7)
    End If
    If array18(0) <> "s" Then
    Form17.Text1(0).Text = array18(0) & array18(3)
    Form17.Text1(1).Text = array18(7)
    End If
    If array19(0) <> "s" Then
    Form18.Text1(0).Text = array19(0) & array19(3)
    Form18.Text1(1).Text = array19(7)
    End If
    End Function

    bye gmax74
    Ultima modifica di gmax74; 16-05-2006 14:28 

  2. #2
    L'avatar di AntonioG
    AntonioG non è in linea Moderatore Globale Ultimo blog: Commodore 64 e Codemotion
    Luogo
    Roma
    Post
    16,467
    Blogs
    5
    Buongiorno a te.

    Prima di tutto, ti invito a utilizzare un titolo adeguato per il thread (inutile scrivere Help ... e simili ... se scrivi in un forum e' perche' vuoi avere aiuto, questo e' scontato ...). Questa volta correggo io il titolo ...

    Per il problema dell'array, non si capisce da dove provengano gli elementi

    res(0)
    res(1)
    ...
    Avvisi generali e importanti, a pena CHIUSURA thread e/o BAN
    Il crossposting è vietato.
    Le richieste di "pappa pronta" sono vietate.
    Utilizzate i tag CODE per il codice.
    Leggere il Regolamento per chiarimenti PRIMA di creare nuovi thread.
    Utilizzare sempre i PM per comunicare con i moderatori.
    Non mi contattate in PM per problemi di software, usate il forum

  3. #3
    gmax74 non è in linea Novello
    Luogo
    Italy
    Post
    12
    Quote Originariamente inviato da AntonioGiuliana
    Buongiorno a te.

    Prima di tutto, ti invito a utilizzare un titolo adeguato per il thread (inutile scrivere Help ... e simili ... se scrivi in un forum e' perche' vuoi avere aiuto, questo e' scontato ...). Questa volta correggo io il titolo ...

    Per il problema dell'array, non si capisce da dove provengano gli elementi

    res(0)
    res(1)
    ...
    allora res(0 a 18) &#232; la variabile in cui vado a caricare le righe del file che vado a leggere in prima istanza.. allego il restante del codice :
    codice:
    Option Explicit
    Dim num As String
    Public ddd As String
    Dim res(0 To 18) As String
    Dim F As Integer
    Dim R As Integer
    '---------------------------------------------------
    Dim txt(0 To 18) As String ' variabile numero cassa
    Dim cod(0 To 18) As String  ' variabile action code
    Dim op(0 To 18) As String   ' variabile status
    Dim cop(0 To 18) As String ' variabile codice operatore
    Dim Mnt(18) As String
    Dim conto(0 To 2) As String
    'Dim string1 As String
    Dim array1, array2, array3, array4, array5, array6, array7, array8, array9, array10, array11, array12, array13, array14, array15, array16, array17, array18, array19, array20 As Variant
    '----------------------------------------------------
    Dim d As Integer
    Dim o As Integer
    Dim a As Integer
    Dim c As Integer
    Dim m As Integer
    
    
    
    
    
    
    Function leggi_file()
    'ReDim array1(R)
    
    On Error GoTo errori
    
    Dim filepath As String
        F = FreeFile
    'filepath = InputBox("Inserisci il percorso file", "percoro file", "c:\server\data\mlan999.dat")
        Open "c:\server\data\m_lan999.dat" For Input Shared As #F
        o = 0 ' codice operatore
        R = 0
        a = 0
        c = 0
        d = 0
        m = 0
    Do While Not EOF(F)
        'ReDim Preserve txt(a)
        'ReDim Preserve res(R)
        'ReDim Preserve cod(c)
    'ReDim Preserve array1(100)
    Line Input #F, res(R)
        o = o + 1
        R = R + 1
        a = a + 1
        c = c + 1
        d = d + 1
        m = m + 1
    Loop
        Close #F
    errori:
    Select Case Err.Number
      Case 52
      'nome file errato o numero di file non valido
      Case 53
      Unload Form1
      'il file non e' stato trovato
      Case 54
      'modalit&#224; errata (il codice tenta di scrivere/leggere mentre il file e ancora chiuso/aperto
      Case 55
      'il file &#232; gia stato aperto
      Case 57
      'errore di periferica di i/o
      Case 58
      'file esistente
      Case 59
      'lunghezza del record non valida
      Case 61
      'disco pieno
      Case 62
      '&#232; stato inserito ilcontrollo per la fine del fine nel punto.
      Case 63
      'numero di record non valido
      Case 64
      'nome del file non valido ( non sono state seguite le conversioni tradizionali)
      Case 67
      'troppi file aperti
      Case 68
      ' periferica non pronta
      Case 70
      'accesso negato
      Case 71
      'unita non pronta
      Case 72
      'errore disco
      Case 74
      'non &#232; possibile riniminare i file da un' unita divesa
      Case 75
      'percorso non valido
      Case 76
      'il percorso non esiste
        End Select
      
    
    ' ------------------------CAMPO TESTO 1 / CASSA 1-------------------
    Text1.Text = txt(0)
    txt(0) = Mid$(res(0), 3, 3)
    cop(0) = Mid$(res(0), 10, 3)
    cod(0) = Mid$(res(0), 60, 2)
    op(0) = Mid$(res(0), 14, 2)
        Text1.Text = txt(0)
        Text1.Refresh
        If cod(0) = "0A" Then
        conto(0) = "11"
        ElseIf cod(0) = cod(0) Then
        End If
     Select Case (conto(0) + op(0)) = "1199"
     Case "1199"
        ' Text1.BackColor = &H80000008
        Text1.Text = "999"
        Text1.FontSize = 11
     End Select
     If cod(0) = "0A" Then
        conto(0) = "11"
        ElseIf cod(0) = cod(0) Then
        End If
        'conto(0) = (cod(0) + op(0))
     Select Case (conto(0) + op(0)) = "0198"
     Case "0198"
        ' Text1.BackColor = &H80000008
        Text1.Text = "Eod"
        Text1.FontSize = 11
     End Select
     If cod(0) = "0A" Then
        conto(0) = "11"
        ElseIf cod(0) = cod(0) Then
        End If
        'conto(0) = (cod(0) + op(0))
     Select Case (cod(0) + op(0)) = "0298"
        Case "0298"
        'Text1.BackColor = &H80000008
        Text1.FontSize = 11
        Text1.BackColor = &HFF&
        Text1.Text = "Eod"
     End Select
     If cod(0) = "0A" Then
        conto(0) = "11"
        ElseIf cod(0) = cod(0) Then
        End If
     'conto(0) = (cod(0) + op(0))
     Select Case (conto(0) + op(0)) = "0398"
    Case "0398"
        Text1.BackColor = &H80000008     ' blu  off-line reverse
        Text1.ForeColor = &HFFFFFF
        Text1.FontSize = 11
        Text1.Text = "Eod"
     End Select
     If cod(0) = "0A" Then
        conto(0) = "11"
        ElseIf cod(0) = cod(0) Then
        End If
     'cassa in blocco EOD
     'conto(0) = cop(0) + op(0) + cod(0)
      Select Case (cop(0) + op(0) + conto(0)) = "8019911" ' cassa bloccata in eod
        Case "8019911" ' ( condizione blocco cassa in eod action (cod)+ status(op) + cassiere (cop))
        Text1.BackColor = &H80000008     ' blu  off-line reverse
        Text1.ForeColor = &HFFFFFF
        Text1.FontSize = 11
        End Select
    Select Case cop(0) = "801"
     Case "801"
        Text1.Text = "999"
        Text1.ToolTipText = "cassa " & txt(0) & " bloccata in Eod"
     End Select
     If cod(0) = "0A" Then
        conto(0) = "11"
        ElseIf cod(0) = cod(0) Then
        End If
     'conto(0) = op(0) + cod(0)
     Select Case (op(0) + cod(0)) = "9802"
      'Debug.Print conto(0)
     Case "9802"
       Text1.Text = "EOD"
       Text1.ToolTipText = "cassa " & txt(0) & " esclusa da Eod"
     End Select
     Select Case (op(0) + cod(0)) = "0104"
      Case "0104"
        Text1.Text = txt(4)
        Text1.ToolTipText = "Grandmaster ATTIVO "
     End Select
      Select Case (op(0) + cod(0)) = "0204"
      Case "0204"
        Text1.Text = txt(0)
        Text1.ToolTipText = "Grandmaster ATTIVO "
     End Select
     Select Case (op(0) + cod(0)) = "0801"
      Case "0801"
        Text1.Text = txt(0)
        Text1.ToolTipText = "Grandmaster CHIUSO "
     End Select
     
     'fine cassa blocco eod
     If cod(0) = "0A" Then
        conto(0) = "11"
        ElseIf cod(0) = cod(0) Then
        End If
    Select Case cod(0)
    
        Case ""
            Text1.Text = "REG"
            Text1.FontSize = 11
        Case "00"
            Text1.BackColor = &HFF00& ' verde on-line
            Text1.FontSize = 11
        Case "01"
            Text1.BackColor = &HFF& '  rosso off-line
            Text1.FontSize = 11
        Case "02"
            Text1.BackColor = &H80000008     ' blu  off-line reverse
            Text1.ForeColor = &HFFFFFF
            Text1.FontSize = 11
        Case "04"
            Text1.BackColor = &HFFFF& '     giallo spc-onlie(special mode)
            Text1.FontSize = 11
        Case "08"
            Text1.BackColor = &HC000C0 '    eod viola
            Text1.FontSize = 11
        Case "20"
            Text1.BackColor = &H404080    ' pickup marrone
            Text1.FontSize = 11
        Case "80"
            Text1.BackColor = &H404080    ' mirror blu
            Text1.FontSize = 11
        Case "0A"
            Text1.BackColor = &HFF0000      ' mirror blu
            Text1.FontSize = 11
        Case "0A99801"
            Text1.BackColor = &HFF0000      ' mirror blu
            Text1.FontSize = 11
            Text1.Text = "EOD"
        Case "8019802"
            Text1.BackColor = &HFF0000      ' mirror blu
            Text1.FontSize = 11
            Text1.Text = "EOD"
    End Select
    '---------------------FINE CASSA 1-----------------------
    '---------------------CASSA2-----------------------------
     Text2.Text = txt(1)
     txt(1) = Mid$(res(1), 3, 3)
     cop(1) = Mid$(res(1), 10, 3)
     cod(1) = Mid$(res(1), 60, 2)
     op(1) = Mid$(res(1), 14, 2)
     Text2.Text = txt(1)
     Text2.Refresh
     If cod(1) = "0A" Then
        conto(1) = "11"
        ElseIf cod(1) = cod(1) Then
        End If
      Select Case (cod(1) + op(1)) = "0198"
     Case "0198"
        ' Text2.BackColor = &H80000008
        Text2.Text = "Eod"
        Text2.FontSize = 11
     End Select
     If cod(1) = "0A" Then
        conto(1) = "11"
        ElseIf cod(1) = cod(1) Then
        End If
     Select Case (cod(1) + op(1)) = "0298"
        Case "0298"
        'Text2.BackColor = &H80000008
        Text2.FontSize = 11
        'Text2.BackColor = &HFF&
        Text2.Text = "Eod"
     End Select
     If cod(1) = "0A" Then
        conto(1) = "11"
        ElseIf cod(1) = cod(1) Then
        End If
     Select Case (cod(1) + op(1)) = "0398"
    Case "0398"
        Text2.BackColor = &H80000008     ' blu  off-line reverse
        Text2.ForeColor = &HFFFFFF
        Text2.FontSize = 11
        Text2.Text = "Eod"
     End Select
     If cod(1) = "0A" Then
        conto(1) = "11"
        ElseIf cod(1) = cod(1) Then
        End If
     'cassa in blocco EOD
      Select Case (conto(1) + op(1) + cop(1)) = "1199801" ' cassa bloccata in eod
    Case "1199801" ' ( condizione blocco cassa in eod action (cod)+ status(op) + cassiere (cop))
        Text2.BackColor = &H80000008     ' blu  off-line reverse
        Text2.ForeColor = &HFFFFFF
        Text2.FontSize = 11
        End Select
    Select Case cop(1) = "801"
     Case "801"
        Text2.Text = "999"
        Text2.ToolTipText = "cassa " & txt(1) & " bloccata in Eod"
     End Select
     'fine cassa blocco eod
     Select Case (op(1) + cod(1)) = "9802"
      'Debug.Print conto(0)
     Case "9802"
       Text2.Text = "EOD"
       Text2.ToolTipText = "cassa " & txt(1) & " esclusa da Eod"
     End Select
     Select Case (op(1) + cod(1)) = "0104"
      Case "0104"
        Text2.Text = txt(4)
        Text2.ToolTipText = "Grandmaster ATTIVO "
     End Select
      Select Case (op(1) + cod(1)) = "0204"
      Case "0204"
        Text2.Text = txt(4)
        Text2.ToolTipText = "Grandmaster ATTIVO "
     End Select
     Select Case (op(1) + cod(1)) = "0801"
      Case "0801"
        Text2.Text = txt(1)
        Text2.ToolTipText = "Grandmaster CHIUSO "
     End Select
     
      Select Case cod(1)
         Case ""
            Text2.Text = "REG"
            Text2.FontSize = 11
        Case "00"
            Text2.BackColor = &HFF00& ' verde on-line
            Text2.FontSize = 11
        Case "01"
            Text2.BackColor = &HFF& '  rosso off-line
            Text2.FontSize = 11
        Case "02"
            Text2.BackColor = &H80000008     ' blu  off-line reverse
            Text2.ForeColor = &HFFFFFF
            Text2.FontSize = 11
        Case "04"
            Text2.BackColor = &HFFFF& '     giallo spc-onlie(special mode)
            Text2.FontSize = 11
        Case "08"
            Text2.BackColor = &HC000C0 '    eod viola
            Text2.FontSize = 11
        Case "20"
            Text2.BackColor = &H404080    ' pickup marrone
            Text2.FontSize = 11
        Case "80"
            Text2.BackColor = &H404080    ' mirror blu
            Text2.FontSize = 11
        Case "0A"
            Text2.BackColor = &HFF0000      ' mirror blu
            Text2.FontSize = 11
        Case "0A99801"
        'Text2.BackColor = &HFF0000      ' mirror blu
        'Text2.FontSize = 11
            Text2.Text = "801"
    End Select
    
    '---------------------------FINE CASSA 2--------------------------
    '---------------------------CASSA3--------------------------------
    Text3.Text = txt(2)
     txt(2) = Mid$(res(2), 3, 3)
     cop(2) = Mid$(res(2), 10, 3)
     cod(2) = Mid$(res(2), 60, 2)
     op(2) = Mid$(res(2), 14, 2)
     Text3.Text = txt(2)
     Text3.Refresh
     Select Case (conto(0) + op(2)) = "1199"
     Case "1199"
        ' Text1.BackColor = &H80000008
        Text3.Text = "999"
        Text3.FontSize = 11
     End Select
      Select Case (cod(2) + op(2)) = "0198"
     Case "0198"
        ' text3.BackColor = &H80000008
        Text3.Text = "Eod"
        Text3.FontSize = 11
     End Select
     Select Case (cod(2) + op(2)) = "0298"
        Case "0298"
        'text3.BackColor = &H80000008
        Text3.FontSize = 11
        Text3.BackColor = &HFF&
        Text3.Text = "Eod"
     End Select
     Select Case (cod(2) + op(2)) = "0398"
    Case "0398"
        Text3.BackColor = &H80000008     ' blu  off-line reverse
        Text3.ForeColor = &HFFFFFF
        Text3.FontSize = 11
        Text3.Text = "Eod"
     End Select
     
     'cassa in blocco EOD
    Select Case (conto(0) + op(2) + cop(2)) = "1199801" ' cassa bloccata in eod
        Case "1199801" ' ( condizione blocco cassa in eod action (cod)+ status(op) + cassiere (cop))
            Text3.BackColor = &H80000008     ' blu  off-line reverse
            Text3.ForeColor = &HFFFFFF
            Text3.FontSize = 11
        End Select
    Select Case cop(2) = "801"
        Case "801"
            Text3.Text = "999"
            Text3.ToolTipText = "cassa " & txt(2) & " bloccata in Eod"
    End Select
     'fine cassa blocco eod
    Select Case (op(2) + cod(2)) = "9802"
      'Debug.Print conto(0)
     Case "9802"
       Text3.Text = "EOD"
       Text3.ToolTipText = "cassa " & txt(2) & " esclusa da Eod"
     End Select
     Select Case (op(2) + cod(2)) = "0104"
      Case "0104"
        Text3.Text = txt(2)
        Text3.ToolTipText = "Grandmaster ATTIVO "
     End Select
      Select Case (op(2) + cod(2)) = "0204"
      Case "0204"
        Text3.Text = txt(2)
        Text3.ToolTipText = "Grandmaster ATTIVO "
     End Select
     Select Case (op(2) + cod(2)) = "0801"
      Case "0801"
        Text3.Text = txt(2)
        Text3.ToolTipText = "Grandmaster CHIUSO "
     End Select
     
     Select Case cod(2)
        Case ""
    Text3.Text = "REG"
    Text3.FontSize = 11
        Case "00"
    Text3.BackColor = &HFF00& ' verde on-line
    Text3.FontSize = 11
        Case "01"
    Text3.BackColor = &HFF& '  rosso off-line
    Text3.FontSize = 11
        Case "02"
    Text3.BackColor = &H80000008     ' blu  off-line reverse
    Text3.ForeColor = &HFFFFFF
    Text3.FontSize = 11
        Case "04"
    Text3.BackColor = &HFFFF& '     giallo spc-onlie(special mode)
    Text3.FontSize = 11
    Case "08"
        Text3.BackColor = &HC000C0 '    eod viola
        Text3.FontSize = 11
    Case "20"
        Text3.BackColor = &H404080    ' pickup marrone
        Text3.FontSize = 11
    Case "80"
        Text3.BackColor = &H404080    ' mirror blu
        Text3.FontSize = 11
    Case "0A"
            Text3.BackColor = &HFF0000      ' mirror blu
            Text3.FontSize = 11
        Case "0A99801"
        'Text2.BackColor = &HFF0000      ' mirror blu
        'Text2.FontSize = 10
            Text3.Text = "801"
    End Select
    '-------------------------FINE CASSA 3---------------------------
    '-------------------------CASSA 4--------------------------------
    Text4.Text = txt(3)
     txt(3) = Mid$(res(3), 3, 3)
     cop(3) = Mid$(res(3), 10, 3)
     cod(3) = Mid$(res(3), 60, 2)
     op(3) = Mid$(res(3), 14, 2)
     Text4.Text = txt(3)
     Text4.Refresh
      Select Case (cod(3) + op(3)) = "0198"
     Case "0198"
        ' text4.BackColor = &H80000008
        Text4.Text = "Eod"
        Text4.FontSize = 11
     End Select
     Select Case (cod(3) + op(3)) = "0298"
        Case "0298"
        'text4.BackColor = &H80000008
        Text4.FontSize = 11
        Text4.BackColor = &HFF&
        Text4.Text = "Eod"
     End Select
     Select Case (cod(3) + op(3)) = "0398"
    Case "0398"
        Text4.BackColor = &H80000008     ' blu  off-line reverse
        Text4.ForeColor = &HFFFFFF
        Text4.FontSize = 11
        Text4.Text = "Eod"
     End Select
     'cassa in blocco EOD
      Select Case (conto(0) + op(3) + cop(3)) = "1199801" ' cassa bloccata in eod
    Case "1199801" ' ( condizione blocco cassa in eod action (cod)+ status(op) + cassiere (cop))
        Text4.BackColor = &H80000008     ' blu  off-line reverse
        Text4.ForeColor = &HFFFFFF
        Text4.FontSize = 11
        End Select
    Select Case cop(3) = "801"
     Case "801"
        Text4.Text = "999"
        Text4.ToolTipText = "cassa " & txt(3) & " bloccata in Eod"
     End Select
     'fine cassa blocco eod
     Select Case (op(3) + cod(3)) = "9802"
      'Debug.Print conto(0)
     Case "9802"
       Text4.Text = "EOD"
       Text4.ToolTipText = "cassa " & txt(3) & " esclusa da Eod"
     End Select
     Select Case (op(3) + cod(3)) = "0104"
      Case "0104"
        Text4.Text = txt(3)
        Text4.ToolTipText = "Grandmaster ATTIVO "
     End Select
      Select Case (op(3) + cod(3)) = "0204"
      Case "0204"
        Text4.Text = txt(3)
        Text4.ToolTipText = "Grandmaster ATTIVO "
     End Select
     Select Case (op(3) + cod(3)) = "0801"
      Case "0801"
        Text4.Text = txt(3)
        Text4.ToolTipText = "Grandmaster CHIUSO "
     End Select
     
     Select Case cod(3)
        Case ""
            Text4.Text = "REG"
            Text4.FontSize = 11
        Case "00"
            Text4.BackColor = &HFF00& ' verde on-line
            Text4.FontSize = 11
        Case "01"
            Text4.BackColor = &HFF& '  rosso off-line
            Text4.FontSize = 11
        Case "02"
            Text4.BackColor = &H80000008     ' blu  off-line reverse
            Text4.ForeColor = &HFFFFFF
            Text4.FontSize = 11
        Case "04"
            Text4.BackColor = &HFFFF& '     giallo spc-onlie(special mode)
            Text4.FontSize = 11
        Case "08"
            Text4.BackColor = &HC000C0 '    eod viola
            Text4.FontSize = 11
        Case "20"
            Text4.BackColor = &H404080    ' pickup marrone
            Text4.FontSize = 11
        Case "80"
            Text4.BackColor = &H404080    ' mirror blu
            Text4.FontSize = 11
        Case "0A"
            Text4.BackColor = &HFF0000      ' mirror blu
            Text4.FontSize = 11
        Case "0A99801"
            'Text4.BackColor = &HFF0000      ' mirror blu
            'Text4.FontSize = 10
            Text4.Text = "801"
    End Select
    '---------------------------FINE CASSA 4--------------------------
    '-----------------------------CASSA 5-----------------------------
    Text5.Text = txt(4)
     txt(4) = Mid$(res(4), 3, 3)
     cop(4) = Mid$(res(4), 10, 3)
     cod(4) = Mid$(res(4), 60, 2)
     op(4) = Mid$(res(4), 14, 2)
     Text5.Text = txt(4)
     Text5.Refresh
      Select Case (conto(0) + op(0)) = "1199"
     Case "1199"
        ' Text1.BackColor = &H80000008
        Text5.Text = "999"
        Text5.FontSize = 11
     End Select
      Select Case (cod(4) + op(4)) = "0198"
     Case "0198"
        ' text5.BackColor = &H80000008
        Text5.Text = "Eod"
        Text5.FontSize = 11
     End Select
     Select Case (cod(4) + op(4)) = "0298"
        Case "0298"
        'text5.BackColor = &H80000008
        Text5.FontSize = 11
        Text5.BackColor = &HFF&
        Text5.Text = "Eod"
     End Select
     Select Case (cod(4) + op(4)) = "0398"
    Case "0398"
        Text5.BackColor = &H80000008     ' blu  off-line reverse
        Text5.ForeColor = &HFFFFFF
        Text5.FontSize = 11
        Text5.Text = "Eod"
     End Select
     
     'cassa in blocco EOD
      Select Case (conto(0) + op(4) + cop(4)) = "1199801" ' cassa bloccata in eod
        Case "1199801" ' ( condizione blocco cassa in eod action (cod)+ status(op) + cassiere (cop))
            Text5.BackColor = &H80000008     ' blu  off-line reverse
            Text5.ForeColor = &HFFFFFF
            Text5.FontSize = 11
        End Select
        Select Case cop(4) = "801"
        Case "801"
            Text5.Text = "999"
            Text5.ToolTipText = "cassa " & txt(4) & " bloccata in Eod"
     End Select
     'fine cassa blocco eod
     Select Case (op(4) + cod(4)) = "9802"
      Case "9802"
        Text5.Text = "EOD"
        Text5.ToolTipText = "cassa " & txt(4) & " esclusa da Eod"
     End Select
      Select Case (op(4) + cod(4)) = "0104"
      Case "0104"
        Text5.Text = txt(4)
        Text5.ToolTipText = "Grandmaster ATTIVO "
     End Select
      Select Case (op(4) + cod(4)) = "0204"
      Case "0204"
        Text5.Text = txt(4)
        Text5.ToolTipText = "Grandmaster ATTIVO "
     End Select
     Select Case (op(4) + cod(4)) = "0801"
      Case "0801"
        Text5.Text = txt(4)
        Text5.ToolTipText = "Grandmaster CHIUSO "
     End Select
     
     Select Case cod(4)
         Case ""
            Text5.Text = "REG"
            Text5.FontSize = 11
        Case "00"
            Text5.BackColor = &HFF00& ' verde on-line
            Text5.FontSize = 11
        Case "01"
            Text5.BackColor = &HFF& '  rosso off-line
            Text5.FontSize = 11
        Case "02"
            Text5.BackColor = &H80000008     ' blu  off-line reverse
            Text5.ForeColor = &HFFFFFF
            Text5.FontSize = 11
        Case "04"
            Text5.BackColor = &HFFFF& '     giallo spc-onlie(special mode)
            Text5.FontSize = 11
        Case "08"
            Text5.BackColor = &HC000C0 '    eod viola
            Text5.FontSize = 11
        Case "20"
            Text5.BackColor = &H404080    ' pickup marrone
            Text5.FontSize = 11
        Case "80"
            Text5.BackColor = &H404080    ' mirror blu
            Text5.FontSize = 11
        Case "0A"
            Text5.BackColor = &HFF0000      ' mirror blu
            Text5.FontSize = 11
        Case "0A99801"
        'Text5.BackColor = &HFF0000      ' mirror blu
        'Text5.FontSize = 10
            Text5.Text = "801"
    End Select
    '------------------------------------FINE 5----------------------
    '------------------------------------CASSA6----------------------
    Text6.Text = txt(5)
     txt(5) = Mid$(res(5), 3, 3)
     cop(5) = Mid$(res(5), 10, 3)
     cod(5) = Mid$(res(5), 60, 2)
     op(5) = Mid$(res(5), 14, 2)
     Text6.Text = txt(5)
     Text6.Refresh
       Select Case (cod(5) + op(5)) = "0198"
     Case "0198"
        ' text5.BackColor = &H80000008
        Text6.Text = "Eod"
        Text6.FontSize = 11
     End Select
     Select Case (cod(5) + op(5)) = "0298"
        Case "0298"
        'text5.BackColor = &H80000008
        Text6.FontSize = 11
        Text6.BackColor = &HFF&
        Text6.Text = "Eod"
     End Select
     Select Case (cod(5) + op(5)) = "0398"
    Case "0398"
        Text6.BackColor = &H80000008     ' blu  off-line reverse
        Text6.ForeColor = &HFFFFFF
        Text6.FontSize = 11
        Text6.Text = "Eod"
    End Select
    
    'cassa in blocco EOD
      Select Case (conto(0) + op(5) + cop(5)) = "1199801" ' cassa bloccata in eod
    Case "1199801" ' ( condizione blocco cassa in eod action (cod)+ status(op) + cassiere (cop))
        Text6.BackColor = &H80000008     ' blu  off-line reverse
        Text6.ForeColor = &HFFFFFF
        Text6.FontSize = 11
        End Select
    Select Case cop(5) = "801"
     Case "801"
        Text6.Text = "999"
        Text6.ToolTipText = "cassa " & txt(5) & " bloccata in Eod"
     End Select
     'fine cassa blocco eod
    Select Case (op(5) + cod(5)) = "9802"
      'Debug.Print conto(0)
     Case "9802"
       Text6.Text = "EOD"
       Text6.ToolTipText = "cassa " & txt(5) & " esclusa da Eod"
     End Select
     Select Case (op(5) + cod(5)) = "0104"
      Case "0104"
        Text6.Text = txt(5)
        Text6.ToolTipText = "Grandmaster ATTIVO "
     End Select
      Select Case (op(5) + cod(5)) = "0204"
      Case "0204"
        Text6.Text = txt(5)
        Text6.ToolTipText = "Grandmaster ATTIVO "
     End Select
     Select Case (op(5) + cod(5)) = "0801"
      Case "0801"
        Text6.Text = txt(5)
        Text6.ToolTipText = "Grandmaster CHIUSO "
     End Select
     '-------------------------------------------------------------
     Select Case cod(5)
        Case ""
            Text6.Text = "REG"
            Text6.FontSize = 11
        Case "00"
            Text6.BackColor = &HFF00& ' verde on-line
            Text6.FontSize = 11
        Case "01"
            Text6.BackColor = &HFF& '  rosso off-line
            Text6.FontSize = 11
        Case "02"
            Text6.BackColor = &H80000008     ' blu  off-line reverse
            Text6.ForeColor = &HFFFFFF
            Text6.FontSize = 11
        Case "04"
            Text6.BackColor = &HFFFF& '     giallo spc-onlie(special mode)
            Text6.FontSize = 11
        Case "08"
            Text6.BackColor = &HC000C0 '    eod viola
            Text6.FontSize = 11
        Case "20"
            Text6.BackColor = &H404080    ' pickup marrone
            Text6.FontSize = 11
        Case "80"
            Text6.BackColor = &H404080    ' mirror blu
            Text6.FontSize = 11
        Case "0A"
            Text6.BackColor = &HFF0000      ' mirror blu
            Text6.FontSize = 11
        Case "0A99801"
        'Text6.BackColor = &HFF0000      ' mirror blu
        'Text6.FontSize=11
            Text6.Text = "801"
    End Select
    '-----------------------------------FINE CASSA 6--------------
    '-----------------------------------CASSA 7-------------------
    Text7.Text = txt(6)
     txt(6) = Mid$(res(6), 3, 3)
     cop(6) = Mid$(res(6), 10, 3)
     cod(6) = Mid$(res(6), 60, 2)
     op(6) = Mid$(res(6), 14, 2)
     Text7.Text = txt(6)
     Text7.Refresh
        Select Case (cod(6) + op(6)) = "0198"
     Case "0198"
        ' text5.BackColor = &H80000008
        Text7.Text = "Eod"
        Text7.FontSize = 11
     End Select
     Select Case (cod(6) + op(6)) = "0298"
        Case "0298"
        'text7.BackColor = &H80000008
        Text7.FontSize = 11
        Text7.BackColor = &HFF&
        Text7.Text = "Eod"
     End Select
     Select Case (cod(6) + op(6)) = "0398"
    Case "0398"
        Text7.BackColor = &H80000008     ' blu  off-line reverse
        Text7.ForeColor = &HFFFFFF
        Text7.FontSize = 11
        Text7.Text = "Eod"
    End Select
    
    'cassa in blocco EOD
      Select Case (conto(0) + op(6) + cop(6)) = "1199801" ' cassa bloccata in eod
    Case "1199801" ' ( condizione blocco cassa in eod action (cod)+ status(op) + cassiere (cop))
        Text7.BackColor = &H80000008     ' blu  off-line reverse
        Text7.ForeColor = &HFFFFFF
        Text7.FontSize = 11
        End Select
    Select Case cop(6) = "801"
     Case "801"
        Text7.Text = "999"
        Text7.ToolTipText = "cassa " & txt(6) & " bloccata in Eod"
     End Select
     'fine cassa blocco eod5
     Select Case (op(6) + cod(6)) = "9802"
      'Debug.Print conto(0)
     Case "9802"
       Text7.Text = "EOD"
       Text7.ToolTipText = "cassa " & txt(6) & " esclusa da Eod"
     End Select
     Select Case (op(6) + cod(6)) = "0104"
      Case "0104"
        Text7.Text = txt(4)
        Text7.ToolTipText = "Grandmaster ATTIVO "
     End Select
      Select Case (op(6) + cod(6)) = "0204"
      Case "0204"
        Text7.Text = txt(4)
        Text7.ToolTipText = "Grandmaster ATTIVO "
     End Select
     Select Case (op(6) + cod(6)) = "0801"
      Case "0801"
        Text7.Text = txt(6)
        Text7.ToolTipText = "Grandmaster CHIUSO "
     End Select
     Select Case cod(6)
        Case ""
            Text7.Text = "REG"
            Text7.FontSize = 11
        Case "00"
            Text7.BackColor = &HFF00& ' verde on-line
            Text7.FontSize = 11
        Case "01"
            Text7.BackColor = &HFF& '  rosso off-line
            Text7.FontSize = 11
        Case "02"
            Text7.BackColor = &H80000008     ' blu  off-line reverse
            Text7.ForeColor = &HFFFFFF
            Text7.FontSize = 11
        Case "04"
            Text7.BackColor = &HFFFF& '     giallo spc-onlie(special mode)
            Text7.FontSize = 11
        Case "08"
            Text7.BackColor = &HC000C0 '    eod viola
            Text7.FontSize = 11
        Case "20"
            Text7.BackColor = &H404080    ' pickup marrone
            Text7.FontSize = 11
        Case "80"
            Text7.BackColor = &H404080    ' mirror blu
            Text7.FontSize = 11
        Case "0A"
            Text7.BackColor = &HFF0000      ' mirror blu
            Text7.FontSize = 11
        Case "0A99801"
        'Text7.BackColor = &HFF0000      ' mirror blu
        'Text7.FontSize=11
            Text7.Text = "801"
    End Select
    '--------------------------------FINE CASSA 7---------------------
    '--------------------------------CASSA 8 -------------------------
    Text8.Text = txt(7)
     txt(7) = Mid$(res(7), 3, 3)
     cop(7) = Mid$(res(7), 10, 3)
     cod(7) = Mid$(res(7), 60, 2)
     op(7) = Mid$(res(7), 14, 2)
     Text8.Text = txt(7)
     Text8.Refresh
        Select Case (cod(7) + op(7)) = "0198"
     Case "0198"
        ' text8.BackColor = &H80000008
        Text8.Text = "Eod"
        Text8.FontSize = 11
     End Select
     Select Case (cod(7) + op(7)) = "0298"
        Case "0298"
        'text8.BackColor = &H80000008
        Text8.FontSize = 11
        Text8.BackColor = &HFF&
        Text8.Text = "Eod"
     End Select
     Select Case (cod(7) + op(7)) = "0398"
    Case "0398"
        Text8.BackColor = &H80000008     ' blu  off-line reverse
        Text8.ForeColor = &HFFFFFF
        Text8.FontSize = 11
        Text8.Text = "Eod"
    End Select
    
    'cassa in blocco EOD
      Select Case (conto(0) + op(7) + cop(7)) = "1199801" ' cassa bloccata in eod
    Case "1199801" ' ( condizione blocco cassa in eod action (cod)+ status(op) + cassiere (cop))
        Text8.BackColor = &H80000008     ' blu  off-line reverse
        Text8.ForeColor = &HFFFFFF
        Text8.FontSize = 11
        End Select
    Select Case cop(7) = "801"
     Case "801"
        Text8.Text = "999"
        Text8.ToolTipText = "cassa " & txt(7) & " bloccata in Eod"
     End Select
     'fine cassa blocco eod
     Select Case (op(7) + cod(7)) = "9802"
      'Debug.Print conto(0)
     Case "9802"
       Text8.Text = "EOD"
       Text8.ToolTipText = "cassa " & txt(7) & " esclusa da Eod"
     End Select
     Select Case (op(7) + cod(7)) = "0104"
      Case "0104"
        Text8.Text = txt(7)
        Text8.ToolTipText = "Grandmaster ATTIVO "
     End Select
      Select Case (op(7) + cod(7)) = "0204"
      Case "0204"
        Text8.Text = txt(7)
        Text8.ToolTipText = "Grandmaster ATTIVO "
     End Select
     Select Case (op(7) + cod(7)) = "0801"
      Case "0801"
        Text8.Text = txt(7)
        Text8.ToolTipText = "Grandmaster CHIUSO "
     End Select
     
     Select Case cod(7)
        Case ""
            Text18.Text = "REG"
            Text8.FontSize = 11
        Case "00"
            Text8.BackColor = &HFF00& ' verde on-line
            Text8.FontSize = 11
        Case "01"
            Text8.BackColor = &HFF& '  rosso off-line
            Text8.FontSize = 11
        Case "02"
            Text8.BackColor = &H80000008     ' blu  off-line reverse
            Text8.ForeColor = &HFFFFFF
            Text8.FontSize = 11
        Case "04"
            Text8.BackColor = &HFFFF& '     giallo spc-onlie(special mode)
            Text8.FontSize = 11
        Case "08"
            Text8.BackColor = &HC000C0 '    eod viola
            Text8.FontSize = 11
        Case "20"
            Text8.BackColor = &H404080    ' pickup marrone
            Text8.FontSize = 11
        Case "80"
            Text8.BackColor = &H404080    ' mirror blu
            Text8.FontSize = 11
        Case "0A"
            Text8.BackColor = &HFF0000      ' mirror blu
            Text8.FontSize = 11
        Case "0A99801"
            'Text8.BackColor = &HFF0000      ' mirror blu
            'Text8.FontSize=11
            Text8.Text = "801"
    End Select
    '--------------------------------FINE CASSA 8------------------
    '----------------------------------CASSA 9---------------------
    Text9.Text = txt(8)
     txt(8) = Mid$(res(8), 3, 3)
     cop(8) = Mid$(res(8), 10, 3)
     cod(8) = Mid$(res(8), 60, 2)
     op(8) = Mid$(res(8), 14, 2)
    Text9.Text = txt(8)
    Text9.Refresh
        Select Case (cod(8) + op(8)) = "0198"
     Case "0198"
        ' text9.BackColor = &H80000008
        Text9.Text = "Eod"
        Text9.FontSize = 11
     End Select
     Select Case (cod(8) + op(8)) = "0298"
        Case "0298"
        'text9.BackColor = &H80000008
        Text9.FontSize = 11
        Text9.BackColor = &HFF&
        Text9.Text = "Eod"
     End Select
     Select Case (cod(8) + op(8)) = "0398"
    Case "0398"
        Text9.BackColor = &H80000008     ' blu  off-line reverse
        Text9.ForeColor = &HFFFFFF
        Text9.FontSize = 11
        Text9.Text = "Eod"
    End Select
    'cassa in blocco EOD
      Select Case (conto(0) + op(8) + cop(8)) = "1199801" ' cassa bloccata in eod
    Case "1199801" ' ( condizione blocco cassa in eod action (cod)+ status(op) + cassiere (cop))
        Text9.BackColor = &H80000008     ' blu  off-line reverse
        Text9.ForeColor = &HFFFFFF
        Text9.FontSize = 11
        End Select
    Select Case cop(8) = "801"
     Case "801"
        Text9.Text = "999"
        Text9.ToolTipText = "cassa " & txt(8) & " bloccata in Eod"
     End Select
     'fine cassa blocco eod
     Select Case (op(8) + cod(8)) = "9802"
      'Debug.Print conto(0)
     Case "9802"
       Text9.Text = "EOD"
       Text9.ToolTipText = "cassa " & txt(8) & " esclusa da Eod"
     End Select
     Select Case (op(8) + cod(8)) = "0104"
      Case "0104"
        Text9.Text = txt(4)
        Text9.ToolTipText = "Grandmaster ATTIVO "
     End Select
      Select Case (op(8) + cod(8)) = "0204"
      Case "0204"
        Text9.Text = txt(8)
        Text9.ToolTipText = "Grandmaster ATTIVO "
     End Select
     Select Case (op(8) + cod(8)) = "0801"
      Case "0801"
        Text9.Text = txt(8)
        Text9.ToolTipText = "Grandmaster CHIUSO "
     End Select
     
     Select Case cod(8)
        Case ""
            Text9.Text = "REG"
            Text9.FontSize = 11
        Case "00"
            Text9.BackColor = &HFF00& ' verde on-line
            Text9.FontSize = 11
        Case "01"
            Text9.BackColor = &HFF& '  rosso off-line
            Text9.FontSize = 11
        Case "02"
            Text9.BackColor = &H80000008     ' blu  off-line reverse
            Text9.ForeColor = &HFFFFFF
            Text9.FontSize = 11
        Case "04"
            Text9.BackColor = &HFFFF& '     giallo spc-onlie(special mode)
            Text9.FontSize = 11
        Case "08"
            Text9.BackColor = &HC000C0 '    eod viola
            Text9.FontSize = 11
        Case "20"
            Text9.BackColor = &H404080    ' pickup marrone
            Text9.FontSize = 11
        Case "80"
            Text9.BackColor = &H404080    ' mirror blu
            Text9.FontSize = 11
        Case "0A"
            Text9.BackColor = &HFF0000      ' mirror blu
            Text9.FontSize = 11
        Case "0A99801"
        'Text2.BackColor = &HFF0000      ' mirror blu
        'Text2.FontSize = 10
            Text9.Text = "801"
    End Select
    '-------------------------------FINE CASSA 9---------------------------
    '-------------------------------CASSA 10-------------------------------
    Text10.Text = txt(9)
     txt(9) = Mid$(res(9), 3, 3)
     cop(9) = Mid$(res(9), 10, 3)
     cod(9) = Mid$(res(9), 60, 2)
     op(9) = Mid$(res(9), 14, 2)
     Text10.Text = txt(9)
     Text10.Refresh
        Select Case (cod(9) + op(9)) = "0198"
     Case "0198"
        ' text10.BackColor = &H80000008
        Text10.Text = "Eod"
        Text10.FontSize = 11
     End Select
     Select Case (cod(9) + op(9)) = "0298"
        Case "0298"
        'text10.BackColor = &H80000008
        Text10.FontSize = 11
        Text10.BackColor = &HFF&
        Text10.Text = "Eod"
     End Select
     Select Case (cod(9) + op(9)) = "0398"
    Case "0398"
        Text10.BackColor = &H80000008     ' blu  off-line reverse
        Text10.ForeColor = &HFFFFFF
        Text10.FontSize = 11
        Text10.Text = "Eod"
    End Select
    'cassa in blocco EOD
      Select Case (conto(0) + op(9) + cop(9)) = "1199801" ' cassa bloccata in eod
    Case "1199801" ' ( condizione blocco cassa in eod action (cod)+ status(op) + cassiere (cop))
        Text10.BackColor = &H80000008     ' blu  off-line reverse
        Text10.ForeColor = &HFFFFFF
        Text10.FontSize = 11
        End Select
    Select Case cop(9) = "801"
     Case "801"
        Text10.Text = "999"
        Text10.ToolTipText = "cassa " & txt(9) & " bloccata in Eod"
     End Select
     'fine cassa blocco eod
     Select Case (op(9) + cod(9)) = "9802"
      'Debug.Print conto(0)
     Case "9802"
       Text10.Text = "EOD"
       Text10.ToolTipText = "cassa " & txt(9) & " esclusa da Eod"
     End Select
     Select Case (op(9) + cod(9)) = "0104"
      Case "0104"
        Text10.Text = txt(9)
        Text10.ToolTipText = "Grandmaster ATTIVO "
     End Select
      Select Case (op(9) + cod(9)) = "0204"
      Case "0204"
        Text10.Text = txt(9)
        Text10.ToolTipText = "Grandmaster ATTIVO "
     End Select
     Select Case (op(9) + cod(9)) = "0801"
      Case "0801"
        Text10.Text = txt(9)
        Text10.ToolTipText = "Grandmaster CHIUSO "
     End Select
    
     Select Case cod(9)
        Case ""
            Text10.Text = "REG"
            Text10.FontSize = 11
        Case "00"
            Text10.BackColor = &HFF00& ' verde on-line
            Text10.FontSize = 11
        Case "01"
            Text10.BackColor = &HFF& '  rosso off-line
            Text10.FontSize = 11
        Case "02"
            Text10.BackColor = &H80000008     ' blu  off-line reverse
            Text10.ForeColor = &HFFFFFF
            Text10.FontSize = 11
        Case "04"
            Text10.BackColor = &HFFFF& '     giallo spc-onlie(special mode)
            Text10.FontSize = 11
        Case "08"
            Text10.BackColor = &HC000C0 '    eod viola
            Text10.FontSize = 11
        Case "20"
            Text10.BackColor = &H404080    ' pickup marrone
            Text10.FontSize = 11
        Case "80"
            Text10.BackColor = &H404080    ' mirror blu
            Text10.FontSize = 11
        Case "0A"
            Text10.BackColor = &HFF0000      ' mirror blu
            Text10.FontSize = 11
        Case "0A99801"
        'Text2.BackColor = &HFF0000      ' mirror blu
        'Text2.FontSize = 10
            Text10.Text = "801"
    End Select
    '-----------------------------------FINE CASSA 10-------------------------
    '-----------------------------------CASSA 11------------------------------
     Text11.Text = txt(10)
        txt(10) = Mid$(res(10), 3, 3)
        cop(10) = Mid$(res(10), 10, 3)
        cod(10) = Mid$(res(10), 60, 2)
        op(10) = Mid$(res(10), 14, 2)
     Text11.Text = txt(10)
     Text11.Refresh
        Select Case (cod(10) + op(10)) = "0198"
     Case "0198"
        ' text11.BackColor = &H80000008
        Text11.Text = "Eod"
        Text11.FontSize = 11
     End Select
     Select Case (cod(10) + op(10)) = "0298"
        Case "0298"
        'text11.BackColor = &H80000008
        Text11.FontSize = 11
        Text11.BackColor = &HFF&
        Text11.Text = "Eod"
     End Select
     Select Case (cod(10) + op(10)) = "0398"
    Case "0398"
        Text11.BackColor = &H80000008     ' blu  off-line reverse
        Text11.ForeColor = &HFFFFFF
        Text11.FontSize = 11
        Text11.Text = "Eod"
    End Select
    'cassa in blocco EOD
      Select Case (conto(0) + op(10) + cop(10)) = "1199801" ' cassa bloccata in eod
    Case "1199801" ' ( condizione blocco cassa in eod action (cod)+ status(op) + cassiere (cop))
        Text11.BackColor = &H80000008     ' blu  off-line reverse
        Text11.ForeColor = &HFFFFFF
        Text11.FontSize = 11
        End Select
    Select Case cop(10) = "801"
     Case "801"
        Text11.Text = "999"
        Text11.ToolTipText = "cassa " & txt(10) & " bloccata in Eod"
     End Select
     'fine cassa blocco eod
     Select Case (op(10) + cod(10)) = "9802"
      'Debug.Print conto(0)
     Case "9802"
       Text11.Text = "EOD"
       Text11.ToolTipText = "cassa " & txt(10) & " esclusa da Eod"
     End Select
     Select Case (op(10) + cod(10)) = "0104"
      Case "0104"
        Text11.Text = txt(10)
        Text11.ToolTipText = "Grandmaster ATTIVO "
     End Select
      Select Case (op(10) + cod(10)) = "0204"
      Case "0204"
        Text11.Text = txt(10)
        Text11.ToolTipText = "Grandmaster ATTIVO "
     End Select
     Select Case (op(10) + cod(10)) = "0801"
      Case "0801"
        Text11.Text = txt(10)
        Text11.ToolTipText = "Grandmaster CHIUSO "
     End Select
     
     Select Case cod(10)
        Case ""
            Text11.Text = "REG"
            Text11.FontSize = 11
        Case "00"
            Text11.BackColor = &HFF00& ' verde on-line
            Text11.FontSize = 11
        Case "01"
            Text11.BackColor = &HFF& '  rosso off-line
            Text11.FontSize = 11
        Case "02"
            Text11.BackColor = &H80000008     ' blu  off-line reverse
            Text11.ForeColor = &HFFFFFF
            Text11.FontSize = 11
        Case "04"
            Text11.BackColor = &HFFFF& '     giallo spc-onlie(special mode)
            Text11.FontSize = 11
        Case "08"
            Text11.BackColor = &HC000C0 '    eod viola
            Text11.FontSize = 11
        Case "20"
            Text11.BackColor = &H404080    ' pickup marrone
            Text11.FontSize = 11
        Case "80"
            Text11.BackColor = &H404080    ' mirror blu
            Text11.FontSize = 11
        Case "0A"
            Text11.BackColor = &HFF0000      ' mirror blu
            Text11.FontSize = 11
        Case "0A99801"
        'Text2.BackColor = &HFF0000      ' mirror blu
        'Text2.FontSize = 10
            Text11.Text = "801"
    End Select
    '----------------------------------FINE CASSA 11 -------------------------
    '-----------------------------------cassa 12------------------------------
     Text12.Text = txt(11)
        txt(11) = Mid$(res(11), 3, 3)
        cop(11) = Mid$(res(11), 10, 3)
        cod(11) = Mid$(res(11), 60, 2)
        op(11) = Mid$(res(11), 14, 2)
     Text12.Text = txt(11)
     Text12.Refresh
     If cod(11) = "0A" Then
        conto(0) = "11"
        ElseIf cod(11) = cod(11) Then
        End If
     Select Case (conto(0) + op(11)) = "1199"
     Case "1199"
        ' Text1.BackColor = &H80000008
        Text12.Text = "999"
        Text12.FontSize = 11
      End Select
        Select Case (cod(11) + op(11)) = "0198"
     Case "0198"
        ' text12.BackColor = &H80000008
        Text12.Text = "Eod"
        Text12.FontSize = 11
     End Select
     Select Case (cod(11) + op(11)) = "0298"
        Case "0298"
        'text12.BackColor = &H80000008
        Text12.FontSize = 11
        Text12.BackColor = &HFF&
        Text12.Text = "Eod"
     End Select
     Select Case (cod(11) + op(11)) = "0398"
    Case "0398"
        Text12.BackColor = &H80000008     ' blu  off-line reverse
        Text12.ForeColor = &HFFFFFF
        Text12.FontSize = 11
        Text12.Text = "Eod"
    End Select
    
    'cassa in blocco EOD
      Select Case (conto(0) + op(11) + cop(11)) = "1199801" ' cassa bloccata in eod
    Case "1199801" ' ( condizione blocco cassa in eod action (cod)+ status(op) + cassiere (cop))
        Text12.BackColor = &H80000008     ' blu  off-line reverse
        Text12.ForeColor = &HFFFFFF
        Text12.FontSize = 11
        End Select
    Select Case cop(11) = "801"
     Case "801"
        Text12.Text = "999"
        Text12.ToolTipText = "cassa " & txt(11) & " bloccata in Eod"
     End Select
     'fine cassa blocco eod
     If cod(11) = "0A" Then
        conto(0) = "11"
        ElseIf cod(11) = cod(11) Then
        End If
     'conto(0) = op(0) + cod(0)
     Select Case (op(11) + cod(11)) = "9802"
      'Debug.Print conto(0)
     Case "9802"
       Text12.Text = "EOD"
       Text12.ToolTipText = "cassa " & txt(11) & " esclusa da Eod"
     End Select
     
     Select Case cod(11)
        Case ""
            Text12.Text = "REG"
            Text12.FontSize = 11
        Case "00"
            Text12.BackColor = &HFF00& ' verde on-line
            Text12.FontSize = 11
        Case "01"
            Text12.BackColor = &HFF& '  rosso off-line
            Text12.FontSize = 11
        Case "02"
            Text12.BackColor = &H80000008     ' blu  off-line reverse
            Text12.ForeColor = &HFFFFFF
            Text12.FontSize = 11
        Case "04"
            Text12.BackColor = &HFFFF& '     giallo spc-onlie(special mode)
            Text12.FontSize = 11
        Case "08"
            Text12.BackColor = &HC000C0 '    eod viola
            Text12.FontSize = 11
        Case "20"
            Text12.BackColor = &H404080    ' pickup marrone
            Text12.FontSize = 11
        Case "80"
            Text12.BackColor = &H404080    ' mirror blu
            Text12.FontSize = 11
        Case "0A"
            Text12.BackColor = &HFF0000      ' mirror blu (cassa xxx in eod)
            Text12.FontSize = 11
        Case "0A99801"
        'Text2.BackColor = &HFF0000      ' mirror blu (cassa xxx in eod)
        'Text2.FontSize = 10
            Text12.Text = "801"
    End Select
    '----------------------------------fine cassa 12------------------------------
    '----------------------------------cassa 13-----------------------------------
     Text13.Text = txt(12)
        txt(12) = Mid$(res(12), 3, 3)
        cop(12) = Mid$(res(12), 10, 3)
        cod(12) = Mid$(res(12), 60, 2)
        op(12) = Mid$(res(12), 14, 2)
     Text13.Text = txt(12)
     Text13.Refresh
        Select Case (cod(12) + op(12)) = "0198"
     Case "0198"
        ' text13.BackColor = &H80000008
        Text13.Text = "Eod"
        Text13.FontSize = 11
     End Select
     Select Case (cod(12) + op(12)) = "0298"
        Case "0298"
        'text13.BackColor = &H80000008
        Text13.FontSize = 11
        Text13.BackColor = &HFF&
        Text13.Text = "Eod"
     End Select
     Select Case (cod(12) + op(12)) = "0398"
    Case "0398"
        Text13.BackColor = &H80000008     ' blu  off-line reverse
        Text13.ForeColor = &HFFFFFF
        Text13.FontSize = 11
        Text13.Text = "Eod"
    End Select
    
    'cassa in blocco EOD
      Select Case (conto(0) + op(12) + cop(12)) = "1199801" ' cassa bloccata in eod
    Case "1199801" ' ( condizione blocco cassa in eod action (cod)+ status(op) + cassiere (cop))
        Text13.BackColor = &H80000008     ' blu  off-line reverse
        Text13.ForeColor = &HFFFFFF
        Text13.FontSize = 11
        End Select
    Select Case cop(12) = "801"
     Case "801"
        Text13.Text = "999"
        Text13.ToolTipText = "cassa " & txt(12) & " bloccata in Eod"
     End Select
     'fine cassa blocco eod
     Select Case (op(12) + cod(12)) = "9802"
      'Debug.Print conto(0)
     Case "9802"
       Text13.Text = "EOD"
       Text13.ToolTipText = "cassa " & txt(12) & " esclusa da Eod"
     End Select
     Select Case (op(12) + cod(12)) = "0104"
      Case "0104"
        Text13.Text = txt(12)
        Text13.ToolTipText = "Grandmaster ATTIVO "
     End Select
      Select Case (op(12) + cod(12)) = "0204"
      Case "0204"
        Text13.Text = txt(12)
        Text13.ToolTipText = "Grandmaster ATTIVO "
     End Select
     Select Case (op(12) + cod(12)) = "0801"
      Case "0801"
        Text13.Text = txt(12)
        Text13.ToolTipText = "Grandmaster CHIUSO "
     End Select
     
     Select Case cod(12)
        Case ""
            Text13.Text = "REG"
            Text13.FontSize = 11
        Case "00"
            Text13.BackColor = &HFF00& ' verde on-line
            Text13.FontSize = 11
        Case "01"
            Text13.BackColor = &HFF& '  rosso off-line
            Text13.FontSize = 11
        Case "02"
            Text13.BackColor = &H80000008     ' blu  off-line reverse
            Text13.ForeColor = &HFFFFFF
            Text13.FontSize = 11
        Case "04"
            Text13.BackColor = &HFFFF& '     giallo spc-onlie(special mode)
            Text13.FontSize = 11
        Case "08"
            Text13.BackColor = &HC000C0 '    eod viola
            Text13.FontSize = 11
        Case "20"
            Text13.BackColor = &H404080    ' pickup marrone
            Text13.FontSize = 11
        Case "80"
            Text13.BackColor = &H404080    ' mirror blu
            Text13.FontSize = 11
        Case "0A"
            Text13.BackColor = &HFF0000      ' mirror blu
            Text13.FontSize = 11
        Case "0A99801"
        'Text2.BackColor = &HFF0000      ' mirror blu
        'Text2.FontSize = 10
            Text13.Text = "801"
    End Select
    '----------------------- FINE CASSA 13---------------------------------------
    '------------------------CASSA 14--------------------------------------------
     Text14.Text = txt(13)
        txt(13) = Mid$(res(13), 3, 3)
        cop(13) = Mid$(res(13), 10, 3)
        cod(13) = Mid$(res(13), 60, 2)
        op(13) = Mid$(res(13), 14, 2)
     Text14.Text = txt(13)
     Text14.Refresh
        Select Case (cod(13) + op(13)) = "0198"
     Case "0198"
        ' text5.BackColor = &H80000008
        Text14.Text = "Eod"
        Text14.FontSize = 11
     End Select
     Select Case (cod(13) + op(13)) = "0298"
        Case "0298"
        'text14.BackColor = &H80000008
        Text14.FontSize = 11
        Text14.BackColor = &HFF&
        Text14.Text = "Eod"
     End Select
     Select Case (cod(13) + op(13)) = "0398"
    Case "0398"
        Text14.BackColor = &H80000008     ' blu  off-line reverse
        Text14.ForeColor = &HFFFFFF
        Text14.FontSize = 11
        Text14.Text = "Eod"
    End Select
    'cassa in blocco EOD
      Select Case (conto(0) + op(13) + cop(13)) = "1199801" ' cassa bloccata in eod
    Case "1199801" ' ( condizione blocco cassa in eod action (cod)+ status(op) + cassiere (cop))
        Text14.BackColor = &H80000008     ' blu  off-line reverse
        Text14.ForeColor = &HFFFFFF
        Text14.FontSize = 11
        End Select
    Select Case cop(13) = "801"
     Case "801"
        Text14.Text = "999"
        Text14.ToolTipText = "cassa " & txt(13) & " bloccata in Eod"
     End Select
     'fine cassa blocco eod
     Select Case (op(13) + cod(13)) = "9802"
      'Debug.Print conto(0)
     Case "9802"
       Text14.Text = "EOD"
       Text14.ToolTipText = "cassa " & txt(13) & " esclusa da Eod"
     End Select
     Select Case (op(13) + cod(13)) = "0104"
      Case "0104"
        Text14.Text = txt(13)
        Text14.ToolTipText = "Grandmaster ATTIVO "
     End Select
      Select Case (op(13) + cod(13)) = "0204"
      Case "0204"
        Text14.Text = txt(4)
        Text14.ToolTipText = "Grandmaster ATTIVO "
     End Select
     Select Case (op(13) + cod(13)) = "0801"
      Case "0801"
        Text14.Text = txt(13)
        Text14.ToolTipText = "Grandmaster CHIUSO "
     End Select
     
     Select Case cod(13)
        Case ""
            Text14.Text = "REG"
            Text14.FontSize = 11
        Case "00"
            Text14.BackColor = &HFF00& ' verde on-line
            Text14.FontSize = 11
        Case "01"
            Text14.BackColor = &HFF& '  rosso off-line
            Text14.FontSize = 11
        Case "02"
            Text14.BackColor = &H80000008     ' blu  off-line reverse
            Text14.ForeColor = &HFFFFFF
            Text14.FontSize = 11
        Case "04"
            Text14.BackColor = &HFFFF& '     giallo spc-onlie(special mode)
            Text14.FontSize = 11
        Case "08"
            Text14.BackColor = &HC000C0 '    eod viola
            Text14.FontSize = 11
        Case "20"
            Text14.BackColor = &H404080    ' pickup marrone
            Text14.FontSize = 11
        Case "80"
            Text14.BackColor = &H404080    ' mirror blu
            Text14.FontSize = 11
        Case "0A"
            Text14.BackColor = &HFF0000      ' mirror blu
            Text14.FontSize = 11
        Case "0A99801"
        'Text2.BackColor = &HFF0000      ' mirror blu
        'Text2.FontSize = 10
            Text14.Text = "801"
    End Select
    '------------------------FINE CASSA 14---------------------------------------
    
    '------------------------CASSA 15--------------------------------------------
     Text15.Text = txt(14)
        txt(14) = Mid$(res(14), 3, 3)
        cop(14) = Mid$(res(14), 10, 3)
        cod(14) = Mid$(res(14), 60, 2)
        op(14) = Mid$(res(14), 14, 2)
     Text15.Text = txt(14)
     Text15.Refresh
        Select Case (cod(14) + op(14)) = "0198"
     Case "0198"
        ' text15.BackColor = &H80000008
        Text15.Text = "Eod"
        Text15.FontSize = 11
     End Select
     Select Case (cod(14) + op(14)) = "0298"
        Case "0298"
        'text15.BackColor = &H80000008
        Text15.FontSize = 11
        Text15.BackColor = &HFF&
        Text15.Text = "Eod"
     End Select
     Select Case (cod(14) + op(14)) = "0398"
    Case "0398"
        Text15.BackColor = &H80000008     ' blu  off-line reverse
        Text15.ForeColor = &HFFFFFF
        Text15.FontSize = 11
        Text15.Text = "Eod"
    End Select
    'cassa in blocco EOD
      Select Case (conto(0) + op(14) + cop(14)) = "1199801" ' cassa bloccata in eod
    Case "1199801" ' ( condizione blocco cassa in eod action (cod)+ status(op) + cassiere (cop))
        Text15.BackColor = &H80000008     ' blu  off-line reverse
        Text15.ForeColor = &HFFFFFF
        Text15.FontSize = 11
        End Select
    Select Case cop(14) = "801"
     Case "801"
        Text15.Text = "999"
        Text15.ToolTipText = "cassa " & txt(14) & " bloccata in Eod"
     End Select
     'fine cassa blocco eod
     Select Case (op(14) + cod(14)) = "9802"
      'Debug.Print conto(0)
     Case "9802"
       Text15.Text = "EOD"
       Text15.ToolTipText = "cassa " & txt(14) & " esclusa da Eod"
     End Select
     Select Case (op(14) + cod(14)) = "0104"
      Case "0104"
        Text15.Text = txt(14)
        Text15.ToolTipText = "Grandmaster ATTIVO "
     End Select
      Select Case (op(14) + cod(14)) = "0204"
      Case "0204"
        Text15.Text = txt(14)
        Text15.ToolTipText = "Grandmaster ATTIVO "
     End Select
     Select Case (op(14) + cod(14)) = "0801"
      Case "0801"
        Text15.Text = txt(14)
        Text15.ToolTipText = "Grandmaster CHIUSO "
     End Select
     
     Select Case cod(14)
        Case ""
            Text15.Text = "REG"
            Text15.FontSize = 11
        Case "00"
            Text11.BackColor = &HFF00& ' verde on-line
            Text15.FontSize = 11
        Case "01"
            Text15.BackColor = &HFF& '  rosso off-line
            Text15.FontSize = 11
        Case "02"
            Text15.BackColor = &H80000008     ' blu  off-line reverse
            Text15.ForeColor = &HFFFFFF
            Text15.FontSize = 11
        Case "04"
            Text15.BackColor = &HFFFF& '     giallo spc-onlie(special mode)
            Text15.FontSize = 11
        Case "08"
            Text15.BackColor = &HC000C0 '    eod viola
            Text15.FontSize = 11
        Case "20"
            Text15.BackColor = &H404080    ' pickup marrone
            Text15.FontSize = 11
        Case "80"
            Text15.BackColor = &H404080    ' mirror blu
            Text15.FontSize = 11
        Case "0A"
            Text15.BackColor = &HFF0000      ' mirror blu
            Text15.FontSize = 11
        Case "0A99801"
        'Text2.BackColor = &HFF0000      ' mirror blu
        'Text2.FontSize = 10
            Text15.Text = "801"
    End Select
    '------------------------FINE CASSA 15---------------------------------------
    
    '------------------------CASSA 16--------------------------------------------
     Text16.Text = txt(15)
        txt(15) = Mid$(res(15), 3, 3)
        cop(15) = Mid$(res(15), 10, 3)
        cod(15) = Mid$(res(15), 60, 2)
        op(15) = Mid$(res(15), 14, 2)
     Text16.Text = txt(15)
     Text16.Refresh
        Select Case (cod(15) + op(15)) = "0198"
     Case "0198"
        ' text16.BackColor = &H80000008
        Text16.Text = "Eod"
        Text16.FontSize = 11
     End Select
     Select Case (cod(15) + op(15)) = "0298"
        Case "0298"
        'text16.BackColor = &H80000008
        Text16.FontSize = 11
        Text16.BackColor = &HFF&
        Text16.Text = "Eod"
     End Select
     Select Case (cod(15) + op(15)) = "0398"
    Case "0398"
        Text16.BackColor = &H80000008     ' blu  off-line reverse
        Text16.ForeColor = &HFFFFFF
        Text16.FontSize = 11
        Text16.Text = "Eod"
    End Select
    'cassa in blocco EOD
      Select Case (conto(0) + op(15) + cop(15)) = "1199801" ' cassa bloccata in eod
    Case "1199801" ' ( condizione blocco cassa in eod action (cod)+ status(op) + cassiere (cop))
        Text16.BackColor = &H80000008     ' blu  off-line reverse
        Text16.ForeColor = &HFFFFFF
        Text16.FontSize = 11
        End Select
    Select Case cop(15) = "801"
     Case "801"
        Text16.Text = "999"
        Text16.ToolTipText = "cassa " & txt(15) & " bloccata in Eod"
     End Select
     'fine cassa blocco eod
     Select Case (op(15) + cod(15)) = "9802"
      'Debug.Print conto(0)
     Case "9802"
       Text16.Text = "EOD"
       Text16.ToolTipText = "cassa " & txt(15) & " esclusa da Eod"
     End Select
     Select Case (op(15) + cod(15)) = "0104"
      Case "0104"
        Text16.Text = txt(15)
        Text16.ToolTipText = "Grandmaster ATTIVO "
     End Select
      Select Case (op(15) + cod(15)) = "0204"
      Case "0204"
        Text16.Text = txt(4)
        Text16.ToolTipText = "Grandmaster ATTIVO "
     End Select
     Select Case (op(15) + cod(15)) = "0801"
      Case "0801"
        Text16.Text = txt(15)
        Text16.ToolTipText = "Grandmaster CHIUSO "
     End Select
     Select Case cod(15)
        Case ""
            Text16.Text = "REG"
            Text16.FontSize = 11
        Case "00"
            Text16.BackColor = &HFF00& ' verde on-line
            Text16.FontSize = 11
        Case "01"
            Text16.BackColor = &HFF& '  rosso off-line
            Text16.FontSize = 11
        Case "02"
            Text16.BackColor = &H80000008     ' blu  off-line reverse
            Text16.ForeColor = &HFFFFFF
            Text16.FontSize = 11
        Case "04"
            Text16.BackColor = &HFFFF& '     giallo spc-onlie(special mode)
            Text16.FontSize = 11
        Case "08"
            Text16.BackColor = &HC000C0 '    eod viola
            Text16.FontSize = 11
        Case "20"
            Text16.BackColor = &H404080    ' pickup marrone
            Text16.FontSize = 11
        Case "80"
            Text16.BackColor = &H404080    ' mirror blu
            Text16.FontSize = 11
        Case "0A"
            Text16.BackColor = &HFF0000      ' mirror blu
            Text16.FontSize = 11
        Case "0A99801"
        'Text2.BackColor = &HFF0000      ' mirror blu
        'Text2.FontSize = 10
            Text16.Text = "801"
    End Select
    '------------------------FINE CASSA 16---------------------------------------
    '-------------------------CASSA 17-------------------------------------------
     Text17.Text = txt(16)
        txt(16) = Mid$(res(16), 3, 3)
        cop(16) = Mid$(res(16), 10, 3)
        cod(16) = Mid$(res(16), 60, 2)
        op(16) = Mid$(res(16), 14, 2)
     Text17.Text = txt(16)
     Text17.Refresh
        Select Case (cod(16) + op(16)) = "0198"
     Case "0198"
        ' text17.BackColor = &H80000008
        Text17.Text = "Eod"
        Text17.FontSize = 11
     End Select
     Select Case (cod(16) + op(16)) = "0298"
        Case "0298"
        'text17.BackColor = &H80000008
        Text17.FontSize = 11
        Text17.BackColor = &HFF&
        Text17.Text = "Eod"
     End Select
     Select Case (cod(16) + op(16)) = "0398"
    Case "0398"
        Text17.BackColor = &H80000008     ' blu  off-line reverse
        Text17.ForeColor = &HFFFFFF
        Text17.FontSize = 11
        Text17.Text = "Eod"
    End Select
    'cassa in blocco EOD
      Select Case (conto(0) + op(16) + cop(16)) = "1199801" ' cassa bloccata in eod
    Case "1199801" ' ( condizione blocco cassa in eod action (cod)+ status(op) + cassiere (cop))
        Text17.BackColor = &H80000008     ' blu  off-line reverse
        Text17.ForeColor = &HFFFFFF
        Text17.FontSize = 11
        End Select
    Select Case cop(16) = "801"
     Case "801"
        Text17.Text = "999"
        Text17.ToolTipText = "cassa " & txt(16) & " bloccata in Eod"
     End Select
     'fine cassa blocco eod
     Select Case (op(16) + cod(16)) = "9802"
      'Debug.Print conto(0)
     Case "9802"
       Text17.Text = "EOD"
       Text17.ToolTipText = "cassa " & txt(16) & " esclusa da Eod"
     End Select
     Select Case (op(16) + cod(16)) = "0104"
      Case "0104"
        Text17.Text = txt(16)
        Text17.ToolTipText = "Grandmaster ATTIVO "
     End Select
      Select Case (op(16) + cod(16)) = "0204"
      Case "0204"
        Text17.Text = txt(16)
        Text17.ToolTipText = "Grandmaster ATTIVO "
     End Select
     Select Case (op(16) + cod(16)) = "0801"
      Case "0801"
        Text17.Text = txt(16)
        Text17.ToolTipText = "Grandmaster CHIUSO "
     End Select
     Select Case cod(16)
        Case ""
            Text17.Text = "REG"
            Text17.FontSize = 11
        Case "00"
            Text17.BackColor = &HFF00& ' verde on-line
            Text17.FontSize = 11
        Case "01"
            Text17.BackColor = &HFF& '  rosso off-line
            Text17.FontSize = 11
        Case "02"
            Text17.BackColor = &H80000008     ' blu  off-line reverse
            Text17.ForeColor = &HFFFFFF
            Text17.FontSize = 11
        Case "04"
            Text17.BackColor = &HFFFF& '     giallo spc-onlie(special mode)
            Text17.FontSize = 11
        Case "08"
            Text17.BackColor = &HC000C0 '    eod viola
            Text17.FontSize = 11
        Case "20"
            Text17.BackColor = &H404080    ' pickup marrone
            Text17.FontSize = 11
        Case "80"
            Text17.BackColor = &H404080    ' mirror blu
            Text17.FontSize = 11
        Case "0A"
            Text17.BackColor = &HFF0000      ' mirror blu
            Text17.FontSize = 11
        Case "0A99801"
        'Text2.BackColor = &HFF0000      ' mirror blu
        'Text2.FontSize = 10
            Text17.Text = "801"
    End Select
    '-------------------------FINE CASSA 17--------------------------------------
    
    '-------------------------CASSA 18-------------------------------------------
     Text18.Text = txt(10)
        txt(17) = Mid$(res(17), 3, 3)
        cop(17) = Mid$(res(17), 10, 3)
        cod(17) = Mid$(res(17), 60, 2)
        op(17) = Mid$(res(17), 14, 2)
     Text18.Text = txt(17)
     Text18.Refresh
        Select Case (cod(17) + op(17)) = "0198"
     Case "0198"
        ' text18.BackColor = &H80000008
        Text18.Text = "Eod"
        Text18.FontSize = 11
     End Select
     Select Case (cod(17) + op(17)) = "0298"
        Case "0298"
        'text18.BackColor = &H80000008
        Text18.FontSize = 11
        Text18.BackColor = &HFF&
        Text18.Text = "Eod"
     End Select
     Select Case (cod(17) + op(17)) = "0398"
    Case "0398"
        Text18.BackColor = &H80000008     ' blu  off-line reverse
        Text18.ForeColor = &HFFFFFF
        Text18.FontSize = 11
        Text18.Text = "Eod"
    End Select
    'cassa in blocco EOD
      Select Case (conto(0) + op(17) + cop(17)) = "1199801" ' cassa bloccata in eod
    Case "1199801" ' ( condizione blocco cassa in eod action (cod)+ status(op) + cassiere (cop))
        Text18.BackColor = &H80000008     ' blu  off-line reverse
        Text18.ForeColor = &HFFFFFF
        Text18.FontSize = 11
        End Select
    Select Case cop(17) = "801"
     Case "801"
        Text18.Text = "999"
        Text18.ToolTipText = "cassa " & txt(17) & " bloccata in Eod"
     End Select
     'fine cassa blocco eod
     Select Case (op(17) + cod(17)) = "9802"
      'Debug.Print conto(0)
     Case "9802"
       Text18.Text = "EOD"
       Text18.ToolTipText = "cassa " & txt(17) & " esclusa da Eod"
     End Select
     Select Case (op(17) + cod(17)) = "0104"
      Case "0104"
        Text18.Text = txt(17)
        Text18.ToolTipText = "Grandmaster ATTIVO "
     End Select
      Select Case (op(17) + cod(17)) = "0204"
      Case "0204"
        Text18.Text = txt(17)
        Text18.ToolTipText = "Grandmaster ATTIVO "
     End Select
     Select Case (op(17) + cod(17)) = "0801"
      Case "0801"
        Text18.Text = txt(17)
        Text18.ToolTipText = "Grandmaster CHIUSO "
     End Select
     Select Case cod(17)
        Case ""
            Text18.Text = "REG"
            Text18.FontSize = 11
        'Text18.Enabled = False
        Case "00"
            Text18.BackColor = &HFF00& ' verde on-line
            Text18.FontSize = 11
        Case "01"
            Text18.BackColor = &HFF& '  rosso off-line
            Text18.FontSize = 11
        Case "02"
            Text18.BackColor = &H80000008     ' blu  off-line reverse
            Text18.ForeColor = &HFFFFFF
            Text18.FontSize = 11
        Case "04"
            Text18.BackColor = &HFFFF& '     giallo spc-onlie(special mode)
            Text18.FontSize = 11
        Case "08"
            Text18.BackColor = &HC000C0 '    eod viola
            Text18.FontSize = 11
        Case "20"
            Text18.BackColor = &H404080    ' pickup marrone
            Text18.FontSize = 11
        Case "80"
            Text18.BackColor = &H404080    ' mirror blu
            Text18.FontSize = 11
        Case "0A"
            Text18.BackColor = &HFF0000      ' mirror blu
            Text18.FontSize = 11
        Case "0A99801"
        'Text2.BackColor = &HFF0000      ' mirror blu
        'Text2.FontSize = 10
            Text18.Text = "801"
    End Select
    '-----------------------------FINE CASSA18 ----------------------------------
    'array1 = Split(string1, "-")
    array1 = Split(res(0), ":")
    array2 = Split(res(1), ":")
    array3 = Split(res(2), ":")
    array4 = Split(res(3), ":")
    array5 = Split(res(4), ":")
    array6 = Split(res(5), ":")
    array7 = Split(res(6), ":")
    array8 = Split(res(7), ":")
    array9 = Split(res(8), ":")
    array10 = Split(res(9), ":")
    array11 = Split(res(0), ":")
    array12 = Split(res(1), ":")
    array13 = Split(res(0), ":")
    array14 = Split(res(1), ":")
    array15 = Split(res(0), ":")
    array16 = Split(res(1), ":")
    array17 = Split(res(0), ":")
    array18 = Split(res(1), ":")
    array19 = Split(res(0), ":")
    array20 = Split(res(1), ":")
    
    If array1(0) <> "s" Then
    Form2.Text1(0).Text = array1(0) & array1(3)
    Form2.Text1(1).Text = array1(7)
    
    End If
    
    End Function
    
    
    
    Private Sub Form_Activate()
    Timer1.Interval = 50
    End Sub
    
    Private Sub Form_Load()
    'the form must be fully visible before calling Shell_NotifyIcon
           Me.Show
           Me.Refresh
           With nid
            .cbSize = Len(nid)
            .hwnd = Me.hwnd
            .uId = vbNull
            .uFlags = NIF_ICON Or NIF_TIP Or NIF_MESSAGE
            .uCallBackMessage = WM_MOUSEMOVE
            .hIcon = Me.Icon
            .szTip = "Casse NCR" & vbNullChar
           End With
           Shell_NotifyIcon NIM_ADD, nid
          
    Label1.FontSize = 10
    Text1.Enabled = True
    
    'Timer1.Enabled
    'Timer1.Interval = 50
    'Call leggi_file
    
    End Sub
    
    Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    
          'this procedure receives the callbacks from the System Tray icon.
          Dim Result As Long
          Dim msg As Long
           'the value of X will vary depending upon the scalemode setting
           If Me.ScaleMode = vbPixels Then
            msg = X
           Else
            msg = X / Screen.TwipsPerPixelX
           End If
           Select Case msg
            Case WM_LBUTTONUP        '514 restore form window
             Me.WindowState = vbNormal
             Result = SetForegroundWindow(Me.hwnd)
             Me.Show
            Case WM_LBUTTONDBLCLK    '515 restore form window
             Me.WindowState = vbNormal
             Result = SetForegroundWindow(Me.hwnd)
             Me.Show
            'Case WM_RBUTTONUP        '517 display popup menu
            ' Result = SetForegroundWindow(Me.hwnd)
            ' Me.PopupMenu Me.mPopupSys
           End Select
    
    End Sub
    
    
    Private Sub Form_Resize()
           'this is necessary to assure that the minimized window is hidden
           If Me.WindowState = vbMinimized Then Me.Hide
          End Sub
    
    
    
    
    Private Sub Form_Unload(Cancel As Integer)
           'this removes the icon from the system tray
           Shell_NotifyIcon NIM_DELETE, nid
          End Sub
    
    Private Sub mPopExit_Click()
           'called when user clicks the popup menu Exit command
           Unload Me
          End Sub
    
    Private Sub mPopRestore_Click()
           'called when the user clicks the popup menu Restore command
           Me.WindowState = vbNormal
           'Result = SetForegroundWindow(Me.hwnd)
           Me.Show
          End Sub
    
    
    
    
    
    
    Private Sub Text1_Click()
    Form2.Show
    End Sub
    
    Private Sub Timer1_Timer()
    Call leggi_file
    
    
    End Sub
    'Private Sub Text1_DblClick()
    'Mnt(0) = Mid$(res(0), 31, 6)
    'MsgBox "manutenzione " & Mnt(0), 0, txt(0)
    
    'End Sub

  4. #4
    L'avatar di AntonioG
    AntonioG non è in linea Moderatore Globale Ultimo blog: Commodore 64 e Codemotion
    Luogo
    Roma
    Post
    16,467
    Blogs
    5
    Non era affatto necessario postare due chilometri di codice, per di piu' senza usare i tag appositi e senza che sia indentato.

    In questo modo il codice e' illeggibile e non serve a risolvere il tuo problema.

    Ti avevo chiesto "solamente" di chiarire la provenienza del vettore res() e non di farci vedere "tutto" il codice ...

    In piu' dovresti indicare *esattamente* in quale riga si presenta l'errore ...
    Avvisi generali e importanti, a pena CHIUSURA thread e/o BAN
    Il crossposting è vietato.
    Le richieste di "pappa pronta" sono vietate.
    Utilizzate i tag CODE per il codice.
    Leggere il Regolamento per chiarimenti PRIMA di creare nuovi thread.
    Utilizzare sempre i PM per comunicare con i moderatori.
    Non mi contattate in PM per problemi di software, usate il forum

  5. #5
    gmax74 non è in linea Novello
    Luogo
    Italy
    Post
    12
    Quote Originariamente inviato da AntonioGiuliana
    Non era affatto necessario postare due chilometri di codice, per di piu' senza usare i tag appositi e senza che sia indentato.

    In questo modo il codice e' illeggibile e non serve a risolvere il tuo problema.

    Ti avevo chiesto "solamente" di chiarire la provenienza del vettore res() e non di farci vedere "tutto" il codice ...

    In piu' dovresti indicare *esattamente* in quale riga si presenta l'errore ...
    errore si presenta in queste righe:

    If array16(0) <> "s" Then
    Form15.Text1(0).Text = array16(0) & array16(3)
    Form15.Text1(1).Text = array16(7)
    End If
    If array17(0) <> "s" Then
    Form16.Text1(0).Text = array17(0) & array17(3)
    Form16.Text1(1).Text = array17(7)
    End If
    If array18(0) <> "s" Then
    Form17.Text1(0).Text = array18(0) & array18(3)
    Form17.Text1(1).Text = array18(7)
    End If
    If array19(0) <> "s" Then
    Form18.Text1(0).Text = array19(0) & array19(3)
    Form18.Text1(1).Text = array19(7)
    End If

  6. #6
    L'avatar di AntonioG
    AntonioG non è in linea Moderatore Globale Ultimo blog: Commodore 64 e Codemotion
    Luogo
    Roma
    Post
    16,467
    Blogs
    5
    Premetto una cosa ... il programma andrebbe riscritto completamente, ma solo perche', per come e' scritto, non puo' che causare quegli errori di cui parli.

    In particolare, tu tratti sempre le righe da

    res(0)

    a

    res(19)

    per un totale di 20 righe.

    Ma non e' detto che il file dei dati sia fatto *sempre* da 20 righe (nel codice di lettura, questa termina comunque se il file termina ... ).

    Ad esempio, il file dei dati che hai mostrato ne ha 15 e se tratti le righe seguenti avrai quegli errori.

    A questo punto quindi, e' necessario capire se il file dei dati puo' avere un numero variabile di righe perche', in tal caso, dovrai rivedere *tutto* il programma ...
    Avvisi generali e importanti, a pena CHIUSURA thread e/o BAN
    Il crossposting è vietato.
    Le richieste di "pappa pronta" sono vietate.
    Utilizzate i tag CODE per il codice.
    Leggere il Regolamento per chiarimenti PRIMA di creare nuovi thread.
    Utilizzare sempre i PM per comunicare con i moderatori.
    Non mi contattate in PM per problemi di software, usate il forum

  7. #7
    gmax74 non è in linea Novello
    Luogo
    Italy
    Post
    12
    Quote Originariamente inviato da AntonioGiuliana
    Premetto una cosa ... il programma andrebbe riscritto completamente, ma solo perche', per come e' scritto, non puo' che causare quegli errori di cui parli.

    In particolare, tu tratti sempre le righe da

    res(0)

    a

    res(19)

    per un totale di 20 righe.

    Ma non e' detto che il file dei dati sia fatto *sempre* da 20 righe (nel codice di lettura, questa termina comunque se il file termina ... ).

    Ad esempio, il file dei dati che hai mostrato ne ha 15 e se tratti le righe seguenti avrai quegli errori.

    A questo punto quindi, e' necessario capire se il file dei dati puo' avere un numero variabile di righe perche', in tal caso, dovrai rivedere *tutto* il programma ...
    esatto antonio,
    il file e variabile ma per il mio caso non sara piu di 20 righe ma purtroppo pu&#242; essere piu' piccolo ecco perche ho trovato l' errore nella fase di test ho ridotto le righe in esame ed ecco l' errore!!

    cmq posso ovviare a questo problema? senza rifare il programma ?
    :-)

  8. #8
    L'avatar di AntonioG
    AntonioG non è in linea Moderatore Globale Ultimo blog: Commodore 64 e Codemotion
    Luogo
    Roma
    Post
    16,467
    Blogs
    5
    Se il file puo' essere piu' piccolo non ha senso prevedere anche lo spazio per delle righe che non esistono. E ovviamente, se tenti di separare i dati delle righe che non esistono, avrai un errore.

    E' un errore di "progettazione" e per questo ti dico che il programma va rifatto (ovviamente l'algoritmo di elaborazione dei dati delle righe, qualunque esso sia, va ancora bene).

    Il consiglio e' di impostare il programma in modo che l'elaborazione venga fatta riga per riga nel ciclo di lettura dal file. In questo modo ottieni due risultati

    1) vengono elaborate solamente le righe presenti nel file senza errori

    2) il codice si riduce drasticamente perche' non devi "ripeterlo" per ogni riga del file
    Avvisi generali e importanti, a pena CHIUSURA thread e/o BAN
    Il crossposting è vietato.
    Le richieste di "pappa pronta" sono vietate.
    Utilizzate i tag CODE per il codice.
    Leggere il Regolamento per chiarimenti PRIMA di creare nuovi thread.
    Utilizzare sempre i PM per comunicare con i moderatori.
    Non mi contattate in PM per problemi di software, usate il forum

+ Rispondi al Thread

Discussioni simili

  1. errore run time 3265
    Da francof nel forum Visual Basic 6
    Risposte: 13
    Ultimo Post: 28-07-2006, 16:40
  2. access errore di run time 2499
    Da pluffete nel forum Access
    Risposte: 1
    Ultimo Post: 10-01-2006, 21:07
  3. Errore se il record è vuoto...
    Da keanurives nel forum Visual Basic 6
    Risposte: 1
    Ultimo Post: 16-11-2004, 13:53
  4. errore di run time 523
    Da FlyZone nel forum Visual Basic 6
    Risposte: 1
    Ultimo Post: 22-10-2004, 22:40

Permessi di invio

  • Non puoi inserire discussioni
  • Non puoi inserire repliche
  • Non puoi inserire allegati
  • Non puoi modificare i tuoi messaggi