
**********
* PCSYFR *
**********
@  7, 9 SAY "U KUNT NU DE BESTANDEN LATEN CONTROLEREN. DIT IS NODIG INDIEN"
@  8, 9 SAY "EEN VAN DE BESTANDEN PROBLEMEN GEEFT BIJ HET GEBRUIK."
@  9, 0 SAY "LET OP : KOPIEER VOOR GEBRUIK DE BESTANDSCHIJF !!!"
@ 11, 9 SAY "WILT U HET CONTROLEREN LATEN UITVOEREN (J/N)"
STORE "." TO akk
DO WHILE .NOT. (akk $ "JN")
   STORE "." TO akk
   @ 11,54 GET akk PICTURE "!"
   READ
   CLEAR GETS
ENDDO
IF akk = "J"
   @ 13,18 SAY "BESTAND :"

   @ 13,30 SAY "OPDRACHT"
   USE pcduopd
   COPY STRUCTURE TO &dummy
   USE &dummy
   APPEND FROM &opdracht
   USE
   DELETE FILE &opdracht
   RENAME &dummy TO &opdracht
   USE &opdracht
   INDEX ON prod:nr TO &opdracht
   USE
   @ 13,41 SAY "OKE'"

   @ 14,30 SAY "OPLAGE"
   USE pcduopl
   COPY STRUCTURE TO &dummy
   USE &dummy
   APPEND FROM &oplage  
   USE
   DELETE FILE &oplage  
   RENAME &dummy TO &oplage  
   USE &oplage  
   INDEX ON prod:nr TO &oplage  
   USE
   @ 14,41 SAY "OKE'"

   @ 15,30 SAY "PLANNING"
   USE pcduplan
   COPY STRUCTURE TO &dummy
   USE &dummy
   APPEND FROM &planning
   USE
   DELETE FILE &planning
   RENAME &dummy TO &planning
   USE &planning
   INDEX ON prod:nr TO &planning
   USE
   @ 15,41 SAY "OKE'"

   @ 16,30 SAY "OFFERTES"
   USE pcduoff  
   COPY STRUCTURE TO &dummy
   USE &dummy
   APPEND FROM &offertes
   USE
   DELETE FILE &offertes
   RENAME &dummy TO &offertes
   USE &offertes
   INDEX ON prod:nr TO &offertes
   USE
   @ 16,41 SAY "OKE'"

   @ 17,30 SAY "CALCDAT"
   USE pcducalc  
   COPY STRUCTURE TO &dummy
   USE &dummy
   APPEND FROM &calcdat 
   USE
   DELETE FILE &calcdat 
   RENAME &dummy TO &calcdat 
   USE &calcdat 
   INDEX ON prod:nr TO &calcdat 
   USE
   @ 17,41 SAY "OKE'"

   @ 19, 9 SAY "DE BESTANDEN ZIJN NU GECONTROLEERD. DRUK RETURN"
   STORE "." TO akk
   @ 19,57 GET akk
   READ
   CLEAR GETS
ENDIF
STORE "." TO akk
RETURN
*
* EINDE PROGRAMMA
*
