KAKA5 G 1 ;ARTIKEL/KLANT ANALYSE ;(BEPAALDE PROD.);KAKA1;Do naar KAKA6 [ 11/29/2003  1:10 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_"PSEL($J,PRC)"
14 I PRC'=0 S X=$D(@Q6) G 100:X
15 S PRC=$N(@Q6) I PRC=-1!(PRC]PRCX) G 69
100 S PR=+^(PRC) D ^KPCHKPR G 15:'OK
23 S KC=0,BP=$J(FBP-.01,0,2)_" ",BP=$N(@Q4) G 15: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 15:'$D(@("^"_Q_"HULP($J)")) S (KL,UU26)=""
67 K A D ^KAKA6 G 15
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
 ;