KKAA5 G 1 ;KLANT/ARTIKEL ANALYSE ;KKAA5; Go van KKAA4 [ 11/29/2003   1:16 PM ]
 ;
T1 ;BEGIN
T2 ;EINDE
T3 ;PERIODE : 
T4 ; TOT 
T5 ;SELEKTIE : 
T7 ; TOTAAL
T9 ;OVERZICHT VOLGENS : 
T12 ;"  LN ",DTP," KLANTNUMMER - NAAM       ",DTP," AANT P ",DTP,"  REELE OMZ ",DTP," % TO ",DTP," KUM. OMZET ",DTP," % TO ",DTP
T13 ;"   REELE MA ",DTP," % TM ",DTP," KUM. MARGE ",DTP," % TM ",DTP," MA % ",DTP
T14 ;BLZ:
T15 ;RANGSCHIKKEN LIJST VOLGENS
T16 ;SC1
T17 ;K[] = klantnaam   O[] = omzet
T18 ;   M[] = marge
T19 ;   C[] = copy naar klant
T20 ;OK VOOR BEGIN TRANSFERT
T21 ;[] = ok
T22 ;Klant;Omzet;Marge;Copy
T23 ;NULLEN AFDRUKKEN
T24 ;[] = neen   J[] = ja
 ;
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:'MAC !,DTP F I=5,26,8,12,6,12,6 S STR="",$P(STR,"-",I)="-" W STR,DTP
S1A I PWD F I=12,6,12,6,6 S STR="",$P(STR,"-",I)="-" W STR,DTP
S1B W:MAC $C(13) K STR
S1Z Q
 ;
1 ;   seletie lijst
2 S FAMNTRND=0 ;$$MUNT^vhRtn1(,4)
 S DTP=":" S:MAC DTP=$C(9) S I=100 G 25:$N(B(I))=-1!MAC S BLZ=0
 I 'MAC Do INIT^vhPRINTER("S;L;B",83,"P"):'PWD,INIT^vhPRINTER("B",132,"P"):PWD G YZ:'$D(Print)
 D HD,^KSELO G 48
25 S R="KOM\22\3\"_$P($T(T15),U,2)_"\"_$P($T(T16),U,2)_"\1\\""-KOC""[K&$L(K)!(K=""M""&(PWD))" D R0 G 51:K="-"
 S FP=2232 W @F,@F1,$P($T(T22),U,$F("KOMC",K))
 I K="C" D COPY G 25
26 S R="K\23\3\"_$P($T(T23),U,2)_"\"""_$P($T(T24),U,2)_"""\1\\""J-""[K" D R0 G 25:K="-"
 S PrintNul=$L(K)
 S R="K\23\3\"_$P($T(T20),U,2)_"\"""_$P($T(T21),U,2)_"""\1\\""-""[K" D R0 G 26:K="-"
 ;
27 ;   het drukken van de info
 ;
28 S I2="KL" S:KOM="O" I2="OM" S:KOM="M" I2="MA" S BLZ=0
 I 'MAC Do INIT^vhPRINTER("S;L;B",83,"P;T"):'PWD,INIT^vhPRINTER("B",132,"P;T"):PWD G YZ:'$D(Print)
29 I MAC S DL(1)="AAA",AAA(1)=1,AAA(2)=2 D ^output("T") G YZ:'$D(Print) d ^cA605 Use Dev
30 S I3="",I3=$N(@("^"_Q_"HULP($J,I2,I3)")),I3="" D HD,HD5 S (LNN,TOKO,TOKM)=0
31 S I3=$N(@("^"_Q_"HULP($J,I2,I3)")) G 43:I3=-1
33 S X=^(I3),KC=$P(X,D,1),KN=$P(X,D,2),TKA=$P(X,D,3),TKL=$P(X,D,4),TKO=$P(X,D,5),TKM=$P(X,D,6)
 I 'PrintNul,+TKO=0,+TKM=0 G 31
 S KYW=$P(X,D,7),KPK=$P(X,D,8),KCA=$P(X,D,9),UIT=$P(X,D,10),TPR=$P(X,D,11),TOKO=TOKO+TKO,TOKM=TOKM+TKM,LNN=LNN+1
35 I 'MAC S LN=LN+1 I LN>Print("MAXLIJN") D S1 W # D HD,HD5 G 35
37 W:'MAC !,DTP W $J(LNN,4),?6,DTP,$J(KC,5)," ",$E(KN,1,17),?31,$P(" \#",D,KCA+1),KYW,?33,DTP,KPK,UIT S R=TPR_"\5\36\0" D:+R R3 W ?42,DTP S R=TKO_"\11\43\"_FAMNTRND D:+R R3 W ?55,DTP S R=$S(TOTO:(TKO/TOTO*100),1:0)_"\5\56\1" D:+R R3 W ?62,DTP
38 S R=TOKO_"\11\63\"_FAMNTRND D:+R R3 W ?75,DTP S R=$S(TOTO:(TOKO/TOTO*100),1:0)_"\5\76\1" D:+R R3 W ?82,DTP
39 G 41:'PWD S R=TKM_"\11\83\"_FAMNTRND D:+R R3 W ?95,DTP S R=$S(TOTM:(TKM/TOTM*100),1:0)_"\5\96\1" D:+R R3 W ?102,DTP S R=TOKM_"\11\103\"_FAMNTRND D:+R R3 W ?115,DTP
40 S R=$S(TOTM:(TOKM/TOTM*100),1:0)_"\5\116\1" D:+R R3 W ?122,DTP S R=$S(TKO:(TKM/TKO*100),1:0)_"\5\123\1" D:+R R3 W ?129,DTP
41 W:MAC $C(13) G 31
43 D S1 W:'MAC !,DTP W ?6,DTP,$P($T(T7),U,2),?33,DTP S R=TOTL_"\7\34\0" D:+R R3 W ?42,DTP,?55,DTP,?62,DTP S R=TOKO_"\11\63\"_FAMNTRND D:+R R3
45 W ?75,DTP,"100,0 ",DTP G 47:'PWD W ?95,DTP,?102,DTP S R=TOTM_"\11\103\"_FAMNTRND D:+R R3
46 W ?115,DTP,"100,0 ",DTP S R=$S(TOTO:(TOTM/TOTO*100),1:0)_"\5\123\1" D:+R R3 W ?129,DTP W:MAC $C(13)
47 D S1 W #
48 I 'MAC S R=$P($G(^cLOG(boot,"DEV",$$DEV^vhPRINTER($I,1))),D,11) S:'R R=66 D ^KFOLE D CLOSE^vhPRINTER
49 I MAC W "~~~" D ^cA606 Close Dev
50 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 25
51 K @("^"_Q_"HULP($J)"),@("^"_Q_"SEL($J)")
 ;
YZ Q
 ;
COPY 
 New Count,Next,KlantInd,Refer,OmzSom
 Set Refer=$P("EG\65\RD\PVDr\PVDr\JoDM\LVB\VTW\PVH\PVDs\HA\JeDM\76\LVH\VZ\TZ\CW\PV\\83","\",$I-63)_" "_DT
 Set R="K\23\3\REFERENTIE\""[] = "_Refer_"""\15" Do R0 Quit:K="-"  If $L(K) Set Refer=K
 Set (Count,OmzSom)=0,Next="",FP=2303 Write @F,@F1,"Klanten verwerkt : "
 For  Set Next=$O(^KHULP($J,"OM",Next)) Quit:Next=""  Do
 .Set R=^KHULP($J,"OM",Next),KLNr=$P(R,D),KlantInd=^KK1(KLNr)
 .Set Count=Count+1,OmzSom=OmzSom+$P(R,D,5)
 .If '(Count#10) Set FP=2322 Write @F,Count,@F2
 .Set K=^KKL(KlantInd,7),$P(K,D,3)=Refer,$P(K,D,4)=Count,$P(K,D,5)=$J($P(R,D,5),0,0),$P(K,D,6)=$J($S(TOTO:(OmzSom/TOTO*100),1:0),0,1)
 .Set ^KKL(KlantInd,7)=K
 Quit
 ;
 ;    titel drukken
HD S BLZ=BLZ+1,LN=12 G HD5:MAC W !,QN,?(75+PWD),$P($T(T14),U,2),$J(BLZ,4),!,NM2,?(26+(PWD/2)),@F82,$P($T(+1),U,2),@F83,$C(13),?(75+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 ?(76+PWD),TD,! I $D(KOM) W ?(26+(PWD/2)),$P($T(T9),U,2),$S(KOM="K":"KLANT",KOM="O":"OMZET",1:"MARGE"),!
 I $G(TIT)="L" D  W !! G HDZ
 .W:X1 ?(26+(PWD/2)),X2,!
 .W ?(26+(PWD/2))
 .I '$D(BEPERK) W "(Volledig)" Q
 .I $G(BEPERK)="L" D  Q
 ..N L
 ..S L=$O(BEPERK(""))
 ..Q:'L  Q:'$D(^KL1(L))
 ..W "(",$P(^KLE(^KL1(L),0),D,2),")"
 .I $G(BEPERK)="H" D  Q
 ..N H,T
 ..S (H,T)=""
 ..F  S H=$O(BEPERK(H)) Q:H=""  S:$L(T) T=T_", " S T=T_$P(^KPHG1(H),D)
 ..W "(",T,")"
 .I $G(BEPERK)="G" D  Q
 ..N G,T
 ..S (G,T)=""
 ..F  S G=$O(BEPERK(G)) Q:G=""  S:$L(T) T=T_", " S T=T_$P(^KPGR1(G),D)
 ..W "(",T,")"
 .I $G(BEPERK)="S" D  Q
 ..N S,T
 ..S (S,T)=""
 ..F  S S=$O(BEPERK(S)) Q:S=""  S:$L(T) T=T_", " S T=T_$P(^KPSG1(S),D)
 ..W "(",T,")"
HD4 W ?(26+(PWD/2)),$P($T(T5),U,2),X1,"   ",X2,!! G HDZ
HD5 D S1 W:'MAC !,DTP W @$P($T(T12),U,2) W:PWD @$P($T(T13),U,2) W:MAC $C(13) D S1
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) W ?2,$P($T(T19),U,2) Q
 ;