!!! fichier de traitement des donnes de l'exo de type 1 !!!

## l'tape 3
!if $navig!=$etape
  rindicL=
  rfmatL=
  rpmat=
  rindic=
  etape=$navig
  !exit
!endif

!if $propsrep=$empty
  exalert=$(alerts[1;])
  !exit
!endif

errnp=!itemcnt $propsrep  

!if ($[$propsnb+1] isitemof $propsrep) and $errnp>1
  exalert=$(alerts[5;])
   propsrep=
   !exit
!endif

!if ($errnp>1 and $multirep=$empty)
  multirep=1
!endif

propsrep=!sort numeric item $propsrep
chronobs=$[$chronobs+1]
rpmat=!append line $propsrep to $rpmat

temp_indic=!translate $\
$ to $ $ in $exo_indic
temp_indic=!trim $temp_indic
!if $temp_indic=$empty
  temp_indic=(0,0)
 !else
   temp_indic=(1,$temp_indic)
!endif
  
rindic=!append line $temp_indic to $rindic
  
!if $propsrepList!=$empty
  propsrepList=!replace line number $chronobs by $propsrep in $propsrepList
!endif

!if $indicList_obj!=$empty
  indicList_obj=!replace line number $chronobs by $temp_indic in $indicList_obj
!endif
  
!if $chronobs=$obsnb
  etape=$[$etape+1]
  propsrepList=$rpmat
  indicList_obj=$rindic
  rpmat=
  rindic=
  
  !if $foncsrecord!=$empty
    foncsList=
    foncsnb=!linecnt $foncsrecord
    !for i=1 to $foncsnb
      fonc=!trim $(foncsrecord[$i;])
      foncsList=!append line $fonc, to $foncsList
    !next i
    fonc=!char 1 to -2 of $(foncsList[$foncsnb;])
    foncsList=!replace line number $foncsnb by $fonc in $foncsList
  !endif 
!endif
  
propsrep=
exo_indic=
!exit

