KBSBKD G 1 ;BEHEER PRIJSVERGELIJK KLANTEN (RANGSCHIKKEN + TONEN DETAIL) ; Do van KBSBK [ 02/01/94  10:08 AM ]
 ;
SC S PCC=$$COMPR^PRODUKT(PR)
 Q
 ;
S0 S X=@("^"_Q_"PR(PR,0)"),PC=$P(X,D,1) D SC
 S X=$N(@("^"_Q_"PR(PR,""I"")")) S:$E(X,1)'="I" X=" \ \ " S:$E(X,1)="I" X=$P(^(X),D,1,3) S PHG=$P(X,D,1),PGR=$P(X,D,2),PSG=$P(X,D,3)
 S X=@("^"_Q_"PR(PR,2)"),PID=$P(X,D,25)
 S R=$$KLANTPR^KPRIJS(KC,PR)
 S UEPH=$P(R,D,1),UMC=$P(R,D,2),AFA=$P(R,D,3)
 S R=$$KLANTPR^KPRIJS(KC,PR,"S")
 S UEPS=$P(R,D,1)
 Q
 ;
1 K TAB K:K'="D" @("^"_Q_"HULP($J)") S FP=1001 W @F,@F1 S PR=0 I $D(@("^"_Q_"HULP($J)")) S VNR=$N(^($J,0)),(VNR,TEL)=0,LN=9 G 19
3 S PR=$N(@("^"_Q_"STKL(KC,PR)")) G 9:PR=-1 S X=^(PR,0),ANK=$P(X,D,7),PLK=$P(X,D,8),AFI=$P(X,D,9),ARE=0
30 S BP=BPX G 3:$N(^(BP))=-1
4 S BP=$N(^(BP)) G 5:BP=-1 S X=^(BP),ARE=ARE+$P(X,D,1) G 4
5 S:'$L(AFI) AFI=ARE G 3:'$D(@("^"_Q_"PR(PR,0)")) D S0
7 S @("^"_Q_"HULP($J,PHG,PGR,PSG,PCC)")=PR_D_PC_D_ANK_D_PLK_D_ARE_D_AFI_D_PID_D_UEPS_D_UEPH_D_UMC_D_AFA_D G 3
9 S PHG="",VNR=0
11 S PHG=$N(@("^"_Q_"HULP($J,PHG)")),PGR="" I PHG=-1 S ^(0)=VNR+1,(VNR,TEL)=0,LN=9 G 19
13 S PGR=$N(@("^"_Q_"HULP($J,PHG,PGR)")),PSG="" I PGR=-1 K @("^"_Q_"HULP($J,PHG)") G 11
15 S PSG=$N(@("^"_Q_"HULP($J,PHG,PGR,PSG)")) G 13:PSG=-1 S PCC=""
17 S PCC=$N(@("^"_Q_"HULP($J,PHG,PGR,PSG,PCC)")) G 15:PCC=-1 S X=^(PCC),VNR=VNR+1,@("^"_Q_"HULP($J,VNR)")=X G 17
19 S VNR=$N(^(VNR)) G YZ:VNR=-1 S X=^(VNR),LN=LN+1
21 I LN>18 S FP=LN*100+1 W @F,@F1 S FP=1001 W @F,@FDL S LN=LN-1,SWK=1 F I=1:1:VNR I $D(TAB(I)) S TAB(I)=TAB(I)-1 K:SWK TAB(I) S SWK=0
23 S FP=LN*100+2 W @F,$J(VNR,3) S FP=LN*100+6 W @F,$P(X,D,2) S FP=LN*100+32 W @F,$J($P(X,D,5),7) S FP=LN*100+40 W @F,$J($P(X,D,6),7)
24 S FP=LN*100+48 W @F,$P("JA\NE",D,$P(X,D,4)+1) I $P(X,D,9) S FP=LN*100+51 W @F,$J($P(X,D,9),11,2)
25 I $P(X,D,8)'=$P(X,D,9),$P(X,D,8) S FP=LN*100+63 W @F,$J($P(X,D,8),11,2)
26 S FP=LN*100+75 W @F,$J($P(X,D,10),3) S FP=LN*100+79 W @F,$P(X,D,11) F I=1,5,31,39,47,50,62,74,78,80 S FP=LN*100+I W @F,"|"
27 S TEL=TEL+1,TAB(VNR)=LN G 19:TEL'=9,YZ:$N(^(VNR))=-1
29 S FP=2403+F60 W @F,@F1,"[] = VERVOLG   -[] = terug naar PRODUKTNAAM : ",@F0 R K G 29:K?.E1C.E!("-"'[K),YZ:K="-" S TEL=0 G 19
YZ Q
 ;
 Q
Z X ^cZ Q
ZZ ; 21.04.88 - 12 u 29