BTWPR ;CONVERSIE BTW-KODES PRODUKTEN ;BTWPR ; [ 12/27/93  5:00 PM ]
 G 1
 ;
T1 ;HET PRODUKTENBESTAND IS IN GEBRUIK ! ;
T2 ;De verkoopprijs is ;EXCLUSIEF BTW;INCLUSIEF BTW;
T3 ;EINDE CONVERSIE ;
T4 ;BEVESTIGING\".[] = doorgaan   -[] = einde programma";
 ;
S1 I INCL S S1=$P(B(1),D,7),$P(B(1),D,7)=$J(S1/(1+(PTXT(K\10)+PBTW(K#10)/100))*(1+(PBTW(X)/100)),0,PDP)
S1Z S $P(B(1),D,5)=X K S1 Q
 ;
1 S K=$P($T(+1),U,2)_QN_" ",FP=203+$L(K) W @F61,@F11,@F1,@F,@F5 S FP=202 W @F,@F4,K,@F5
11 L @("^"_Q_"PR"):2 E  S K=$P($T(T1),U,2) D E G YZ
12 S R="K\22\3\"_$P($T(T4),U,2)_"\1\\""-,.""[K&$L(K)" D ^cA100 I K'="." G YZ
13 K @("^"_Q_"BA(""MENU"",QM,97)") D S1^cA305 S INCL=0,K=""
15 S K=$O(@("^"_Q_"BA(""%H"",2,K)")) G 2:K="" I $P(^(K),D,3)=107 S INCL=$P(^(K),D,2) G 2
17 G 15
 ;
2 S FP=403 W @F,$P($T(T2),U,2),$P($T(T2),U,3+INCL)
21 S PDP=QD I $D(@("^"_Q_"PR(0,19)")) S PDP=+$P(^(19),D,2)
23 S PR=0,K=""
25 S K=$O(PBTW(K)) I K'="",+PBTW(K)=20.5 S X=K G 3
27 G 25
 ;
3 S PR=$O(@("^"_Q_"PR(PR)")) G 4:PR="",3:'$D(^(PR,0)) S B(1)=^(0),K=$P(B(1),D,5)
31 S FP=2203 W @F,$P(B(1),D),"   ",$P(B(1),D,2),@F1,!?2,K,"=",PBTW(K#10)
33 I +PBTW(K#10)=19.5 D S1 S @("^"_Q_"PR(PR,0)")=B(1)
35 G 3
 ;
4 S PR=0
41 S PR=$O(^SPRX(PR)) G 5:PR="" S B(1)=^(PR) I $P(B(1),D,6)=7 S $P(^(PR),D,6)=8
43 G 41
 ;
5 S B(1)=$G(@("^"_Q_"BA(""%A"",1,""PRVO"",0)")),K=$P(B(1),D,5) I $D(PBTW(+K)),+PBTW(+K)=19.5 S $P(^(0),D,5)=X
 ;
Y L  S K=$P($T(T3),U,2) D E
YZ Q
 ;
E S FP=2402 W @F,@F4,K,"  [] = ok ",@F5,@F1,@F0 R K Q
 ;
Z X ^cZ Q
ZZ ; 23.12.93 - 17 u 25