home *** CD-ROM | disk | FTP | other *** search
/ Mobiclic 41 / MOBICLIC41.ISO / pc / Data / PROM / PROM02.DIR / 00004_Script_4 < prev    next >
Text File  |  2001-09-10  |  324b  |  12 lines
  1. --acces abo liberte
  2. on mouseUp
  3.   global gListeCom,gTypeAboChoisi
  4.   if count(gListeCom) <> 0 then
  5.     if the ref of getLast(gListeCom) = 13 then
  6.       alert "Choisissez pour cette formule d'abonnement le paiement comptant"
  7.     else      
  8.       set gTypeAboChoisi = 1
  9.       acces "pan01_1"
  10.     end if
  11.   end if  
  12. end