Index: cANR201.mac.rou
===================================================================
diff -u -r734 -r3542
--- cANR201.mac.rou	(.../cANR201.mac.rou)	(revision 734)
+++ cANR201.mac.rou	(.../cANR201.mac.rou)	(revision 3542)
@@ -1,69 +1,70 @@
-cANR201 ;Doc. naar Word/Excell; %ANR20 [ 12/21/00  9:44 AM ]
- ;
- G YZ
- ;
-T0 ;Documenten naar Word/Excel;
- ;
-T0E ;Documenten naar Word/Excel;
- ;
-EP(K,SP,UPRDMS,POS,POSDEC) ; drukken eenheidsprijs vanuit de 800 reeks
- ; K = prijs
- ; SP = soort ("V" = verkoop, "A" = aankoop)
- ; UPRDMS = DMS voor producten (niet bestaand = "PR")
- ; POS = aantal posities (niet bestaand : 12)
- ; POS = aantal posities decimalen (niet bestaand : 2)
- ; 
- S POS=$G(POS),POSDEC=$G(POSDEC)
- S:'$L(POS) POS=12 S:'$L(POSDEC) POSDEC=2
- I POSDEC S POSDEC=POSDEC+1
- S K=$$OUT^cAFE5(K,UQD,$G(SP,"V"),$G(UPRDMS,"PR"))
- S R=$P(K,D)
-EPZ Q 
- ;
-IND(BEDRAG,VM,DAT,UPM)     ;  Bepalen van het indicatief bedrag en soort
- ; bedrag, munt bon, datum bon en "ULNT" of "LNT" waar de par. zitten
- N R,FM,DATP5,MUNT
- S R="",DAT=$$DC^cAFD1(DAT)
- I '$L(VM) S VM=$$BF^cAFA1
- S UPM=$G(UPM,"ULNT")
- I DAT<19990101 G INDZ
- ; indien geen EMU-munt wordt nooit indicatief geprint
- I '$P($G(@("^"_Q_"BA(11,VM)")),D,12) G INDZ
- ; indien VM'="EUR" en fact.dat >01.01.2002 dan wordt er nooit
- ; meer indicatief in EUR meer afgeprint
- I VM'="EUR" S:DAT<20020101 R=$$OMREK^cAFE1(Q,BEDRAG,VM,"EUR","V","")_" EUR" G INDY
- ; indien VM="EUR"
- ; enkel indicatief in BEF indien lager dan P5
- S DATP5=$$DC^cAFD1($P(@("^"_Q_"BA(39)"),D,12))
- I DATP5=""!(DAT<DATP5) D
- . S MUNT=$P(@("^"_Q_"BA(39)"),D,9)
- . S R=$$OMREK^cAFE1(Q,BEDRAG,VM,MUNT,"V","")_" "_MUNT
-INDY I '$L(R) G INDZ
- ; indien geen indicatief afprinten in EUR
- I $P(R," ",2)="EUR",'$P(@("^"_Q_UGL_"(0,US,UPM)"),D,99) S R=""
- ; indien geen indicatief afprinten in BEF
- I $P(R," ",2)'="EUR",'$P(@("^"_Q_UGL_"(0,US,UPM)"),D,103) S R=""
-INDZ Q R
- ;
-KORT(K,SP,UPRDMS,POS,POSDEC) ; drukken korting vanuit de 800 reeks
- ; K = prijs
- ; SP = soort ("V" = verkoop, "A" = aankoop)
- ; UPRDMS = DMS voor producten (niet bestaand = "PR")
- ; POS = aantal posities (niet bestaand : 9)
- ; POSDEC = aantal posities decimalen (niet bestaand : 2)
- ;
- S POS=$G(POS),POSDEC=$G(POSDEC)
- S:'$L(POS) POS=9 S:'$L(POSDEC) POSDEC=2
- I POSDEC S POSDEC=POSDEC+1
- I K["%" D  G KORTZ
- . N R0,R1
- . S R0=$E(K),K=$E(K,2,$L(K)-1),R1=0
- . I K["." S K=$J(K,0,2),K=$P(K,".")_","_$P(K,".",2,99),R1=2
- . S K=R0_K_"%" ; W $J(K,$S($P($G(U8),U,9):$P(U8,U,9),1:POS)-$S(R1:0,1:POSDEC))
- S K=$$OUT^cAFE5(K,UQD,$G(SP,"V"),$G(UPRDMS,"PR"))
- S R=$P(K,D)
-KORTZ Q K
- ;
-YZ Q
- ;
-ZZ ; 05.02.01 - 16 u 23 * V7.84
\ No newline at end of file
+cANR201	;Doc. naar Word/Excell; %ANR20 [ 05/21/01  10:14 AM ]
+	;
+	G YZ
+	;
+T0	;Documenten naar Word/Excel;
+	;
+T0E	;Documenten naar Word/Excel;
+	;
+EP(K,SP,UPRDMS,POS,POSDEC)	; drukken eenheidsprijs vanuit de 800 reeks
+	; K = prijs
+	; SP = soort ("V" = verkoop, "A" = aankoop)
+	; UPRDMS = DMS voor producten (niet bestaand = "PR")
+	; POS = aantal posities (niet bestaand : 12)
+	; POS = aantal posities decimalen (niet bestaand : 2)
+	; 
+	S POS=$G(POS),POSDEC=$G(POSDEC)
+	S:'$L(POS) POS=12 S:'$L(POSDEC) POSDEC=2
+	I POSDEC S POSDEC=POSDEC+1
+	S K=$$OUT^cAFE5(K,UQD,$G(SP,"V"),$G(UPRDMS,"PR"))
+	S R=$P(K,D)
+EPZ	Q 
+	;
+IND(BEDRAG,VM,DAT,UPM)	    ;  Bepalen van het indicatief bedrag en soort
+	; bedrag, munt bon, datum bon en "ULNT" of "LNT" waar de par. zitten
+	N R,FM,DATP5,MUNT,DATH
+	S R="",DATH=$$DH^cAFD1(DAT),DAT=$$DC^cAFD1(DAT)
+	I '$L(VM) S VM=$$BF^cAFA1
+	S UPM=$G(UPM,"ULNT")
+	I DAT<19990101 G INDZ
+	; indien geen EMU-munt wordt nooit indicatief geprint
+	I '$P($G(@("^"_Q_"BA(11,VM)")),D,12) G INDZ
+	; indien VM'="EUR" en fact.dat >01.01.2002 dan wordt er nooit
+	; meer indicatief in EUR meer afgeprint
+	I VM'="EUR" S:DAT<20020101 R=$$OMREK^cAFE1(Q,BEDRAG,VM,"EUR","V","")_" EUR" G INDY
+	; indien VM="EUR"
+	; enkel indicatief in BEF indien lager dan P5
+	S DATP5=$P(@("^"_Q_"BA(39)"),D,12)
+	I DATP5=""!(DATH+1'>$$DH^cAFD1(DATP5)) D
+	. S MUNT=$P(@("^"_Q_"BA(39)"),D,9)
+	. S R=$$OMREK^cAFE1(Q,BEDRAG,VM,MUNT,"V","")_" "_MUNT
+INDY	I '$L(R) G INDZ
+	; indien geen indicatief afprinten in EUR
+	I $P(R," ",2)="EUR",'$P(@("^"_Q_UGL_"(0,US,UPM)"),D,99) S R=""
+	; indien geen indicatief afprinten in BEF
+	I $P(R," ",2)'="EUR",'$P(@("^"_Q_UGL_"(0,US,UPM)"),D,103) S R=""
+INDZ	Q R
+	;
+KORT(K,SP,UPRDMS,POS,POSDEC)	; drukken korting vanuit de 800 reeks
+	; K = prijs
+	; SP = soort ("V" = verkoop, "A" = aankoop)
+	; UPRDMS = DMS voor producten (niet bestaand = "PR")
+	; POS = aantal posities (niet bestaand : 9)
+	; POSDEC = aantal posities decimalen (niet bestaand : 2)
+	;
+	S POS=$G(POS),POSDEC=$G(POSDEC)
+	S:'$L(POS) POS=9 S:'$L(POSDEC) POSDEC=2
+	I POSDEC S POSDEC=POSDEC+1
+	I K["%" D  G KORTZ
+	. N R0,R1
+	. S R0=$E(K),K=$E(K,2,$L(K)-1),R1=0
+	. I K["." S K=$J(K,0,2),K=$P(K,".")_","_$P(K,".",2,99),R1=2
+	. S K=R0_K_"%" ; W $J(K,$S($P($G(U8),U,9):$P(U8,U,9),1:POS)-$S(R1:0,1:POSDEC))
+	S K=$$OUT^cAFE5(K,UQD,$G(SP,"V"),$G(UPRDMS,"PR"))
+	S R=$P(K,D)
+KORTZ	Q K
+	;
+YZ	Q
+	;
+ZZ	; 21.05.01 - 12 u 09 * V7.86
+