BTWCON ;CONVERSIE BTW-KODES ;BTWCON ; [ 07/11/97   1:20 PM ]
 G 1
 ;
T1 ;ER ZIJN REEDS TE VEEL BTW-KODES ;
T2 ;DEZE CONVERSIE WERD REEDS UITGEVOERD ;
T3 ;EINDE CONVERSIE ;
T4 ;BEHEER BTW-KODES\\\^cA3050\D\^cA3050\\\\\GESTION CODES TVA;
T5 ;NIEUWE LAY-OUT;11;41;;11;63;$S($D(@("^"_Q_"BA(33)")):$P(^(33),D,16),1:0);$P("NEEN\JA",D,K+1);1;[] = neen   1[] = ja;1[K;;12;1;;$P(@("^"_Q_"BA(33)"),D,16);;;;;;1;;
T6 ;VERPLAATSING;12;41;;12;63;$S($D(@("^"_Q_"BA(33)")):$P(^(33),D,14),1:0);K*1_" POSITIE(S)";1;breedte linker marge in posities (bvb. 3);K?1N;;12;1;;$P(@("^"_Q_"BA(33)"),D,14);;;;;;1;;
T7 ;NUMMER FIN. REK.;13;41;;13;63;$S($D(@("^"_Q_"BA(33)")):$P(^(33),D,17),1:"");K I $L(K) D S1^cAT142;12;;K?.N;;2;1;;$P(@("^"_Q_"BA(33)"),D,17);;;D ^cAT142;1;BRCTR;1;;
 ;
S1 I '$D(^(K)) S ^(K)=X(A)_"\OMZET "_X(A)_" BTW\0",^(K+20)=X(A)*.33_"%\33%" G S1Z
S1A I $P(^(K),D)=X(A) G S1Z
S1B S K=K+1 G S1
S1Z W !?2,K,"=",X(A) 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 I $D(^HULP("BTW","ZZ"))#10,^("ZZ")=$T(ZZ) S K=$P($T(T2),U,2) D E G YZ
13 S ^("ZZ")=$T(ZZ) K ^("QQ") S QQ=$P(^cLOG(boot,"Q"),D,2,999),XQ=Q
15 S AT=1,X(1)="20.5%"
 ;
2 S Q=$P(QQ,D),QQ=$P(QQ,D,2,999) I Q="" G Y:QQ="",2
21 I '$D(@("^"_Q_"BA(99,1)")) G 2
23 H 1 S FP=403 W @F,Q,".",^(1),@F1
 ;
3 S (A,B)=0 F K=0:1:9 I $D(@("^"_Q_"BA(18,K)")) S A=A+1 I +^(K)=19.5 S B=B+1
31 G 2:B'=1 I A+AT>10 S K=$P($T(T1),U,2) D E G 2
33 F A=1:1:AT S K=0 D S1
35 K ^("D")
 ;
4 F M=1,0 Q:$D(@("^"_Q_"BA(""MENU"",M,0)"))
41 I $D(@("^"_Q_"PR(0)")),$O(^(0))'="" S @("^"_Q_"BA(""MENU"",M,97)")=$P($T(+1),U,2)_"PRODUKTEN\17\43\^BTWPR\D\\\\\"
43 I $D(@("^"_Q_"UL(0)")),$O(^(0))'="" G 5
45 I $D(@("^"_Q_"OD(0)")),$O(^(0))'="" G 5
47 I $D(@("^"_Q_"UT(0)")),$O(^(0))'="" G 5
49 G 51
 ;
5 S @("^"_Q_"BA(""MENU"",M,98)")=$P($T(+1),U,2)_"BONS\18\43\^BTWUL\D\\\"
51 S A=$P($T(T4),U,2),K=0
53 S M=$O(@("^"_Q_"BA(""MENU"",13,K)")) I M=""!(M>20) S ^(K+1)=A G 6
55 S K=M,$P(A,D,2)=$P(^(K),D,2)+1,$P(A,D,3)=$P(^(K),D,3) G 53
 ;
6 I $D(@("^"_Q_"KH(0,192)")) S ^(116)=$P($T(T5),U,2,99),^(117)=$P($T(T6),U,2,99),^(118)=$P($T(T7),U,2,99)
61 G 2
 ;
Y S Q=XQ,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
 ;
ZZ ; 23.12.93 - 17 u 20