KBSBKO G 1 ;BEHEER PRIJSVERGELIJK KLANTEN (TERUG NAAR ORIGINELE SITUATIE) ; Do van KBSBK [ 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
 ;
1 S FP=1901 W @F,@F1,$C(13),!?2,"!!! OPGELET !!!",!?2,"ALLE PRODUKTEN ZONDER REELE VERKOOP VERDWIJNEN",!?2,"ALLE FIKTIEVE AANTALLEN KOMEN TERUG OP DE REELE"
100 S R="K\23\3\O[] = originele situatie   -[] = hernemen\\1\\""-O""[K&$L(K)" D R0 G YZ:K="-"
102 S R="K\24\3\O[] = originele situatie definitief   -[] = hernemen\\1\\""-O""[K&$L(K)" D R0 G YZ:K="-"
2 K TAB,@("^"_Q_"HULP($J)") S FP=1001 W @F,@F1 S PR=0
3 S PR=$N(@("^"_Q_"STKL(KC,PR)")) G 9:PR=-1 S X=^(PR,0) I '$L($P(X,D,1)) K @("^"_Q_"STKL(KC,PR)") G 3
30 S:$L($P(X,D,8))!($L($P(X,D,9))) X=$P(X,D,1,7)_D_D_D_$P(X,D,10,99),^(0)=X S ANK=$P(X,D,7),PLK=$P(X,D,8),AFI=$P(X,D,9),ARE=0,BP=BPX
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
 ;
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