KAKA4 G 1 ;ARTIKEL/KLANT ANALYSE ;(VOLGENS LEV.);KAKA1;Do naar KAKA6 [ 11/29/2003  1:09 PM ]
 ;
1 S BLZ=0
 Do INIT^vhPRINTER("B",132,"P"):PWD,INIT^vhPRINTER("B",115,"P"):'PWD G YZ:'$D(Print)
 K @("^"_Q_"HULP($J)")
11 ;I '$L(PWD) S R=51 D ^KFOLE
12 S I=100 G 13:$N(B(I))=-1 D HD^KAKA6,^KPSELS
13 S Q6="^"_Q_"LE(LE)",Q7="^"_Q_"PL(LES)",Q8="^"_Q_"PSEL($J,PRCS)"
15 I LE'=0 S X=$D(@Q6) G 19:X
17 S LE=$N(@Q6) I LE=-1!(LE]LEX) G 69
19 S LES=$P(LE," ",2)_" ",LNM=$P(^(LE,0),D,2),X=$D(@Q7) G 17:'X D S9
2 S PRCS=PRC I PRC'=0 S X=$D(@Q8) G 100:X
21 S PRCS=$N(@Q8) I PRCS=-1!(PRCS]PRCX) G 17
100 S PR=+^(PRCS) D ^KPCHKPR G 21:'OK
23 S KC=0,BP=$J(FBP-.01,0,2)_" ",BP=$N(@Q4) G 21:BP=-1!(BP]LBP) S PC=$P(A(0),D,1),PID=$P(A(2),D,25) S (TPA,TPL,TPO,TPM)=0
25 S SPPL=$P(A(1),D,19),X="" S:$D(A("J")) X=A("J") S SPLP=$P(X,D,25),SPVK=$P(X,D,26),SUMC=$P(X,D,17)
27 S KC=$N(@Q3) G 65:KC=-1 S BP=$J(FBP-.01,0,2)_" ",BP=$N(@Q4) G 27:BP=-1!(BP]LBP) I '$D(@Q0) K @Q3 G 27
29 S KL=^(KC),X=@Q1,KN=$P(X,D,2),KV=$P(X,D,11),X=^(2),KPL=$P(X,D,3),KKN=$P(X,D,5) S:KV="" KV=$$FADEF^vhRtn1()
 S KYW=$$GetKlantType^KLANT5(KC)
53 S R=$$KLANTPR^KPRIJS(KC,PR,NoSa)
 S UEP=$P(R,D,1),UMC=$P(R,D,2),AFA=$P(R,D,3),PLP=$P(R,D,4),PK1=$P(R,D,5),PK2=$P(R,D,6)
 S PKP=$P(R,D,8),UPAR=$P(R,D,9),USP=$P(R,D,10),AFE=$P(R,D,11)
59 S BP=0,X=@Q4,DLP=$P(X,D,1),LPR=$P(X,D,2),LFA=$E($P(X,D,3),1),KVV=$P(X,D,4) S:KVV="" KVV=$$FADEF^vhRtn1()
 S BP=0,X=@Q4,U26=$P(X,D,6),(TKA,TKL,TKO,TKM)=0,BP=$J(FBP-.01,0,2)_" "
61 S BP=$N(^(BP)) G 63:BP=-1!(BP]LBP) S X=^(BP),TKA=TKA+$P(X,D,1),TKL=TKL+$P(X,D,2),TKO=TKO+$P(X,D,3) S:PWD TKM=TKM+$P(X,D,4) G 61
63 S I3=KL I SORT="O" S I3=5555555555-TKO S:TPO<0 I3=9999999999-(2222222222+TKO) S I3=I3_KL
 I NoSa="S" Set LPR=$P($$KLANTPR^KPRIJS(KC,PR),D)
 S @("^"_Q_"HULP($J,I3)")=KC_D_KN_D_TKA_D_TKL_D_DLP_D_LPR_D_KVV_D_LFA_D_UEP_D_UMC_D_AFA_D_TKO_D_TKM_D_U26_D G 27
65 G 21:'$D(@("^"_Q_"HULP($J)")) S (KL,UU26)=""
67 K A D ^KAKA6 G 21
69 S R=$P(^cLOG(boot,"DEV",$$DEV^vhPRINTER($I,1)),D,11) S:'R R=66 D ^KFOLE
71 K @("^"_Q_"PSEL($J)") Do CLOSE^vhPRINTER
YZ Q
 ;
S9 K @("^"_Q_"PSEL($J)") S SL=LES,SM=0,S1="^"_Q_"PL(SL,SM)",S2="^"_Q_"PL(SL,SM,SR)",S3="^"_Q_"PL(SL,SM,SR,SP)"
S9A S SM=$N(@S1) G S9Z:SM=-1 S SR=0
S9B S SR=$N(@S2) G S9A:SR=-1 S SP=0
S9C S SP=$N(@S3) G S9B:SP=-1 S R=+^(SP),@("^"_Q_"PSEL($J,SP)")=R G S9C
S9Z K SL,SM,SR,SP,S1,S2,S3,R Q
 ;