KPLK8 G 1 ;PRIJSVERGELIJK PER KLANT ;KPLK8; Quit naar KPLK5, KPLK9 [ 08/05/2002   4:23 PM ]
 ;
T1 ;BEGIN
T2 ;EINDE
T3 ;PERIODE : 
T4 ; TOT 
T5 ;SELEKTIE : 
T7 ; TOTAAL
T9 ;OVERZICHT VOLGENS : 
T10 ;:------:----------------------------------------:--------------:--------------:------:
T11 ;------------:------------:------:------:------:
T12 ;: LIJN : KLANTNUMMER - NAAM                     :   HUID OMZET :   SCHA OMZET : OM % :
T13 ; HUID MARGE : SCHA MARGE : MA % : %/HO : %/SO :
T14 ;BLZ:
 ;
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 ; drukken info
 ;
30 D INIT^vhPRINTER(132) G YZ:'$D(Print)
 S IND=$D(@("^"_Q_"HULP($J,I2,0)")),IND="" D HD,HD5 S (LNN,TOSO,TOHO,TOSM,TOHM)=0
31 S IND=$N(^(IND)) G 43:IND=-1
33 S X=^(IND),KC=$P(X,D,1),KN=$P(X,D,2),TKOS=$P(X,D,3),TKMS=$P(X,D,4),TKOH=$P(X,D,5),TKHM=$P(X,D,6)
34 S KYW=$P(X,D,7),KPLS=$P(X,D,8),KPL=$P(X,D,9),UITS=$P(X,D,10),UIT=$P(X,D,11)
35 S TOSO=TOSO+TKOS,TOSM=TOSM+TKMS,TOHO=TOHO+TKOH,TOHM=TOHM+TKHM,LNN=LNN+1
36 W ! S LN=LN+1 I LN>50 W $P($T(T10),U,2) W:PWD $P($T(T11),U,2) W # D HD,HD5 G 36
37 W ":" S R=LNN_"\5\1\0" D R3 W ?7,":",$J(KC,5)," ",KN,?47,KYW,?48,":",KPL,?50,UIT S R=TKOH_"\11\51\0" D:+R R3 W ?63,":" I KPLS'=KPL!(UITS'=UIT) W KPLS,?65,UITS
38 S R=TKOS_"\11\66\0" D:TKOS'=TKOH&(+R) R3 W ?78,":" S R=$S(TKOH:TKOS-TKOH/TKOH,1:0)*100_"\5\79\1" D:+R R3 W ?85,":"
39 G 31:'PWD S R=TKHM_"\11\86\0" D:+R R3 W ?98,":" S R=TKMS_"\11\99\0" D:TKMS'=TKHM&(+R) R3 W ?111,":"
40 S R=$S(TKHM:TKMS-TKHM/TKHM,1:0)*100_"\5\112\1" D:+R R3 W ?118,":"
41 S R=$S(TKOH:TKHM/TKOH,1:0)*100_"\5\119\1" D:+R R3 W ?125,":" S R=$S(TKOS:TKMS/TKOS,1:0)*100_"\5\126\1"
42 D:+R&((TKOH'=TKOS)!(TKHM'=TKMS)) R3 W ?132,":" G 31
43 W !,$P($T(T10),U,2) W:PWD $P($T(T11),U,2) W !,":",?7,":",$P($T(T7),U,2),?48,":" S R=TOHO_"\11\51\0" D:+R R3 W ?63,":"
44 S R=TOSO_"\11\66\0" D:TOSO'=TOHO&(+R) R3 W ?78,":" S R=$S(TOHO:TOSO-TOHO/TOHO,1:0)*100_"\5\79\1" D:+R R3 W ?85,":"
45 G 49:'PWD S R=TOHM_"\11\86\0" D:+R R3 W ?98,":" S R=TOSM_"\11\99\0" D:TOSM'=TOHM&(+R) R3 W ?111,":"
46 S R=$S(TOHM:TOSM-TOHM/TOHM,1:0)*100_"\5\112\1" D:+R R3 W ?118,":"
47 S R=$S(TOHO:TOHM/TOHO,1:0)*100_"\5\119\1" D:+R R3 W ?125,":" S R=$S(TOSO:TOSM/TOSO,1:0)*100_"\5\126\1"
48 D:+R&((TOHO'=TOSO)!(TOHM'=TOSM)) R3 W ?132,":"
49 W !,$P($T(T10),U,2) W:PWD $P($T(T11),U,2)
 ;
YZ Q
 ;
 ;    titel drukken
HD S BLZ=BLZ+1,LN=0 W !,QN,?(78+PWD),$P($T(T14),U,2),$J(BLZ,4),!,NM2,?(26+(PWD/2)),@F82,$P($T(+1),U,2),@F83,$C(13),?(78+PWD),DT
HD1 W !,NM3,?(26+(PWD/2)),$P($T(T3),U,2),$P(HFBP,D,1),$P($T(T4),U,2),$P(HLBP,D,1)
HD2 I $P(HFBP,D,2)!($P(HLBP,D,2)) W " (",$S($P(HFBP,D,2):$P($T(T1),U,2),1:$P(HFBP,D,1)),$P($T(T4),U,2),$S($P(HLBP,D,2):$P($T(T2),U,2),1:$P(HLBP,D,1)),")"
HD3 W ?(79+PWD),TD,! I $D(KOM) W ?(26+(PWD/2)),$P($T(T9),U,2) W:KOM["H" "HUIDIGE " W:KOM["S" "SCHADUW" W:KOM["O" "OMZET" W:KOM["M" "MARGE" W:K="K" "KLANT" W !
HD4 W ?(26+(PWD/2)),$P($T(T5),U,2),X1,"   ",X2,!! G HDZ
HD5 W $P($T(T10),U,2) W:PWD $P($T(T11),U,2) W !,$P($T(T12),U,2) W:PWD $P($T(T13),U,2)
HD6 W !,$P($T(T10),U,2) W:PWD $P($T(T11),U,2)
HDZ Q
 ;