KAKA6 G 1 ;ARTIKEL/KLANT ANALYSE ;KAKA1; Quit naar KAKA2, KAKA3, KAKA4, KAKA5 [ 08/05/2002  10:03 AM ]
 ;
T1 ;BEGIN
T2 ;EINDE
T3 ;PERIODE : 
T4 ; TOT 
T5 ;:-----------------------------------------:-----------------------------------------------------------------------
T6 ;------------------
T7 ; TOTAAL
T8 ;SELEKTIE : 
T10 ;:-----------------------------------------:--------:-----:----------:----------------:----------------:-----------:
T11 ;----------:------:
T12 ;: KLANTNUMMER - NAAM                      :  STUKS :  LN : DAT L PR :  ;LAATSTE;HUIDIGE; PRIJS :  ;HUIDIGE;SCHADUW; PRIJS :     OMZET :
T13 ;    MARGE : MA % :
 ;
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 FAMNTRND=0 ;$$MUNT^vhRtn1(,4)
 D HD,HDP,HDK
3 S KL=$N(@("^"_Q_"HULP($J,KL)")) I KL=-1 K @("^"_Q_"HULP($J)") G 59
7 S X=^(KL),KC=$P(X,D,1),KN=$P(X,D,2),TKA=$P(X,D,3),TKL=$P(X,D,4)
9 S DLP=$P(X,D,5),LPR=$P(X,D,6),KVV=$P(X,D,7),LFA=$P(X,D,8),UEP=$P(X,D,9),UMC=$P(X,D,10),AFA=$P(X,D,11),TKO=$P(X,D,12)
11 S TKM=$P(X,D,13),U26=$P(X,D,14) S:$L(U26) UU26=U26
47 W ! S LN=LN+1 I LN>(Print("LEN")-Print("BOT")) W $P($T(T10),U,2) W:PWD $P($T(T11),U,2) W # D HD,HDK G 47
49 W ":",$J(KC,5),"   ",KN,?42,":" S R=TKA_"\7\43\0" D:+R R3 W ?51,":"
51 S R=TKL_"\4\52\0" D:+R R3 W ?57,":",?59,DLP,?68,":" W:$L(U26) $C(13),?79,U26,$C(13) S R=LPR_"\10\69\2" I +R D R3 W $J(KVV,3),$P("\%\/M",D,$F("EHM",LFA)-1)
53 W ?85,":" I UEP&(+UEP'=+LPR!(UMC'=KVV)!(AFA'=LFA)) S R=UEP_"\10\86\2" D R3 W $J(UMC,3),$P("\%\/M",D,$F("EHM",AFA)-1)
55 W ?102,":" S R=TKO_"\10\103\"_FAMNTRND D:+R R3 W ?114,":" I PWD S R=TKM_"\9\115\"_FAMNTRND D:+R R3 W ?125,":" S R=$S(TKO:(TKM/TKO*100),1:0)_"\5\126\1" D:+R R3 W ?132,":"
57 S TPA=TPA+TKA,TPL=TPL+TKL,TPO=TPO+TKO,TPM=TPM+TKM G 3
59 W !,$P($T(T10),U,2) W:PWD $P($T(T11),U,2) W !,":",$P($T(T7),U,2) S R=TPA_"\10\40\0" D:+R R3 W ?51,":"
61 S R=TPL_"\4\52\0" D:+R R3 W ?57,":",?68,":",?79,UU26,?85,":",?102,":" S R=TPO_"\10\103\"_FAMNTRND D:+R R3 W ?114,":"
63 I PWD S R=TPM_"\9\115\"_FAMNTRND D:+R R3 W ?125,":" S R=$S(TPO:(TPM/TPO*100),1:0)_"\5\126\1" D:+R R3 W ?132,":"
65 W !,$P($T(T10),U,2) W:PWD $P($T(T11),U,2) W #
 ;
YZ Q
 ;
 ;    titel drukken
HD S BLZ=BLZ+1,LN=0 S:'$L(PWD) LN=11 W !,QN W ?(107+PWD),"BLZ:",$J(BLZ,4),!,NM2 W ?(35+('PWD*5)+(PWD/2)),@F82,$P($T(+1),";",2),@F83,$C(13),?(107+PWD),DT
HD1 W !,NM3 W ?(35+('PWD*5)+(PWD/2)),$P($T(T8),U,2),X1,"   ",X2,?(108+PWD),TD
HD2 W !,?(35+('PWD*5)+(PWD/2)),"PERIODE : ",$P(HFBP,D,1)," TOT ",$P(HLBP,D,1)
HD3 I $P(HFBP,D,2)!($P(HLBP,D,2)) W " (",$S($P(HFBP,D,2):"BEGIN",1:$P(HFBP,D,1))," TOT ",$S($P(HLBP,D,2):"EINDE",1:$P(HLBP,D,1)),")"
HDZ W !! Q
 ;
HDP W $P($T(T5),U,2) W:PWD $P($T(T6),U,2) W ":",!,":" F I=1:1:3 W $C(13),?2,PID
HDP1 W ?42,":",?114 W:PWD ?132 W ":",!,":" F I=1:1:3 W $C(13),?2,PC
HDP2 W ?42,":",?114 W:PWD ?132 W ":" S LN=LN+3 Q
 ;
HDK W !,$P($T(T10),U,2) W:PWD $P($T(T11),U,2) W !,$P($T(T12),U,2),$P($T(T12),U,NoSa="S"+3),$P($T(T12),U,5),$P($T(T12),U,NoSa="S"+6),$P($T(T12),U,8)
 W:PWD $P($T(T13),U,2) W !,$P($T(T10),U,2) W:PWD $P($T(T11),U,2) Q
 ;