BTWNR3 ;KONVERSIE DRUKKEN BTW-NR ;BTWNR ; [ 12/29/92  11:29 AM ]
 ;
 ;oude lay-out fakturen (1700)
T1 ;B.T.W. NR. : \T.V.A. NO. : \\V.A.T. NR. : ;3;2;'$L($P(@Q1,D,16));'$L($P(@Q1,D,16));15;$P(@Q1,D,16);S K=$E(K,1,3)_"."_$E(K,4,6)_"."_$E(K,7,9);;;;;;;;;;;;;;;;
T2 ;B.T.W. NR.\NO. T.V.A.\Mw S.T.NR.\V.A.T. NR.;3;2;1;$P(@("^"_Q_"KL(^"_Q_"K1(KC),0)"),D,16)="";2;$P(^(0),D,16);S RX=$E(K,1,2) S:RX'?2U RX="BE" X:$D(^BA(5,RX,2)) "S K="_^(2) S K=$P($P(U8,U,1),D,TK)_" : "_K;;;;;;;;;;;;;;;;;
 ;
 ;nieuwe lay-out bons (900)
T3 ;B.T.W. NR. :\NO. T.V.A. :\Mw S.T.NR. :\V.A.T. NR. :;2;49;$P(@("^"_Q_"KL(^"_Q_"K1(KC),0)"),D,16)=""!$P(UPM,D,53);$P(^(0),D,16)=""!$P(UPM,D,53);62;$P(^(0),D,16);S K=$E(K,1,3)_"."_$E(K,4,6)_"."_$E(K,7,9);;;;;;;;;;;;;;;;
T4 ;B.T.W. NR.\NO. T.V.A.\Mw S.T.NR.\V.A.T. NR.;2;37;1;$P(@("^"_Q_"KL(^"_Q_"K1(KC),0)"),D,16)=""!$P(UPM,D,53);38;$P(^(0),D,16);S RX=$E(K,1,2) S:RX'?2U RX="BE" X:$D(^BA(5,RX,2)) "S K="_^(2) S K=$P($P(U8,U,1),D,TK)_" : "_K,K=$J(K,35);;;;;;;;;;;;;;;;;
 ;
 ;nieuwe lay-out fakturen (1700)
T5 ;B.T.W. NR. :\NO. T.V.A. :\Mw S.T.NR. :\V.A.T. NR. :;2;49;$P(@("^"_Q_"KL(^"_Q_"K1(KC),0)"),D,16)="";$P(@("^"_Q_"KL(^"_Q_"K1(KC),0)"),D,16)="";62;$P(@("^"_Q_"KL(^"_Q_"K1(KC),0)"),D,16);W ?V+$P(U8,U,6),$E(K,1,3),".",$E(K,4,6),".",$E(K,7,9) S K="-";
T6 ;B.T.W. NR.\NO. T.V.A.\Mw S.T.NR.\V.A.T. NR.;2;37;1;$P(@("^"_Q_"KL(^"_Q_"K1(KC),0)"),D,16)="";38;$P(^(0),D,16);S RX=$E(K,1,2) S:RX'?2U RX="BE" X:$D(^BA(5,RX,2)) "S K="_^(2) S K=$P($P(U8,U,1),D,TK)_" : "_K,K=$J(K,35);;;;;;;;;;;;;;;;;
 ;
1 I $D(^HULP("BTW","BTWNR3",XQ)),^(XQ)=$T(ZZ) G YZ
11 S A=$P($T(T1),U,2,99),A1=$P($T(T2),U,2,99),B=$P($T(T3),U,2,99),B1=$P($T(T4),U,2,99),C=$P($T(T5),U,2,99),C1=$P($T(T6),U,2,99)
13 S ^(XQ)=$T(ZZ),US=""
 ;
2 S US=$O(@("^"_XQ_"UL(0,US)")) G YZ:'$L(US),2:'$D(^(US,0))
21 S OK=0,I3=900 F I=1:1 S I3=$O(^(I3)) Q:'$L(I3)!(I3>999)  I ^(I3)=B S ^(I3)=B1,OK=1 Q
23 S ^HULP("BTW","BTWNR3",XQ,US,900)=OK,K=@("^"_XQ_"UL(0,US,0)")
25 S OK=0,I3=1700 F I=1:1 S I3=$O(^(I3)) Q:'$L(I3)!(I3>1799)  S:^(I3)=A ^(I3)=A1,OK=1 S:^(I3)=C ^(I3)=C1,OK=2
27 S ^HULP("BTW","BTWNR3",XQ,US,1700)=OK G 2
 ;
YZ K A,A1,B,B1,C,C1,I3,OK Q
 ;
Z X ^cZ Q
ZZ ; 24.12.93 - 13 U 30