KPRLK5 G 1 ;PRIJSLIJST KLANTEN ;KPRLK3; Go van KPRLK3 naar KPRLK4 [ 08/05/2002  4:56 PM ]
 ;
T1 ;:-------------:-----------------------------------------------------------:-------------------------
T2 ;-----------:
T3 ;: IDENTNUMMER : ARTIKEL  -  OMSCHRIJVING;: NO. IDENT.  : ARTICLE  -  DESCRIPTION;: IDENTNUMMER : ARTIKEL  -  BEZEICHNUNG;: IDENTNUMMER : ARTICLE  -  DESCRIPTION
T4 ; KORTING;  REMISE;  RABATT;DISCOUNT
T5 ;EENH. PR. ;PRIX UNI. ;EINH. PR. ;ONE PRICE 
 ;
1 S LN=LN+1 I LN>36 W !?V,$P($T(T1),U,2),$S(KKN:":",1:"-"),$P($T(T2),U,2),# D HDP G 5
3 W !?V,":",?(14+V),":",?(74+V),":" W:KKN ?(100+V),":" W ?(112+V),":"
5 S R=$J($S(TOMH:TOMS-TOMH/TOMH,1:0)*100,1,1) S:R'<0 R="+"_R S R=$P(R,".",1)_","_$P(R,".",2)_" %"
7 S LN=LN+3 I LN>36 W !?V,$P($T(T1),U,2),$S(KKN:":",1:"-"),$P($T(T2),U,2),# D HDP G 7
9 W !?V,":",?(14+V),":",?(74+V),":" W:KKN ?(100+V),":" W ?(112+V),":"
11 I TL=1 F I=1:1:3 W $C(13),?(16+V),"DE GEMIDDELDE PRIJSAFWIJKING MET BETREKKING TOT UW"
13 I TL=2 F I=1:1:3 W $C(13),?(16+V),"LA DIFFERENCE MOYENNE DES PRIX CONCERNANT VOTRE"
15 I TL=3 F I=1:1:3 W $C(13),?(16+V),"IHRE DURCHSCHNITTLICHE PREISABWEICHUNG"
17 W !?V,":",?(14+V),":",?(74+V),":" W:KKN ?(100+V),":" W ?(112+V),":"
19 I TL=1 F I=1:1:3 W $C(13),?(16+V),"TOTALE OMZET GEREALISEERD IN DE PERIODE"
21 I TL=2 F I=1:1:3 W $C(13),?(16+V),"CHIFFRE D'AFFAIRES REALISE DANS LA PERIODE"
23 I TL=3 F I=1:1:3 W $C(13),?(16+V),"IM VERGLEICH ZU IHREM UMSATZ"
25 W !?V,":",?(14+V),":",?(74+V),":" W:KKN ?(100+V),":" W ?(112+V),":"
27 I TL=1 F I=1:1:3 W $C(13),?(16+V),"VAN ",$P(HFBP,D,1)," TOT ",$P(HLBP,D,1)," BEDRAAGT ",R
29 I TL=2 F I=1:1:3 W $C(13),?(16+V),"DU ",$P(HFBP,D,1)," JUSQU'AU ",$P(HLBP,D,1)," SE MONTE A ",R
31 I TL=3 F I=1:1:3 W $C(13),?(16+V),"VON ",$P(HFBP,D,1)," BIS ",$P(HLBP,D,1)," BETRAEGT ",R
 I $G(^DCPRYSL(DT,TD))="" S ^DCPRYSL(DT,TD)=0
 S Count=^DCPRYSL(DT,TD)+1,^DCPRYSL(DT,TD)=Count
 S ^DCPRYSL(DT,TD,Count)=KC_D_R
33 G ^KPRLK4
 ;
YZ Q
 ;
HDP S BLZ=BLZ+1,LN=0 W !!!!! F I=1:1:3 W $C(13),?V,$P("PRIJSLIJST\PRIX COURANT\PREISLISTE\PRICE LIST",D,TL)
HDP1 W ?(28+V) W:$L(KA) KA," " W KN,?(73+V),$P("DATUM\DATE\DATUM\DATE",D,TL),?(34+V),": ",DT,?(104+V),$P(" BLZ.\ PAGE\SEITE\PAGE",D,TL),":",$J(BLZ,3),!
HDP2 W !?V,$P($T(T1),U,2),$S(KKN:":",1:"-"),$P($T(T2),U,2)
HDP3 W !?V,$P($T(T3),U,TL+1),?(74+V),":"
HDP4 W ?(90+V-$L(KV)),$P($T(T5),U,TL+1),KV W:KKN ?(100+V),":",?(101+V),$P($T(T4),U,TL+1)," %" W ?(112+V),":"
HDP5 W !?V,$P($T(T1),U,2),$S(KKN:":",1:"-"),$P($T(T2),U,2)
HDPZ Q
 ;