home *** CD-ROM | disk | FTP | other *** search
/ Mobiclic 41 / MOBICLIC41.ISO / pc / Data / PROM / PAN02_3.DIR / 00004_Script_4 < prev    next >
Text File  |  2001-09-07  |  1KB  |  47 lines
  1. -- 
  2. on exitFrame
  3.   global gListeCom, gChoixDevise
  4.   afficherPistes "20>31", 42
  5.   
  6.   --Affichage d'une ou deux grilles suivant les nombre n'abonnements
  7.   masquerPistes 5,"32>40"
  8.   if count(gListeCom) = 1 then
  9.     masquerPistes 8
  10.     afficherPistes 7
  11.     masquerPistes "19>28"
  12.   else
  13.     masquerPistes 7
  14.   end if  
  15.   
  16.   -- verouillage des champs editables
  17.   repeat with i = 101 to 108
  18.     set the editable of member i of castLib "abo_cla" to 0
  19.   end repeat  
  20.   
  21.   repeat with i = 121 to 128
  22.     set the editable of member i of castLib "abo_cla" to 0
  23.   end repeat
  24.   
  25.   set the editable of member 111 of castLib "abo_cla" to 0
  26.   set the editable of member 112 of castLib "abo_cla" to 0
  27.   
  28.   --  verification du mode de paiement choisi
  29.   if member("ChoixCB").hilite = 1 then
  30.     masquerPistes 32,33
  31.     afficherPistes "34>40"
  32.   else
  33.     masquerPistes "34>40"
  34.     afficherPistes 32,33
  35.   end if 
  36.   
  37.   --  verification de la device choisi choisi
  38.   if gChoixDevise = #Francs then
  39.     masquerPistes 44
  40.     afficherPistes 43
  41.   else
  42.     masquerPistes 43
  43.     afficherPistes 44
  44.   end if 
  45.   
  46.   set the checkBoxAccess to 2
  47. end