KKAA2 G 1 ;KLANT/ARTIKEL ANALYSE ;KKAA2; Go van KKAA1 - Do naar KKAA3 [ 11/22/2003  3:31 PM ]
 ;
SC S PCC=$$COMPR^PRODUKT(PR)
 Q
 ;
S0 S Y=$P(B(I),D,1),J=$P(">\'<\=\<\'>\'=",D,$P(B(I),D,2)) G S0C:$L(J)
S0A S OK=1 F J=1:1:$L(Y) I $E(Y,J)'="#" S OK=$E(X,J-1+$P($P(B(I),D,3),",",1))=$E(Y,J) Q:'OK
S0B G S0Z
S0C I (X'?.N)!(Y'?.N) S OK=J_"Y" S:J="<" OK="']Y&(X'=Y)" S:J=">" OK="]Y&(X'=Y)" S:J="'>" OK="']Y!(X=Y)" S:J="'<" OK="]Y!(X=Y)" S OK="S OK=X"_OK X OK
S0D E  S OK="S OK=X"_J_"Y" X OK
S0Z Q
 ;
1 ;    het drukken van de info
2 K @("^"_Q_"HULP($J)")
 I MAC D ^cA605 G 300
3 Do INIT^vhPRINTER("B",132,"P") ;I '$L(PWD) S R=51 D ^KFOLE
300 S BLZ=0,I=100 G 4:$N(B(I))=-1!MAC D HD^KKAA3,^KSELO
4 I KL'=0 S X=$D(@Q0) G 6:X
5 S KL=$N(@Q0) G 67:KL=-1 I KL'?.N G 67:KL]KLX
6 S K=KL S:K?.N K=^(K) S KC=$P(K," ",2),PR=0,BP=$J(FBP-.01,0,2)_" ",BP=$N(@Q4) G 5:BP=-1!(BP]LBP)
7 S A(0)=@Q1 F I=1:1:SW3-1 S A(I)=^(I)
8 S I=100
9 S I=$N(B(I)) G 11:I=-1 S X=$P(A(I\100-1),D,I#100) D S0 G 5:'OK,9
11 S KN=$P(A(0),D,2),KS=$P(A(0),D,5),KP=$P(A(0),D,6),KW=$P(A(0),D,7),KV=$P(A(0),D,11),KT1=$P(A(0),D,13)
12 S KPL=$P(A(2),D,3),KKN=$P(A(2),D,5),UIT="" S:$D(^KLPUTZ("N",KC)) UIT="+" S:KV="" KV=$$FADEF^vhRtn1() S (TKL,TKO,TKM)=0 K A
 S KYW=$$GetKlantType^KLANT5(KC)
13 S PR=$N(@Q3) G 46:PR=-1 S BP=0,X=@Q4 G 13:$P(X,D,7) S BP=$J(FBP-.01,0,2)_" ",BP=$N(@Q4) G 13:BP=-1!(BP]LBP) I '$D(@Q5) K @Q3 G 13
15 S X=@Q5,PC=$P(X,D,1) D SC
29 S X=@("^"_Q_"PR(PR,2)"),PID=$P(X,D,25)
30 S X=$N(^("I")) S:$E(X,1)'="I" X=" \ \ " S:$E(X,1)="I" X=^(X) S PHG=$P(X,D,1),PGR=$P(X,D,2),PSG=$P(X,D,3)
 G 13:$$SKIP(PHG,PGR,PSG)
37 S R=$$KLANTPR^KPRIJS(KC,PR)
 S UEP=$P(R,D,1),UMC=$P(R,D,2),AFA=$P(R,D,3)
43 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),(TPA,TPL,TPO,TPM)=0,BP=$J(FBP-.01,0,2)_" "
45 S BP=$N(^(BP)) G 450:BP=-1!(BP]LBP) S X=^(BP),TPA=TPA+$P(X,D,1),TPL=TPL+$P(X,D,2),TPO=TPO+$P(X,D,3) S:PWD TPM=TPM+$P(X,D,4) G 45
450 S @("^"_Q_"HULP($J,PHG,PGR,PSG,PCC)")=PID_D_PC_D_TPA_D_TPL_D_DLP_D_LPR_D_KVV_D_LFA_D_UEP_D_UMC_D_AFA_D_TPO_D_TPM_D_U26_D G 13
46 G 5:'$D(@("^"_Q_"HULP($J)")) S (PHG,UU26)=""
47 D ^KKAA3 G 5
67 I MAC D ^cA606 G 69
68 S R=$P(^cLOG(boot,"DEV",$$DEV^vhPRINTER($I,1)),D,11) S:'R R=66 D ^KFOLE D CLOSE^vhPRINTER
69 K @("^"_Q_"SEL($J)")
 ;
YZ Q
 ;
SKIP(PHG,PGR,PSG) 
 ;I PSG="1XX-MCH-MPR/BL" Q 1
 I '$D(BEPERK) Q 0
 I BEPERK="S" Q '$D(BEPERK(PSG))
 I BEPERK="G" Q '$D(BEPERK(PGR))
 I BEPERK="H" Q '$D(BEPERK(PHG))
 Q 0
 ;