KKOA3 G 1 ;KLANT/OMZET ANALYSE ;KKOA3; Do van KKOA2 [ 08/05/2002  11:13 AM ]
 ;
T1 ;BEGIN
T2 ;EINDE
T3 ;PERIODE : 
T4 ; TOT 
T5 ;:--------------------------------------------------:---------------------------------:----------------------------
T6 ;------------------
T7 ; TOTAAL
T8 ;MUNTKODE    - 
T9 ;PRIJSKLASSE - 
T10 ;:-------------:---------------------------:--------:-----:----------:----------------:----------------:-----------:
T11 ;----------:------:
T12 ;: IDENTNUMMER : PRODUKTNAAM               :  STUKS :  LN : DAT L PR :  LAATSTE PRIJS :  HUIDIGE PRIJS :   OMZET/L :
T13 ;   KORT/L : KRT% :
T14 ;BLZ:
T15 ;SELEKTIE : 
 ;
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 DTP=":" S:MAC DTP=$C(9) D HD,HDK,HDP
2 S PHG=$N(@("^"_Q_"HULP($J,PHG)")),PGR="" I PHG=-1 K @("^"_Q_"HULP($J)") G 59
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),TPA=$P(X,D,3),TPL=$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),TPO=$P(X,D,12)
11 S TPM=$P(X,D,13),U26=$P(X,D,14) S:$L(U26) UU26=U26
47 I 'MAC W ! S LN=LN+1 I LN>50 W $P($T(T10),U,2) W:PWD $P($T(T11),U,2) W # D HD,HDP G 47
49 W:'MAC DTP W $J(PID,12),?14,DTP,?16,PC,?42,DTP S R=TPA_"\7\43\0" D:+R R3 W ?51,DTP
51 S R=TPL_"\4\52\0" D:+R R3 W ?57,DTP,?59,DLP,?68,DTP 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,DTP 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,DTP S R=TPO_"\10\103\"_FAMNTRND D:+R R3 W ?114,DTP I PWD S R=TPM_"\9\115\"_FAMNTRND D:+R R3 W ?125,DTP S R=$S(TPO:(TPM/TPO*100),1:0)_"\5\126\1" D:+R R3 W ?132,DTP
57 S TKL=TKL+TPL,TKO=TKO+TPO,TKM=TKM+TPM W:MAC $C(13) G 7
59 W !,$P($T(T10),U,2) W:PWD $P($T(T11),U,2) W !,DTP,$P($T(T7),U,2),?14,DTP,?42,DTP,?51,DTP
61 S R=TKL_"\4\52\0" D:+R R3 W ?57,DTP,?68,DTP,?79,UU26,?85,DTP,?102,DTP S R=TKO_"\10\103\"_FAMNTRND D:+R R3 W ?114,DTP
63 I PWD S R=TKM_"\9\115\"_FAMNTRND D:+R R3 W ?125,DTP S R=$S(TKO:(TKM/TKO*100),1:0)_"\5\126\1" D:+R R3 W ?132,DTP
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 ! W:PWD QN W ?(107+PWD),$P($T(T14),U,2),$J(BLZ,4),! W:PWD NM2 W ?(35+(PWD/2)),@F82,$P($T(+1),U,2),@F83,$C(13),?(107+PWD),DT
HD1 W ! W:PWD NM3 W ?(35+(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)),")"
HDZ W ?(108+PWD),TD,!,?(35+(PWD/2)),$P($T(T15),U,2),X1,"   ",X2,!! Q
 ;
HDK W $P($T(T5),U,2) W:PWD $P($T(T6),U,2) W ":"
HDK1 W !,":" F I=1:1:3 W $C(13),?1,$J(KC,5),?8,KN
HDK2 W ?51,":",?85,":",?114 W:PWD ?132 W ":",!,":" F I=1:1:3 W $C(13),?8,KS
HDK3 W ?51,":",?85,":",?114 W:PWD ?132 W ":",!,":" F I=1:1:3 W $C(13),?8,KP,"   ",KW
HDK4 W ?51,":",?53,$P($T(T8),U,2),KV,?85,":",?114 W:PWD ?132 W ":",!,":" F I=1:1:3 W $C(13),?8,KT1
HDK5 W ?51,":",?53,$P($T(T9),U,2) F I=1:1:3 W $C(13),?67,$P("CONS\PLUS\LIJST\RABAT\SPIL\BASIS\GROOT",D,$F("CPLRSBG",KPL)-1)," ",UIT
HDK6 W ?85,":",?114 W:PWD ?132 W ":" S LN=LN+5 Q
 ;
HDP 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) W !,$P($T(T10),U,2) W:PWD $P($T(T11),U,2) Q
 ;
Z X ^cZ Q
ZZ ; 29.08.89 - 12 u 41