home *** CD-ROM | disk | FTP | other *** search
/ Mobiclic 41 / MOBICLIC41.ISO / pc / Data / PROM / IMPRIM01.DIR / 00005_Script_5 < prev    next >
Text File  |  2001-09-07  |  552b  |  23 lines
  1. -- initialisations
  2. on exitFrame
  3.   global gMyParent, gListeCom
  4.   masquerPistes "21>61"
  5.   
  6.   --transfert des valeurs des champs gris vers champs noirs
  7.   gestTransfert
  8.   
  9.   --code remontee
  10.   case gMyParent of
  11.     0: put "" into field "code_r"
  12.     1: put "C36A" into field "code_r"
  13.     2: put "L12A" into field "code_r"      
  14.   end case 
  15.   
  16.   --Affichage d'une ou deux grilles suivant les nombre n'abonnements
  17.   if count(gListeCom) = 1 then
  18.     masquerPistes 66
  19.     masquerPistes "76>85"
  20.   else
  21.     masquerPistes 65
  22.   end if      
  23. end