CEURCHK ; Conversie naar Euro - Te kontroleren na conversie ;[ 03/12/2001  9:52 AM ]
 Quit
 ;
DOC 
 ;Te kontroleren na de Van Hoecke conversie:
 ;
 ;
 ;- Raadplegen klanten:
 ;  - Het veld 'OMZET' in de hoofding
 ;  - Volgende schermen:
 ;    Verkoopanalyse (Q)
 ;    Betalingsgedrag (B)
 ;    Kredietlimiet (2)
 ;    Maandverkoop (M)
 ;    Detail maandverkoop (M-D)
 ;    Prijsvergelijk (&)
 ;    Omzet per subgroep (G)
 ;
 ;- Raadplegen produkten:
 ;  - Volgende schermen:
 ;    Verkoopanalyse (V)
 ;    Het prijzenscherm (5)
 ;    De prijzentabel (T)
 ;    Maandverkoop (M)
 ;    Detail maandverkoop (M-D)
 ;    Weekverkoop (W)
 ;***
 New L,R
 Write !,$ZN,!
 For L=1:1 Set R=$T(DOC+L) Quit:R=""!($P(R,";",2)="***")  Do
 .If $E(R)=" " Write !?5,$P(R,";",2,99)
 .Else  Xecute $P(R,";")_$P(R,";",2,99)
 Quit
 ;