Subversion Repositories wimsdev

Rev

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

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