KBSBKP G 1 ;BEHEER PRIJSVERGELIJK KLANTEN (MODULE BEPALEN PRODUKT) ; [ 08/05/2002  10:33 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
 ;
M1 S MSG="DIT PRODUKT IS REEDS OPGENOMEN VOOR DEZE KLANT" G MY
MY S FP=2403+F60 W @F,@F2,@F4,MSG," [] = OK ",@F5,@F0 R K G YZ
 ;
S4 S FP=1901 W @F,@F1,$C(13),!?4,"IDENTNUMMER    : ",PID,?36,"PRODUKTNAAM    : ",PC
S4Z Q
 ;
1 S FP=1901 W @F,@F1 G 3:K="Y"
2 S K=K_" " G 5:$D(@("^"_Q_"PR1(K)")) S R="K\2000\PRODUKTNAAM\PR\PR1" D ^KPS7A G 5:K'="-"
3 D ^KBSKP1 G YZ:PR="-",7
5 S PR=$P(@("^"_Q_"PR1(K)"),D,1)
7 I $N(@("^"_Q_"STKL(KC,PR,-1)"))'=-1 S X=@("^"_Q_"PR(PR,0)"),PC=$P(X,D,1),X=^(2),PID=$P(X,D,25) D S4 G M1
9 D S0,S4
13 W !?4,"HUIDIGE PRIJS  : ",$J(UEPH,0,2),!?4,"SCHADUW PRIJS  : ",$J(UEPS,0,2)
27 S R="AFI\23\3\  FIKTIEF AANTAL\\7\\K?.N!(K?1""-"".N)!(K=""-"")" D R0 G YZ:K="-"
29 S KAN=1,KLP="",X=PR_D_PC_D_KAN_D_KLP_D_0_D_AFI_D_PID_D_UEPS_D_UEPH_D_UMC_D_AFA_D
31 S VNR=@("^"_Q_"HULP($J,0)"),^(0)=VNR+1,^(VNR)=X
33 S BP=DJ_"."_DM_" ",X=BS I $D(@("^"_Q_"STKL(KC,PR,0)")) S X=^(0),KAN=""
34 S $P(X,D,7)=KAN,$P(X,D,8)=KLP,$P(X,D,9)=AFI,^(0)=X I '$D(^(BP)) S ^(BP)=BS
35 S:'$D(@("^"_Q_"STKL(KC,0,0)")) @("^"_Q_"STKL(KC,0,0)")=BS S:'$D(^(BP)) @("^"_Q_"STKL(KC,0,BP)")=BS
37 S LN=LN+1 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
39 S FP=LN*100+2 W @F,$J(VNR,3) S FP=LN*100+6 W @F,PC S FP=LN*100+38 W @F,0 S FP=LN*100+40 W @F,$J(AFI,7)
40 S FP=LN*100+48 W @F,"JA" I UEPH S FP=LN*100+51 W @F,$J(UEPH,11,2)
41 I UEPS'=UEPH,UEPS S FP=LN*100+63 W @F,$J(UEPS,11,2)
42 S FP=LN*100+75 W @F,$J(UMC,3) S FP=LN*100+79 W @F,AFA F I=1,5,31,39,47,50,62,74,78,80 S FP=LN*100+I W @F,"|"
43 S TAB(VNR)=LN
   Set $Piece(^KSTKL(KC,PR,0),"\",7)="0"
   Do VerwerkEenKlant^Stat.Statistiek.OpbouwenKlantArtikelAnalyse(KC)
 ;
YZ Q
 ;
R0 S R7="K'[D&(K'?.E1C.E)" S:$P(R,D,8)'="" R7=R7_"&("_$P(R,D,8)_")" S:$P(R,D,7)'="" R7=R7_"&("_$P($T(@$P(R,D,7))," ",2,99)_")"
R0A S R2=$P(R,D,2),R3=$P(R,D,3),R4=$P(R,D,4),R5=$P(R,D,5),R6=$P(R,D,6)
R0B S R0=$L(R4)+R3+3 S FP=R2*100+R3+F60 W @F W:R3<4 @F1 W @F2,R4," : " I R5'="" W:R5["""" !,?2,@R5 D:R5'["""" @R5
R0C S FP=R2*100+R0+F60 W @F,@F2,$E("........................................",1,R6),@F,@F0
R0D R K W @F2 I $L(K)'>R6,@R7 S @$P(R,D,1)=K
R0E E  G R0C
R0F S FP=$P(R,D,9)*100+($P(R,D,10)*1) I FP W @F,$J("",R6),@F,K
R0Z K R,R0,R2,R3,R4,R5,R6,R7 Q  ;V4 03.10.84
 ;
 Q
Z X ^cZ Q
ZZ ; 21.04.88 - 12 u 29