home *** CD-ROM | disk | FTP | other *** search
/ Invenzioni E Inventori 1: Lavoro E Vita Quotidiana / invenzioni-inventori-1.iso / mac / Invenzio / index.dir / 00119_Script_119 < prev    next >
Text File  |  1997-10-15  |  1KB  |  41 lines
  1. on controlla_inv 
  2.   
  3.   set lista to the text of field "invenzioni" of castlib "indart"
  4.   set lista_sotto to the text of field "elenco_sottoinv" of castlib "indart"
  5.   repeat with qc=120 to 121
  6.     
  7.     repeat with x=1 to the number of lines in field qc
  8.       set codice to item 1 of line x of field qc
  9.       
  10.       delete char 1 of codice
  11.       if char 1 of codice = "M" then
  12.         if char 2 of codice = "I" then
  13.           --        put codice
  14.           if offset (codice, lista) >0 then
  15.             put codice,"OK"
  16.           else
  17.             put "ERRORE !!!",codice
  18.             beep
  19.           end if
  20.         else
  21.           if char 2 of codice = "S" then
  22.             if offset (codice, lista_sotto) >0 then
  23.               put codice,"OK"
  24.             else
  25.               put "ERRORE !!!",codice
  26.               beep
  27.             end if
  28.             
  29.             
  30.           end if
  31.         end if
  32.       end if
  33.       
  34.     end repeat
  35.   end repeat
  36.   
  37.   put "FINE"
  38.   
  39. end
  40.  
  41.