cAFE2(MNT) ;Wijzigen muntcode LE ;%AFE2 ; [ 11/09/98  12:26 PM ]
 ;
T0 ;Wijzigen muntcode LE ;
T1 ;Muntcode;
 ;
T0F ;Modification code mon. LE ;
T1F ;Code monnaie;
 ;
T0E ;Wijzigen muntcode LE ;
T1E ;Muntcode;
 ;
 ; test op aankoop
1 I $D(@("^"_Q_"TO($P(B(1),D))")) G 2
11 I $D(@("^"_Q_"TOL($P(B(1),D))")) G 2
13 I $D(^INDEX(Q,"PR_LE","M1",$P(B(1),D))) G 2
15 S K=$$^cANSYN("KODE.VM","",MNT) G YZ    ; enkel boekhouding
 ;
 ; aankoop: enkel naar euro
2 S R="K\22\3\"_$P($T(@("T1"_QT)),U,2)_"\""[] = "_MNT_"   1[] = EUR""\1\\""-1""[K\\\\\1" D R0
21 I K'="-",K'="," S K=$S(K:"EUR",1:MNT)
 ;
YZ Q
 ;
CNW(KC) ; Conditie niet wijzigbaar (1=ja)
 N R S R=0
 I KC,$D(@("^"_Q_"TO(KC)")) S R=1                  ; voorstel/bestelling
 I 'R,KC,$D(@("^"_Q_"TOL(KC)")) S R=1              ; (gecontr.) levering
 I 'R,KC,$D(^INDEX(Q,"PR_LE","M1",KC)) S R=1       ; aankoopgegevens
 ;I R,$P(B(1),D,11)'="EUR",DJ>1998 S R=0  ; toch wijzigbaar naar euro
CNWZ Q R
 ;
R0 S $P(R,D,12)=$T(+0) D ^cAN1000 Q  ; v12 23.01.95
 ;
ZZ ; 05.02.01 - 16 u 23 * V7.84