#dit is een statisch saai sommetje ...
bewerking=bewerking4.proc
aantal_vragen=1
tekst=$empty
antwoordje=$empty
n=$teller
!if $graad=0
    R=$teller
!else
    R=$graad
!endif

K=!recordcnt nivo/boodschappen.$taal

!for p=1 to $K
    lijst=!append item $p to $lijst
!next p

lijst=!shuffle $lijst

!if $R=1 or $R=2
    totaal=0
    !if $R=1
	aantal=!randitem 5,6,7,8,9,10
	!for p=1 to $aantal
	    b=!item $p of $lijst
	    CC=!record $b of nivo/boodschappen.$taal
	    #type=!item 1 of $CC 
	    boodschap=!item 2 of $CC
	    prijs=!item 3 of $CC
	    totaal=$[$prijs + $totaal]
	    tekst=!append line <td>$boodschap</td><td><center><textarea cols="10" rows="1" readonly >$prijs &euro;</textarea></center></td><tr> to $tekst
	    antwoordje=!append line <td>$boodschap</td><td> $prijs &euro;</td><tr> to $antwoordje
	!next p
	!if $wims_user=supervisor
	    ANTWOORD=$totaal
	!else
    	    ANTWOORD=$empty
	!endif	
	!if $taal=nl
	    somtekst$n=<table border="1" width="100%" cellpadding="10"><td>artikel</td><td>de prijs per verpakking<td><tr>$tekst</table>\
	    De totaal prijs van alle boodschappen (in &euro;)<br><textarea cols=40 rows=1 name=ant$n>$ANTWOORD</textarea> 
	!else
	    somtekst$n=<table border="1" width="100%" cellpadding="10"><td>article</td><td>price<td><tr>$tekst</table>\
	    The total price of all shoppings (in &euro;)<br><textarea cols=40 rows=1 name=ant$n>$ANTWOORD</textarea> 
	!endif
    !else
	aantal=!randitem 3,4,5
	!for p=1 to $aantal
	    b=!item $p of $lijst
	    CC=!record $b of nivo/boodschappen.$taal
	    #type=!item 1 of $CC 
	    boodschap=!item 2 of $CC
	    prijs=!item 3 of $CC
	    totaal=$[$prijs + $totaal]
	    tekst=!append line <td>$boodschap</td><td><center><textarea cols="10" rows="1"></textarea>&euro;</center></td><tr> to $tekst
	    antwoordje=!append line <td>$boodschap</td><td> $prijs &euro;</td><tr> to $antwoordje
	!next p
	
	!if $wims_user=supervisor
	    ANTWOORD=$totaal
	!else
    	    ANTWOORD=$empty
	!endif	

	!if $taal=nl
	    somtekst$n=<table border="1" width="100%" cellpadding="10"><td>artikel</td><td>zoek de prijs op de "kassabon"<td><tr>$tekst</table>\
	    De totaal prijs van alle boodschappen (in &euro;)<br><textarea cols=40 rows=1 name=ant$n>$ANTWOORD</textarea> 
	!else
	    somtekst$n=<table border="1" width="100%" cellpadding="10"><td>article</td><td>lookup the pice in the "price slip"<td><tr>$tekst</table>\
	    The total price of all shoppings  (in &euro;)<br><textarea cols=40 rows=1 name=ant$n>$ANTWOORD</textarea> 
	!endif    
    !endif	
    
    !if $taal=nl
	opgave$n=hieronder staat een boodschappen lijstje<br> tel alles bij elkaar op<br>En vul in:
	antwoord$n=<table width="100%" border="1" width="100%"><td>artikel</td><td>prijs<td>\
	<tr>$antwoordje\
	<td><b>en alle boodschappen bij elkaar opgeteld:</b></td><td><b>$totaal &euro;</b></td></table>
    !else
	opgave$n=here is a shoppinglist<br> add all shoppings <br>And fill in:
	antwoord$n=<table width="100%" border="1" width="100%"><td>article</td><td>price<td>\
	<tr>$antwoordje\
	<td><b>the total price of all shoppings:</b></td><td><b>$totaal &euro;</b></td></table>
    !endif
    
    GOED$n=$totaal
!exit
!endif

!if $R>2
    prijs=0
    !if $taal=nl
	verpakking=verpakking
	stuks=stuks
    !else
	verpakking=items
	stuks=pieces
    !endif	
    !if $R=3
	aantal=!randitem 6,7,8,9,10
	!for p=2 to $aantal
	    b=!item $p of $lijst
	    CC=!record $b of nivo/boodschappen.$taal
    	    hoeveel=!randitem 1,2,3,4,5,6,7,8,9,10
	    soort=!item 1 of $CC
	    boodschap=!item 2 of $CC
	    prijs=!item 3 of $CC
    	    sub_totaal=$[$prijs*$hoeveel]
    	    totaal=$[$sub_totaal + $totaal]
	    tekst=!append line <td>$boodschap</td><td>$hoeveel </td></td><td><center><textarea cols="10" rows="1" readonly>$prijs &euro; </textarea></center></td><tr> to $tekst
	    antwoordje=!append line <td>$hoeveel $verpakkingen $soort </td><td>$hoeveel $stuks &times; $prijs = $sub_totaal &euro;</td><tr> to $antwoordje
	!next p
    !else
	aantal=!randitem 3,4,5
	!for p=2 to $aantal
	    b=!item $p of $lijst
	    CC=!record $b of nivo/boodschappen.$taal
    	    hoeveel=!randitem 1,2,3,4,5,6,7,8,9,10
	    soort=!item 1 of $CC
	    boodschap=!item 2 of $CC
	    prijs=!item 3 of $CC
    	    sub_totaal=$[$prijs*$hoeveel]
    	    totaal=$[$sub_totaal + $totaal]
	    tekst=!append line <td>$boodschap</td><td>$hoeveel </td></td><td><center><textarea cols="10" rows="1"></textarea></center></td><tr> to $tekst
	    antwoordje=!append line <td>$hoeveel $verpakkingen $soort </td><td>$hoeveel $stuks &times; $prijs = $sub_totaal &euro;</td><tr> to $antwoordje
	!next p
    !endif
    !if $wims_user=supervisor
	ANTWOORD=$totaal
    !else
	ANTWOORD=$empty
    !endif	
    !if $taal=nl
	somtekst$n=<table border="1" width="100%"><td>artikel</td><td>hoeveelheid<br><small>verpakkingen</small></td>\
	<td>zoek de prijs op in de prijslijst</td><tr>$tekst</table>\
	De totaal prijs van alle boodschappen (in &euro;)<br><textarea cols=40 rows=1 name=ant$n>$ANTWOORD</textarea> 
        opgave$n=hieronder staat een boodschappen lijstje<br> tel alles bij elkaar op<br>En vul in:
	antwoord$n=<table width="100%" border="1"><td>artikelen</td><td>de prijzen<td>\
	<tr>$antwoordje\
	<td><b>en alle boodschappen bij elkaar opgeteld:</b></td><td><b>$totaal &euro;</b></td></table>
    !else
	somtekst$n=<table border="1" width="100%"><td>article</td><td>amount<br><small>$verpakkingen</small></td>\
	<td>lookup the pice in the "price slip"</td><tr>$tekst</table>\
	the total price of all shoppings (in &euro;)<br><textarea cols=40 rows=1 name=ant$n>$ANTWOORD</textarea> 
        opgave$n=here is a shoppinglist<br> add all shoppings <br>And fill in:
	antwoord$n=<table width="100%" border="1"><td>article</td><td>prices<td>\
	<tr>$antwoordje\
	<td><b>the total price of all shoppings:</b>:</td><td><b>$totaal &euro;</b></td></table>
    !endif
    GOED$n=$totaal
!exit
!endif