KAKA18 G 1 ;ARTIKEL/KLANT ANALYSE ;OVERZ VOLG LEV;KAKA1; [ 08/05/2002  10:02 AM ]
 ;
T1 ;BEGIN
T2 ;EINDE
T3 ;PERIODE : 
T4 ; TOT 
T5 ; TOTAAL
T6 ;OVERZICHT VOLGENS : 
T7 ;:-----:---------------------------:--------:------------:------:------------:------:
T8 ;------------:------:------------:------:------:
T9 ;:  LN : PRODUKTNAAM               : ; :      OMZET : % TO : KUM. OMZET : % TO :
T10 ;      MARGE : % TM : KUM. MARGE : % TM : MA % :
T11 ;:-----:-------------:---------------------------------:--------:------------:------:
T12 ;------------:------:------:
T13 ;:  LN : IDENTNUMMER : PRODUKTNAAM                     : ; :      OMZET : % TO :
T14 ;      MARGE : % TM : MA % :
T15 ;RANGSCHIKKEN LIJST VOLGENS
T16 ;SC1
T17 ;L[] = leverancier   O[] = omzet   A[] = aant. lijnen
T18 ;   M[] = marge
T19 ;SELEKTIE : 
T20 ;AFDRUKKEN
T21 ;[] = stuks   1[] = lijnen
T22 ;STUKS;LIJNEN
 ;
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 ;   seletie lijst
2 S FAMNTRND=0 ;$$MUNT^vhRtn1(,4)
 S BLZ=0,I=100 G 21:$N(B(I))=-1 S R=72 D ^KFOLE:'$L(PWD)
 I 'PWD D INIT^vhPRINTER("B;L;S",84,"P")  G YZ:'$D(Print)
 I PWD D INIT^vhPRINTER("B",84+27,"P")  G YZ:'$D(Print)
 D HD,^KPSELS G 480
21 I $D(KSA) S FP=2203 W @F,$P($T(T20),U,2)," : ",$P($T(T22),U,KSA+2) G 25
23 S R="KSA\22\3\"_$P($T(T20),U,2)_"\"""_$P($T(T21),U,2)_"""\1\\""-1""[K" D R0 G 49:K="-" S FP=2215 W @F,$P($T(T22),U,KSA+2)
25 S R="POM\23\3\"_$P($T(T15),U,2)_"\"_$P($T(T16),U,2)_"\1\\""-ALO""[K&$L(K)!(K=""M""&(PWD))" D R0 G 23:K="-" I PWD S PWD=$S(POM="L":27,1:47)
 ;
27 ;   het drukken van de info
 ;
29 S I2="PC" S:K="O" I2="OM" S:K="A" I2="AL" S:K="M" I2="MA" S I3="",BLZ=0
 ;S R=72 D ^KFOLE:'$L(PWD)
 I 'PWD D INIT^vhPRINTER("B;L;S",84,"P")  G YZ:'$D(Print)
 I PWD D INIT^vhPRINTER("B",84+PWD,"P")  G YZ:'$D(Print)
 D HD S (LNN,TOKO,TOKM)=0
31 S I3=$N(@("^"_Q_"HULP($J,I2,I3)")) G 42:I3=-1 S I4=""
33 S I4=$N(@("^"_Q_"HULP($J,I2,I3,I4)")),I4=""
34 S I4=$N(^(I4)) G 31:I4=-1 S X=^(I4),PC=$P(X,D,1),PID=$P(X,D,2),TPA=$P(X,D,3),TPL=$P(X,D,4),TPO=$P(X,D,5),TPM=$P(X,D,6),PSN=$P(X,D,7),TOKO=TOKO+TPO,TOKM=TOKM+TPM,LNN=LNN+1
35 W ! S LN=LN+1 G 37:LN<Print("MAXLIJN") I POM'="L" W $P($T(T7),U,2) W:PWD $P($T(T8),U,2) W # D HD G 35
36 W $P($T(T11),U,2) W:PWD $P($T(T12),U,2) W # D HD G 35
37 W ":",$J(LNN,4),?6,":" W:POM="L" ?8,PID,?20,":" F I=1:1:PSN*2+1 W $C(13),?8 W:POM="L" ?22 W PC
370 W ?$S(POM="L":54,1:34),":" S R=$S(KSA:TPL,1:TPA)_"\7\"_$S(POM="L":55,1:35)_"\0" D:+R R3 W ?$S(POM="L":63,1:43),":" S R=TPO_"\11\"_$S(POM="L":64,1:44)_D_FAMNTRND D:+R R3 W ?$S(POM="L":76,1:56),":"
372 S R=$S(TOTO:(TPO/TOTO*100),1:0)_"\5\"_$S(POM="L":77,1:57)_"\1" D:+R R3 W ?$S(POM="L":83,1:63),":"
38 I POM'="L" S R=TOKO_"\11\64\"_FAMNTRND D:+R R3 W ?76,":" S R=$S(TOTO:(TOKO/TOTO*100),1:0)_"\5\77\1" D:+R R3 W ?83,":"
39 G 34:'PWD S R=TPM_"\11\84\"_FAMNTRND D:+R R3 W ?96,":" S R=$S(TOTM:(TPM/TOTM*100),1:0)_"\5\97\1" D:+R R3 W ?103,":"
40 I POM'="L" S R=TOKM_"\11\104\"_FAMNTRND D:+R R3 W ?116,":" S R=$S(TOTM:(TOKM/TOTM*100),1:0)_"\5\117\1" D:+R R3 W ?123,":"
41 S R=$S(TPO:(TPM/TPO*100),1:0)_"\5\"_$S(POM="L":104,1:124)_"\1" D:+R R3 W ?$S(POM="L":110,1:130),":" G 34
42 W ! I POM'="L" W $P($T(T7),U,2) W:PWD $P($T(T8),U,2) W !,":",?6,":",$P($T(T5),U,2),?34,":"
43 I POM="L" W $P($T(T11),U,2) W:PWD $P($T(T12),U,2) W !,":",?6,":",$P($T(T5),U,2),?20,":",?54,":"
44 W ?$S(POM="L":63,1:43),":" W:POM'="L" ?56,":",?63,":" S R=TOKO_"\11\64\"_FAMNTRND D:+R R3
45 W ?76,":100,0 :" G 47:'PWD W:POM'="L" ?96,":",?103,":" S R=TOTM_"\11\"_$S(POM="L":84,1:104)_D_FAMNTRND D:+R R3
46 W ?$S(POM="L":96,1:116),":100,0 :" S R=$S(TOTO:(TOTM/TOTO*100),1:0)_"\5\"_$S(POM="L":104,1:124)_"\1" D:+R R3 W ?$S(POM="L":110,1:130),":"
47 W ! I POM'="L" W $P($T(T7),U,2) W:PWD $P($T(T8),U,2)
48 I POM="L" W $P($T(T11),U,2) W:PWD $P($T(T12),U,2)
480 W # D CLOSE^vhPRINTER S K=$P($T(+1),U,2)_QN_" ",FP=203+$L(K) W @F61,@F11,@F1,@F,@F5 S FP=202 W @F,@F4,K,@F5 G 21
49 K @("^"_Q_"HULP($J)")
 ;
YZ Q
 ;
 ;    titel drukken
HD S BLZ=BLZ+1,LN=10 W !,QN,?(76+PWD),"BLZ:",$J(BLZ,4),!,NM2,?(26+(PWD/2)),@F82,$P($T(+1),";",2),@F83,$C(13),?(76+PWD),DT
HD1 W !,NM3,?(26+(PWD/2)),$P($T(T19),U,2),X1,"   ",X2,?(77+PWD),TD
HD2 W !,?(26+(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)),")"
HD4 G HDZ:'$D(POM) W !,?(26+(PWD/2)),$P($T(T6),U,2),$S(POM="L":"LEVERANCIER",POM="O":"OMZET",POM="A":"AANT. LIJNEN",1:"MARGE"),!!
HD5 I POM'="L" W $P($T(T7),U,2) W:PWD $P($T(T8),U,2) W !,$P($T(T9),U,2),$J($P($T(T22),U,KSA+2),6),$P($T(T9),U,3) W:PWD $P($T(T10),U,2) W !,$P($T(T7),U,2) W:PWD $P($T(T8),U,2)
HD6 I POM="L" W $P($T(T11),U,2) W:PWD $P($T(T12),U,2) W !,$P($T(T13),U,2),$J($P($T(T22),U,KSA+2),6),$P($T(T13),U,3) W:PWD $P($T(T14),U,2) W !,$P($T(T11),U,2) W:PWD $P($T(T12),U,2)
HDZ Q
 ;
R0 S R7="K'[D&(K'?.E1C.E)" S:$P(R,D,8)'="" R7=R7_"&("_$P(R,D,8)_")" S:$P(R,D,7)'="" R7=R7_"&("_$P($T(@$P(R,D,7))," ",2,99)_")"
R0A S R2=$P(R,D,2),R3=$P(R,D,3),R4=$P(R,D,4),R5=$P(R,D,5),R6=$P(R,D,6)
R0B S R0=$L(R4)+R3+3 S FP=R2*100+R3+F60 W @F W:R3<4 @F1 W @F2,R4," : " I R5'="" W:R5["""" !,?2,@R5 D:R5'["""" @R5
R0C S FP=R2*100+R0+F60 W @F,@F2 W $E("........................................",1,R6),@F,@F0
R0D R K W @F2 I $L(K)'>R6,@R7 S @$P(R,D,1)=K
R0E E  G R0C
R0F S FP=$P(R,D,9)*100+($P(R,D,10)*1) I FP W @F,$J("",R6),@F,K
R0Z K R,R0,R2,R3,R4,R5,R6,R7 Q  ;V4 03.10.84
 ;
SC1 W !?2,$P($T(T17),U,2) W:PWD $P($T(T18),U,2) Q
 ;