KPBAB3 G 1 ;LIJST BESTELSUGGESTIES ;KPBAB3; Quit naar KPBAB1 [ 08/05/2002  11:52 AM ]
 ;
R3 S R1=$P(R,D,2),R2=$P(R,D,4),R0=$J($P(R,D,1),0,R2),R3=" ",R4="" S:R2 R4=","_$P(R0,".",2),R1=R1-1-R2 S:R0<0 R3="-",R0=-R0
R3A S R0=+$P(R0,".",1) F R5=3,7 S R6=$L(R0) G R3B:R6'>R5 S R0=$E(R0,1,R6-R5)_"."_$E(R0,R6-R5+1,R6)
R3B W ?$P(R,D,3),$J(R0,R1),R4,R3
R3Z K R0,R1,R2,R3,R4,R5,R6 Q  ;V1 26.11.84
 ;
1 S NM2=@("^"_Q_"BA(99,2)"),NM3=^(3),(BLZ,VNR,PTWA)=0,FP=401 W @F,@F1 K TAB
3 I '$D(@("^"_Q_"WBAT(0)")) S FP=2403 W @F,@F2,@F4,"BESTELSUGGESTIES NIET OPGEMAAKT  [] = ok ",@F5,@F0 R R G YZ
BREAK1 B 1
5 D INIT^vhPRINTER(132) G YZ:'$D(Print)
7 S X=@("^"_Q_"WBAT(0)"),ODT=$P(X,D,1),OTD=$P(X,D,2) D HD
9 S VNR=$N(^(VNR)) G 23:VNR=-1 S X=^(VNR)
11 S PSUG=$P(X,D,1),PGV=$P(X,D,2),PLQ=$P(X,D,3),PTST=$P(X,D,4),PHBP=$P(X,D,5),PLL=$P(X,D,6),PBW=$P(X,D,7),PGW=$P(X,D,8)
12 S PC=$P(X,D,9),PNR=$P(X,D,10),PCPL=$P(X,D,17),PQ=$P(X,D,18)
13 S LN=LN+1 I LN>50 W !,$P($T(T2),U,2) W # D HD G 13
15 W !,$P($T(T3),U,2),$C(13) S R=VNR_"\5\1\0" D R3 W ?9,PNR,?23,PC S R=PGW_"\7\50\0" D:+R R3
17 W ?59,$J(PBW,3),?64,$J(PLL,3) S R=PHBP_"\7\69\0" D:+R R3 S R=PTST_"\7\78\0" D:+R R3 S R=PQ_"\7\87\0" D:+R R3
19 S R=PLQ_"\7\96\0" D:+R R3 S R=PGV_"\6\105\0" D:+R R3 S R=PSUG_"\7\113\0" D:+R R3 I $P(PSUG,"#",1)'=$P(PSUG,"#",2) W $C(13),?120,"*"
21 S R=(PSUG*PCPL)_"\10\122\0" D:+R R3 S PTWA=PTWA+(PSUG*PCPL) G 9
23 W !,$P($T(T2),U,2),!,$P($T(T3),U,2),$C(13),?23,"TOTALE WAARDE" S R=PTWA_"\10\122\0" D:+R R3 W !,$P($T(T2),U,2),#
 D CLOSE^vhPRINTER
BREAK0 B 0
YZ K NM2,NM3,BLZ,VNR,PTWA,ODT,OTD,PSUG,PGV,PQ,PLQ,PTST,PHBP,PLL,PBW,PGW,PC,PNR,PCPL,LN Q
 ;
HD S BLZ=BLZ+1,LN=0 W !,QN,?126,"BLZ:",$J(BLZ,4),!,NM2,?32,@F82,$P($T(KPBAB3),";",2),@F83,$C(13),?126,DT
HD1 W !,NM3,?32,"OPGEMAAKT : ",ODT,"   ",OTD,?127,TD
HD2 W !!,$P($T(T2),U,2),!,$P($T(T1),U,2),!,$P($T(T2),U,2)
HDZ Q
 ;
T1 ;: LIJN : IDENTNUMMER : PRODUKTNAAM               : PRA-WV : BW : LT : HB-PNT : TEO-ST : BEST-H : MIN-BH : GR-VP :   SUGG : WAARDE BF :
T2 ;:------:-------------:---------------------------:--------:----:----:--------:--------:--------:--------:-------:--------:-----------:
T3 ;:      :             :                           :        :    :    :        :        :        :        :       :        :           :
 ;
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 W $E("........................................",1,R6),@F,@F0
R0D R K S:$P(R,D,7)="DCTR" RD=$P(K,".",1),RM=$P(K,".",2),RJ=$P(K,".",3) W @F2 I $L(K)'>R6,@R7 S @$P(R,D,1)=K G R0F
R0E G R0C
R0F S FP=$P(R,D,9)*100+($P(R,D,10)*1) I FP W @F,$E("                                        ",1,R6),@F,K
R0Z K R,R0,R2,R3,R4,R5,R6,R7,RD,RM,RJ Q
 ;