KPLK13 G 1 ;OVERZICHT PRIJSVERGELIJK ;KPLK13; Quit naar KPLK11 [ 08/05/2002   4:23 PM ]
 ;
T1 ;BEGIN
T2 ;EINDE
T3 ;PERIODE : 
T4 ; TOT 
T7 ;TOTAAL
T8 ;:===============================================:==============:==============:======:
T9 ;============:============:======:======:======:
T10 ;:-----------------------------------------------:--------------:--------------:------:
T11 ;------------:------------:------:------:------:
T12H ;: OVERZICHT                                     :   HUID OMZET :   SCHA OMZET : OM % :
T13H ; HUID MARGE : SCHA MARGE : MA % : %/HO : %/SO :
T12R ;: OVERZICHT                                     :  REEEL OMZET :   SCHA OMZET : OM % :
T13R ;REEEL MARGE : SCHA MARGE : MA % : %/HO : %/SO :
T14 ;BLZ:
T15 ;BELUX 
T16 ;NEDERL 
T17 ;NON AKTIEF
T18 ;AKTIEF EN NIET BENELUX
T19 ;\A\B\C\D\1\2\3\IND\HAN
T20 ;BELGIE / LUXEMBURG
T21 ;NEDERLAND
 ;
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
 ;
S1 W !,$P($T(T10),U,2) W:PWD $P($T(T11),U,2)
S1Z Q
 ;
S2 W !,$P($T(T8),U,2) W:PWD $P($T(T9),U,2)
S2Z Q
 ;
S3 W !,": ",$P(K,D,1),?48,":" S R=$P(K,D,2)_"\13\49\0" D:+R R3 W ?63,":"
S3A S R=$P(K,D,3)_"\13\64\0" D:+R&($P(K,D,3)'=$P(K,D,2)) R3 W ?78,":" S R=$P(K,D,4)_"\5\79\1" D:+R R3 W ?85,":"
S3B G S3Z:'PWD S R=$P(K,D,5)_"\11\86\0" D:+R R3 W ?98,":" S R=$P(K,D,6)_"\11\99\0" D:+R&($P(K,D,6)'=$P(K,D,5)) R3 W ?111,":"
S3C S R=$P(K,D,7)_"\5\112\1" D:+R R3 W ?118,":" S R=$P(K,D,8)_"\5\119\1" D:+R R3 W ?125,":"
S3D S R=$P(K,D,9)_"\5\126\1" D:+R R3 W ?132,":"
S3Z Q
 ;
S4 S K=K_TOHO(I)_D_TOSO(I)_D S:TOHO(I) K=K_(TOSO(I)-TOHO(I)/TOHO(I)*100) S K=K_D
S4A G S4Z:'PWD S K=K_TOHM(I)_D_TOSM(I)_D S:TOHM(I) K=K_(TOSM(I)-TOHM(I)/TOHM(I)*100) S K=K_D
S4B S:TOHO(I) K=K_(TOHM(I)/TOHO(I)*100) S K=K_D S:TOSO(I) K=K_(TOSM(I)/TOSO(I)*100) S K=K_D
S4Z Q
 ;
1 ; drukken info
3 S X=^KPLK(0,1) K TOSO,TOSM,TOHO,TOHM F I=1:1:23 S X=^(I),TOSO(I)=$P(X,D,1),TOSM(I)=$P(X,D,2),TOHO(I)=$P(X,D,3),TOHM(I)=$P(X,D,4)
5 S BLZ=0 D HD F I=2:1:5 S K=$P($T(T15),U,2)_$P($P($T(T19),U,2),D,I)_D D S4,S3
7 D S1 S I=18,K=$P($T(T15),U,2)_$P($P($T(T19),U,2),D,9)_D D S4,S3,S1 F I=6:1:8 S K=$P($T(T15),U,2)_$P($P($T(T19),U,2),D,I)_D D S4,S3
9 D S1 S I=19,K=$P($T(T15),U,2)_$P($P($T(T19),U,2),D,10)_D D S4,S3,S1 S I=20,K=$P($T(T20),U,2)_D D S4,S3,S2
11 F I=9:1:12 S K=$P($T(T16),U,2)_$P($P($T(T19),U,2),D,I-7)_D D S4,S3
13 D S1 S I=21,K=$P($T(T16),U,2)_$P($P($T(T19)_D,U,2),D,9)_D D S4,S3,S1 F I=13:1:15 S K=$P($T(T16),U,2)_$P($P($T(T19),U,2),D,I-7)_D D S4,S3
15 D S1 S I=22,K=$P($T(T16),U,2)_$P($P($T(T19),U,2),D,10)_D D S4,S3,S1 S I=23,K=$P($T(T21),U,2)_D D S4,S3,S2
17 S I=16,K=$P($T(T17),U,2)_D D S4,S3,S2 S I=17,K=$P($T(T18),U,2)_D D S4,S3,S2
19 S I=1,K=$P($T(T7),U,2)_D D S4,S3,S1
21 K K,TOSO,TOSM,TOHO,TOHM W #
 ;
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,!?(26+(PWD/2)),K,! D S1 W !,$P($T(@("T12"_Reeel)),U,2) W:PWD $P($T(@("T13"_Reeel)),U,2) D S1
HDZ Q
 ;