cAT115 ;BTW-listing ;%AT11 ; [ 06/19/01  9:32 AM ]
 ;
T0 ;BTW-listing ;
T1 ;Deze gegevens zijn niet meer beschikbaar ;
T2 ;Kwartaal;
T3 ;1[] = januari-februari-maart    2[] = april-mei-juni     [] = ;
T4 ;3[] = juli-augustus-september   4[] = oktober-november-december;
T5 ;Lijst\"[] = op papier   .[] = op diskette";
T6 ;Eigen BTW-nummer;
T7 ;Bevestiging\"[] = ok   ,[] = hernemen";
 ;
T0F ;Listing annuel de TVA ;
T1F ;Les données ne sont plus disponibles ;
T2F ;Trimestre;
T3F ;1[] = Janvier-Février-Mars      2[] = Avril-Mai-Juin     [] = ;
T4F ;3[] = Juillet-Août-Septembre    4[] = Octobre-Novembre-Décembre;
T5F ;Liste\"[] = sur l'imprimante   .[] = sur disquette";
T6F ;Votre propre n° de TVA;
T7F ;Confirmation\"[] = ok   ,[] = reprendre";
 ;
T0E ;VAT-report ;
T1E ;Data is not longer available ;
T2E ;Quarter;
T3E ;1[] = January-February-March    2[] = April-May-June     [] = ;
T4E ;3[] = July-August-September     4[] = October-November-December;
T5E ;Report\"[] = on paper   .[] = on diskette";
T6E ;Own VAT number;
T7E ;Confirmation\"[] = ok   ,[] = retry";
 ;
1 D ^cT489 S S="#" I 'QP D PP G 2
11 S A=DM-1\3 S:'A A=4 S R="KW\22\3\"_$P($T(@("T2"_QT)),U,2)_"\C1\1\\""-,1234""[K" D R0
13 G 11^cAT11:K="-"!(K=",") S:'K KW=A S A=$S(KW=4!(A=4)!(KW>A):DJ-1,1:DJ),BP1=$E(KW-1*3+1/100+A_0,1,7),BP2=$E(KW*3/100+A_0,1,7)
15 S FP=1703 W @F,@F1,!!!?2,$P($T(@("T2"_QT)),U,2)," : ",BP1 W:BP2>BP1 " - ",BP2
17 I BP2'>$P(BPB,D,AT+1*3) S K=$P($T(@("T1"_QT)),U,2) D F1 G 11
 ;
2 S R=@("^"_Q_"BA(39)"),DV=$G(^(49)) S:$P(R,D,4)'="BE" DV=0 I 'DV G 3
21 S R="K\22\3\"_$P($T(@("T5"_QT)),U,2)_"\1\\""-,.""[K" D R0 G 11:K="-",13:K="," S DV=$L(K) I 'DV G 3
22 S BTWNR=$P($G(@("^"_Q_"BTW(0,0)")),D,7)
23 S R="BTWNR\22\3\"_$P($T(@("T6"_QT)),U,2)_"\\14\\$$BTW^cAFI1(K)!(K=""-"")\\\\\1" D R0 G 21:K="-",23:'K
25 S U3=$$BTW^cAFO1(K),BTWNR=$$DP^cAFA1(U3),FP=1803 W @F,@F2,$P($T(@("T6"_QT)),U,2)," : ",U3
27 S R="K\22\3\"_$P($T(@("T7"_QT)),U,2)_"\1\\""-,""[K" D R0 G 22:K="-",13:K=","
29 S FORM=1,S4=$P($T(@("T2"_QT)),U,2)_" "_KW_" "_(BP1\1) D ^cA701 G 11:K="-",13:K=","
 ;
3 I 'DV D ^cAN3223(0,"1#9",80,0) G 11:K="-",13:K="," I K="." D S9 G YZ
31 S RS=$C(13,10),FP=2201 W @F,@F1 G ^cAT116
 ;
YZ Q
 ;
C1 W !?2,$P($T(@("T3"_QT)),U,2),A,!?2,$P($T(@("T4"_QT)),U,2) Q
 ;
R0 S $P(R,D,12)=$T(+0) D ^cAN1000 Q  ; v12 23.01.95
 ;
PP S BP1=PP(1),BP2=PP(2),KW=PP(3),XQ=PP(4)
PPZ K PP Q
 ;
S9 S QPT=$T(+0),PP(1)=BP1,PP(2)=BP2,PP(3)=KW,PP(4)=XQ
S9Z D ^cA109 Q
 ;
F1 S R=250
F2 D TXT^cAFA1(R)
FZ K R Q
 ;
ZZ ; 06.08.01 - 17 u 28 * V7.87