KPAKMD3 G 1 ;PRODUKTEN AANTAL KLANTEN ... ;(VOLGENS KLASSIFIKATIE);KPAKMD1;Go van KPAKMD1 [ 11/09/93  1:19 PM ]
 ;
T1 ;"Identnr";C;L;11;;|\"Korttekst";C;L;25;;|\"Fys-st ";C;R;8;;|\"Teo-st ";C;R;8;;|\"Pra-st ";C;R;8;;|\"Jaarverk ";C;R;10;;|\"Klant";C;L;25;;|\"Stuks";C;R;10;;|\"%Tot";C;R;4;;|\"#Ln";C;R;3;;
T2 ;1;C;L;11;;|;25\2;C;L;25;;|;25\5;N;R;8;;|\6;N;R;8;;|\7;N;R;8;;|\3;N;R;10;;|\9;C;L;25;;|\10;N;R;10;;|\12;N;R;4;;|\11;N;R;3;;
T3 ;Produkten aantal klanten 
T4 ;Produkten geselekteerd :
 ;
1 S Q0="^"_Q_"PR(PR,0)",Q1="^"_Q_"PH(HG)",Q2="^"_Q_"PH(HG,GRS)"
 S Q3="^"_Q_"PH(HG,GRS,SGS)",Q4="^"_Q_"PH(HG,GRS,SGS,MK,PRCS)"
 S (LCOUNT,PCOUNT)=0,FP=2303 W @F,@F1,!?2,$P($T(T4),U,2)
 S K="",I=100 F  S I=$O(B(I)) Q:I=""  I $P(B(I),D,5)="AANTAL KLANTEN" S K=$P(B(I),D,1,3) Q
 S AKL=$P(">\>=\=\<\<=\<>\x=\x=",D,$P(K,D,2)) I $P(K,D,2)<7 S AKL=AKL_$P(K,D)
 I $P(K,D,2)>6 S AKL=AKL_$E(PNT,1,$P($P(K,D,3),",",1)-1)_$P(K,D)_"..."
 I AKL="" S AKL="..."
 K ^HULP($J)
 I HG'=0 S X=$D(@Q1) G 13:X
11 S HG=$N(@Q1) I HG=-1!(HG]HGX) G 23
13 S GRS=GR I GR'=0 S X=$D(@Q2) G 17:X
15 S GRS=$N(@Q2) I GRS=-1!(GRS]GRX) G 11
17 S SGS=SG I SG'=0 S X=$D(@Q3) G 2:X
19 S SGS=$N(@Q3) I SGS=-1!(SGS]SGX) G 15
2 S PRCS=PRC I PRC'=0 S X=$D(@Q4) G 23:X
21 S PRCS=$N(@Q4) I PRCS=-1!(PRCS]PRCX) G 19
 S PCOUNT=PCOUNT+1 I '(PCOUNT#100) S FP=2428 W @F,PCOUNT
 S PR=+^(PRCS) D ^KPCHKPR G 21:'OK G 21:'$D(^AKANAL(PR)) ;S K=$O(^AKANAL(PR,""),-1) G 21:K="",21:K>AKL
 S K=$P(A(2),D,25)_D_$P(A(0),D)_D_$P(^AKANAL(PR),D,1,2)_D_$P(A(0),D,14)
 S K=K_D_($P(A(0),D,14)+$P($P(A(0),D,17),"#",2)-$P($P(A(2),D,9),"#",2))
 S K=K_D_($P(A(0),D,14)-$P($P(A(2),D,9),"#",2))_D_D
 S $P(K,D,25)=$P(A(1),D,20),$P(K,D,26)="-"
 S TOTSTUK=$P(K,D,3)
 S NEXT=0
 F  S NEXT=$O(^AKANAL(PR,NEXT)) Q:NEXT=""  D
 .S R=^AKANAL(PR,NEXT)
 .S $P(K,D,9)=$P(R,D,3),$P(K,D,10,11)=$P(R,D,4,5)
 .I TOTSTUK S $P(K,D,12)=$P(R,D,4)/TOTSTUK*100
 .S LCOUNT=LCOUNT+1,^HULP($J,LCOUNT)=K
 .S K=""
 G 21
23 S DL(1)="LD",LD(1)="^HULP("_$J,LD(2)=$P($T(T2),U,2,999),LD(3)=5,LD(8)=$P($T(T1),U,2,999)
 S LD(9)=LCOUNT,LD(10)="CB^"_$ZN,LD(11)=$P($T(T3),U,2)_AKL
 D ^OUTPUT("-SH","-","B")
 ;
YZ K ^HULP($J) Q
 ;
CB(Ref) 
 N LnCnt
 I $L(Ref)=1 Q ""
 I $P(@Ref,D,26)'="-" Q ""
 S LnCnt=Print("LIJN")+1
 F  S X=$O(@$ZR) Q:X=""  D
 .I $P(^(X),D,26)="-" S X=$D(^("A")) Q
 .S LnCnt=LnCnt+1
 I Print("LIJN")>Print("MAXLIJN") Q "PB"
 Q "BR"
 ;
 Q
Z X ^cZ Q
ZZ ; 27.03.90 - 11 u 21