KPRLK3 G 1 ;PRIJSLIJST KLANTEN ;KPRLK3; Do van KPRLK2, naar KPRLK4,KPRLK5 [ 08/06/2002   8:52 AM ]
 ;
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 
 ;
R3 S R1=$P(R,D,2),R2=$P(R,D,4),R0=$J($P(R,D,1),0,R2),R3=" ",R4="" S:R2 R4=","_$P(R0,".",2),R1=R1-1-R2 S:R0<0 R3="-",R0=-R0
R3A S R0=+$P(R0,".",1) F R5=3,7 S R6=$L(R0) G R3B:R6'>R5 S R0=$E(R0,1,R6-R5)_"."_$E(R0,R6-R5+1,R6)
R3B W ?$P(R,D,3),$J(R0,R1),R4,R3
R3Z K R0,R1,R2,R3,R4,R5,R6 Q  ;V1 26.11.84
 ;
1 S KV=$S(KV="MTL":"",1:$$MUNT^vhRtn1(KV,1)) S:$L(KV) KV=KV_" " S BLZ=0 D HD,HDP
100 F I=1:1:5 I $D(@("^"_Q_"STKL(0,KT,I)")) S X=^(I) I $L(X) S LN=LN+1 W !?V,":",?(14+V),":",?(16+V),X,$C(13),?(16+V),X,$C(13),?(16+V),X,?(74+V),":" W:KKN ?(100+V),":" W ?(112+V),":"
102 S LN=LN+10 I LN W !?V,":",?(14+V),":",?(74+V),":" W:KKN ?(100+V),":" W ?(112+V),":" S LN=LN+1
2 S PHG=$N(@("^"_Q_"HULP($J,PHG)")),PGR="" I PHG=-1 K @("^"_Q_"HULP($J)") G 33
3 S PGR=$N(@("^"_Q_"HULP($J,PHG,PGR)")) G 2:PGR=-1 S PSG=""
5 S PSG=$N(@("^"_Q_"HULP($J,PHG,PGR,PSG)")) G 3:PSG=-1 S PCC=""
7 S PCC=$N(@("^"_Q_"HULP($J,PHG,PGR,PSG,PCC)")) G 5:PCC=-1 S X=^(PCC),PID=$P(X,D,1),PC=$P(X,D,2),PN=$P(X,D,3),PN2=$P(X,D,4),PCOL=$P(X,D,5)
9 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 9
11 W !?V,":",?(2+V),PID,?(14+V),":",?(16+V),$E(PC,1,11),?(28+V),PN,?(55+V),PCOL,?(74+V),":" W:ZMPV ?(76+V),$P("OUD  \ANCIEN\ALT\OLD",D,TL),":"
13 S PLP=$P(X,D,6),UEP=$P(X,D,7),PK1S=$P(X,D,8),PK2S=$P(X,D,9),PLPH=$P(X,D,10),UEPH=$P(X,D,11),PK1H=$P(X,D,12),PK2H=$P(X,D,13)
14 S UMC=$P(X,D,14),AFA=$P(X,D,15),GVP=$P(X,D,16)
15 I 'KKN S R=UEP S:ZMPV R=UEPH S R=R_"\11\"_($S($L(KV):87,1:83)+V)_"\2" D R3 W:'$L(KV) UMC W $C(13),?(98+V),$P("%\/M",D,$F("HM",AFA)-1) G 23
17 S R=PLP S:ZMPV R=PLPH S R=R_"\11\"_($S($L(KV):87,1:83)+V)_"\2" D R3 W:'$L(KV) UMC W $C(13),?(98+V),$P("%\/M",D,$F("HM",AFA)-1)
19 W ?(100+V),":" I 'ZMPV S R=PK1S_"\4\"_($S(PK2S:102,1:107)+V)_"\1" D:+R R3 S R=PK2S_"\4\"_(107+V)_"\1" D:+R R3 G 23
21 S R=PK1H_"\4\"_($S(PK2H:102,1:107)+V)_"\1" D:+R R3 S R=PK2H_"\4\"_(107+V)_"\1" D:+R R3
23 W ?(112+V),":",!?V,":",?14+V,": " W:GVP>1 $J($P("VP\EM\VP\VP",D,TL)_":"_GVP,8) W ?(28+V),PN2,?(74+V),":" G 29:'ZMPV I 'ZMPC W ?(76+V),$P("NIEUW\NOUV. \NEU\NEW",D,TL),":" G 27
25 S R=$J($S(UEPH:UEP-UEPH/UEPH,1:0)*100,1,1) I KKN,PLP=PLPH S R=0
 I R S:R'<0 R="+"_R S R=$P(R,".",1)_","_$P(R,".",2)_" %" W ?(76+V),R
27 S R=UEP S:KKN R=PLP S R=R_"\11\"_($S($L(KV):87,1:83)+V)_"\2" D R3 W $C(13) D R3 W $C(13) D R3 W:'$L(KV) UMC W $C(13),?(98+V),$P("%\/M",D,$F("HM",AFA)-1)
29 G 31:'KKN W ?(100+V),":" I ZMPV F I=1:1:3 W $C(13) S R=PK1S_"\4\"_($S(PK2S:102,1:107)+V)_"\1" D:+R R3 S R=PK2S_"\4\"_(107+V)_"\1" D:+R R3
31 W ?(112+V),":",!?V,":",?(14+V),":",?(74+V),":" W:KKN ?(100+V),":" W ?(112+V),":" G 7
33 G ^KPRLK5:ZMPC,^KPRLK4
 ;
YZ Q
 ;
 ;    titel drukken
HD W !
HD1 F I=2:1:3 W ! I 'SW37 F Z=1:1:3 W $C(13),?(V+28),@(Q_"BA(99,I)")
HD2 F I=4:1:6 W !?V I 'SW37 W @(Q_"BA(99,I)")
HD5 W ?(73+V) W:$L(KA) KA," " W KN,!?V W:'SW37 @(Q_"BA(99,7)")
HD6 W ?(73+V),KN2,!?V W:'SW37 @(Q_"BA(99,8)") W:'$L(KN2) ?(73+V),KS
HD7 W !?V W:'SW37 @(Q_"BA(99,9)") W ?(73+V) W:$L(KN2) KS W:'$L(KN2) KP,"   ",KW
HD8 W !?V W:'SW37 @(Q_"BA(99,10)"),?(73+V) W:$L(KN2) KP,"   ",KW I '$L(KN2) W:$$LAND^vhRtn1(KLL)'="BE" $$LAND^vhRtn1(KLL,2)
HD9 W !?V W:'SW37 @(Q_"BA(99,11)") I $L(KN2) W:$$LAND^vhRtn1(KLL)'="BE" ?(73+V),$$LAND^vhRtn1(KLL,2)
HD10 W !?V W:'SW37 @(Q_"BA(99,12)")
HDZ Q
 ;
HDP W:BLZ !!! 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
 ;