Subversion Repositories wimsdev

Rev

Rev 10820 | Rev 12815 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 10820 Rev 12488
Line 2... Line 2...
2 
nblocalvar=!itemcnt $tv_listlocal
 2 
nblocalvar=!itemcnt $tv_listlocal
3 
!if ($techvar<1 or $techvar>$nblocalvar)
 3 
!if ($techvar<1 or $techvar>$nblocalvar)
4 
    error=badtechvarnumber
 4 
  error=badtechvarnumber
5 
    job=listvar
 5 
  job=listvar
6 
    !changeto $job.proc
 6 
  !changeto $job.proc
7 
    !exit
 7 
  !exit
8 
!endif
 8 
!endif
9 
 
 9 
 
10 
!if $stechvar=$empty
 10 
!if $stechvar=$empty
11 
    stechvar=$techvar
 11 
  stechvar=$techvar
12 
    !reset tc_abandon,tc_set
 12 
  !reset tc_abandon,tc_set
13 
    don=!record $stechvar of wimshome/log/classes/$wims_class/.techvar
 13 
  don=!record $stechvar of wimshome/log/classes/$wims_class/.techvar
14 
    !distribute line $don into ol_name,ol_value
 14 
  !distribute line $don into ol_name,ol_value
15 
    tc_name=$ol_name
 15 
  tc_name=$ol_name
16 
    tc_value=$ol_value
 16 
  tc_value=$ol_value
17 
!endif
 17 
!endif
18 
 
 18 
 
19 
 
 19 
 
20 
!if $tc_abandon!=$empty
 20 
!if $tc_abandon!=$empty
21 
    !reset tc_abandon,tc_value,tc_name,tc_set,stechvar
 21 
  !reset tc_abandon,tc_value,tc_name,tc_set,stechvar
22 
    job=listvar
 22 
  job=listvar
23 
    !changeto $job.proc
 23 
  !changeto $job.proc
24 
    !exit
 24 
  !exit
25 
!endif
 25 
!endif
26 
 
 26 
 
27 
!if $tc_set!=$empty
 27 
!if $tc_set!=$empty
28 
!! check name validity
 28 
  !! check name validity
29 
    tc_name=!text select 0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ in $tc_name
 29 
  tc_name=!text select 0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ in $tc_name
30 
    tc_name=!nospace $tc_name
 30 
  tc_name=!nospace $tc_name
31 
    tc_name=!lower $tc_name
 31 
  tc_name=!lower $tc_name
32 
    n=!charcnt $tc_name
 32 
  n=!charcnt $tc_name
33 
    !if $n>$MAXcharname or $n<1
 33 
  !if $n>$MAXcharname or $n<1
34 
	error=badnamelen
 34 
	  error=badnamelen
35 
	!reset tc_set
 35 
	  !reset tc_set
36 
	!exit
 36 
	  !exit
37 
    !endif
 37 
  !endif
38 
 
 38 
 
39 
!! check list of name already in use
 39 
  !! check list of name already in use
40 
    !if $tc_name isitemof $tv_listallname and $tc_name!=$ol_name
 40 
  !if $tc_name isitemof $tv_listallname and $tc_name!=$ol_name
41 
	error=namealreadyuse
 41 
	  error=namealreadyuse
42 
	!reset tc_set
 42 
	  !reset tc_set
43 
	!exit
 43 
	  !exit
44 
    !endif
 44 
  !endif
45 
 
 45 
 
46 
!! check list of value
 46 
  !! check list of value
47 
    tc_value=!listuniq $tc_value
 47 
  tc_value=!listuniq $tc_value
48 
    tc_value=!listcomplement _EMPTY_ in $tc_value
 48 
  tc_value=!listcomplement _EMPTY_ in $tc_value
49 
    n=!itemcnt $tc_value
 49 
  n=!itemcnt $tc_value
50 
    !if $n<1 or $n>$MAXnbvalue
 50 
  !if $n<1 or $n>$MAXnbvalue
51 
	error=badvaluenb
 51 
	  error=badvaluenb
52 
	!reset tc_set
 52 
	  !reset tc_set
53 
	!exit
 53 
	  !exit
54 
    !endif
 54 
  !endif
55 
!! old list must be include (or delete value not in use in the class TODO).
 55 
  !! old list must be include (or delete value not in use in the class TODO).
56 
!! il y a une amélioration à faire pour poster un message et effacer les valeurs qui ne sont plus disponibles.
 56 
  !! il y a une amélioration à faire pour poster un message et effacer les valeurs qui ne sont plus disponibles.
57 
    li=!listcomplement $tc_value in $ol_value
 57 
  li=!listcomplement $tc_value in $ol_value
58 
    !if $li!=$empty
 58 
  !if $li!=$empty
59 
	error=valuedisappear
 59 
	  error=valuedisappear
60 
	!reset tc_set
 60 
	  !reset tc_set
61 
    !endif
 61 
  !endif
62 
!! save
 62 
  !! save
63 
    donnees=$empty
 63 
  donnees=$empty
64 
    !for k=1 to $nblocalvar
 64 
  !for k=1 to $nblocalvar
65 
	!if $k=$stechvar
 65 
    !if $k=$stechvar
66 
	    donnees=!append line :$tc_name\
 66 
  	  donnees=!append line :$tc_name\
67 
$tc_value to $donnees
 67 
$tc_value to $donnees
68 
	!else
 68 
	  !else
69 
	    tmp=!record $k of wimshome/log/classes/$wims_class/.techvar
 69 
	    tmp=!record $k of wimshome/log/classes/$wims_class/.techvar
70 
	    donnees=!append line :$tmp to $donnees
 70 
	    donnees=!append line :$tmp to $donnees
71 
	!endif
 71 
	  !endif
- 
 
 72 
  !next k
- 
 
 73 
  !filewrite wimshome/log/classes/$wims_class/.techvar $donnees
- 
 
 74 
  !if $ol_name!=$tc_name
- 
 
 75 
    nb=!recordcnt wimshome/log/classes/$tv_Sclass/.indextechvar
- 
 
 76 
  	donnees=$empty
- 
 
 77 
  	!for k=1 to $nb
- 
 
 78 
  	  tmp=!record $k of wimshome/log/classes/$tv_Sclass/.indextechvar
- 
 
 79 
  	  !if $(tmp[2])=$wims_class and $(tmp[3])=$stechvar
- 
 
 80 
  		  donnees=!append line :$tc_name,$wims_class,$stechvar to $donnees
- 
 
 81 
  	  !else
- 
 
 82 
  		  donnees=!append line :$tmp to $donnees
- 
 
 83 
  	  !endif
72 
    !next k
 84 
    !next k
73 
    !filewrite wimshome/log/classes/$wims_class/.techvar $donnees
 - 
 
74 
    !if $ol_name!=$tc_name
 - 
 
75 
        nb=!recordcnt wimshome/log/classes/$tv_Sclass/.indextechvar
 - 
 
76 
	donnees=$empty
 - 
 
77 
	!for k=1 to $nb
 - 
 
78 
	    tmp=!record $k of wimshome/log/classes/$tv_Sclass/.indextechvar
 - 
 
79 
	    !if $(tmp[2])=$wims_class and $(tmp[3])=$stechvar
 - 
 
80 
		donnees=!append line :$tc_name,$wims_class,$stechvar to $donnees
 - 
 
81 
	    !else
 - 
 
82 
		donnees=!append line :$tmp to $donnees
 - 
 
83 
	    !endif
 - 
 
84 
	!next k
 - 
 
85 
	!filewrite wimshome/log/classes/$tv_Sclass/.indextechvar $donnees
 85 
  	!filewrite wimshome/log/classes/$tv_Sclass/.indextechvar $donnees
86 
    !endif
 86 
  !endif
87 
    !restart module=adm/class/techvar
 87 
  !restart module=adm/class/techvar
88 
!endif
 88 
!endif
89 
 
 -