cAT11 ;BTW-listing en I.C.-kwartaalopgave ;%AT11 ; [ 02/15/01  10:51 AM ]
 ;
T0 ;BTW-listing en I.C.-kwartaalopgave ;
T1 ;Het verkoopdagboek ;bevat :;is leeg ;
T2 ;Jaartal\"jjjj[] = bepaald jaar;
T3 ;De controle herberekent de gegevens voor alle klanten, uitgaande van het;verkoopdagboek.;
T4 ;De proeflijst vermeldt alle klanten met omzet, ongeacht de grootte;van het omzetcijfer of de aanwezigheid van een BTW-nummer.;
T5 ;De definitieve lijst vermeldt enkel klanten met een BTW-nummer en een;omzet groter dan ;
T6 ;Uw keuze;1[] = controle   ;2[] = proeflijst   3[] = definitieve lijst",!?2,".[] = wijzigen minimum bedrag voor definitieve lijst";
T7 ;Minimum bedrag voor de definitieve lijst\;
T8 ;Proeflijst;Definitieve lijst;Controle;De gegevens uit programma 9.3. gecumuleerd omzetcijfer gaan hierbij verloren !;
T9 ;Lijst\"[] = op papier   .[] = op diskette";
T10 ;Eigen BTW-nummer;
T11 ;Keuze\"[] = I.C.-kwartaalopgave   .[] = jaarlijkse listing";
T12 ;Bevestiging\"[] = ok   ,[] = hernemen";
T13 ;Het verkoopdagboek bevat meerdere muntcodes: de lijst wordt opgemaakt in ;
T14 ;Omzet en BTW moeten worden herrekend via de controle.;
T15 ;De controle werd nog niet uitgevoerd;De laatste controle dateert van ;
T16 ;BTW-listing ;
 ;
T0F ;Listing annuelle de TVA et relevé trimestriel;
T1F ;Le journal de vente ;contient :;est vide ;
T2F ;Année\"aaaa[] = année spécifique;
T3F ;Le contrôle recalcule les données de tous les clients,;en fonction du journal des ventes.;
T4F ;La liste provisoire mentionne tous les clients avec chiffre d'affaires,;sans considérer le montant ou la présence d'un numéro de TVA.;
T5F ;La liste définitive ne mentionne que les clients avec un numéro de TVA;et avec un chiffre d'affaires superieur à ;
T6F ;Choix;1[] = contrôle   ;2[] = liste provisoire   3[] = liste définitive",!?2,".[] = modification du montant minimal";
T7F ;Montant minimal pour la liste definitive\;
T8F ;Liste provisoire;Liste définitive;Contrôle;Les données du programma 9.3. Chiffre d'aff. cumulé seront perdus !;
T9F ;Liste\"[] = sur l'imprimante   .[] = sur disquette";
T10F ;Votre propre numéro de TVA;
T11F ;Choix\"[] = relevé trimestriel I.C.   .[] = listing annuel";
T12F ;Confirmation\"[] = ok   ,[] = reprendre";
T13F ;Le journal de vente contient plusieurs codes: la liste sera en ;
T14F ;CA et TVA doivent être recalculés par le contrôle.;
T15F ;Le contrôle n'est pas encore exécuté;Dernier contrôle du ;
T16F ;Listing TVA ;
 ;
T0E ;VAT-report and quarter statement ;
T1E ;The sales journal ;contain :;is empty ;
T2E ;Year\"yyyy[] = particular year;
T3E ;The check recalculates the data for all customers based on the;sales journal.;
T4E ;The trial report mentions all customers with turnover, regardless of;the size of the turnover and the presence of a VAT number.;
T5E ;The final report mentions only the customers with a VAT number and a;turnover larger than ;
T6E ;Choice;1[] = check   ;2[] = trial report   3[] = final report",!?2,".[] = change minimum amount for final report"; 
T7E ;Minimum amount for the final report\;
T8E ;Test report;Final report;Check;The data of program 9.3 global turnovber customers will be lost !;
T9E ;Report\"[] = on paper   .[] = on diskette";
T10E ;Own VAT number;
T11E ;Choice\"[] = quarter statement   .[] = annual listing";
T12E ;Confirmation\"[] = ok   ,[] = retry";
T13E ;The sales journal contains more than one currency: the report will be in ;
T14E ;Turnover and VAT must be recalculated via the check.;
T15E ;The check has not yet been executed; The last check dates from ;
T16E ;VAT-report ;
 ;
 ; initialisatie + schermopbouw
1 I 'QP S KJ=PP(1),DEF=PP(2),MIN=PP(3),DV=PP(4),UBTW=PP(5),XQ=PP(6) K PP G ^cAT111
10 S XQ=$P(R,U,2,999) I XQ="" S XQ=Q
11 S K=$P($T(@("T0"_QT)),U,2)_QN_" ",FP=203+$L(K) W @F61,@F11,@F1,@F,@F5 S FP=202 W @F,@F4,K,@F5
13 S BP="",K=$T(@("T1"_QT)) I $O(@("^"_Q_"VE(BP)"))="" S K=$P(K,U,2)_$P(K,U,4) D F1 G YZ
15 K A S FP=403 W @F,$P(K,U,2),$P(K,U,3),! F K=1:1 S BP=$O(^(BP)) Q:BP=""  S A(BP\1)=""
17 S A="" F K=1:1 S A=$O(A(A)) Q:A=""  W !?2,A," = " F B=1:1:12 S BP=$E(B/100+A_0,1,7) W $J($S($D(^(BP)):B,1:""),3)
 ;
 ; jaarlijkse lijst
2 S R="K\22\3\"_$P($T(@("T11"_QT)),U,2)_"\1\\""-.""[K" D R0 G YZ:K="-",^cAT115:K=""
20 S R="KJ\22\3\"_$P($T(@("T2"_QT)),U,2) S:$D(A(DJ)) R=R_"   [] = "_DJ S:$D(A(DJ-1)) R=R_"   .[] = "_(DJ-1)
21 S R=R_"""\4\\K=""-""!(K?4N&$D(A(+K)))" S:$D(A(DJ)) R=R_"!'$L(K)" S:$D(A(DJ-1)) R=R_"!(K=""."")"
23 D R0 G 2:K="-" S:K="" KJ=DJ S:K="." KJ=DJ-1 S FP=403 W @F,@F1,$P($P($T(@("T2"_QT)),U,2),D)," : ",KJ
25 S K=$$BJ^cAFE1(Q,KJ+.01),MNT1=$$MNTC^cAFE1(Q,K)
27 S K=$$BJ^cAFE1(Q,KJ+.12),MNT2=$$MNTC^cAFE1(Q,K)
29 S BF=$P(MNT2,D),QD=$P(MNT2,D,2)
 ;
 ; algemene uitleg
3 S BA40=$G(@("^"_Q_"BA(40)")),MIN=$P(BA40,D),DAT=$P(BA40,D,2) S:'MIN MIN=5000
31 F B=3:1:5 S FP=B*3-3*100+1,R=$T(@("T"_B_QT)) W @F,@F1 W !?2,B-2,". ",$P(R,U,2),!?5,$P(R,U,3)
33 W $$IP^cAFA1(MIN,QD,0),BF,".",@F1
 ;
 ; keuze 1=controle/2=proef/3=definitief
4 S R="K\22\3\"_$P($T(@("T6"_QT)),U,2)_"\"""_$P($T(@("T6"_QT)),U,3)_$P($T(@("T6"_QT)),U,4)_"\1\\""-123.""[K&$L(K)" D R0 G 11:K="-",8:K=1,5:K
41 S R="K\22\3\"_$P($T(@("T7"_QT)),U,2)_"\6\\K=""-""!$$W^cAFI2(K,QD,0)" D R0 G 4:K="-" S $P(@("^"_Q_"BA(40)"),D)=K G 3
 ;
 ; 2=proef/3=definitief
5 S (DEF,DV)=K-2,FP=703 W @F,@F1,$P($T(@("T8"_QT)),U,K) S:DV DV=$D(@("^"_Q_"BA(49)")) S:DV DV=+^(49)
50 S UBTW=$P($G(@("^"_Q_"BTW(0,0)")),D,7)
500 I MNT1=MNT2 G 51
501 W !,@F92,!?2,$P($T(@("T13"_QT)),U,2),$P(MNT2,D),"."
502 W !?2,$P($T(@("T14"_QT)),U,2)
503 W !?2,$P($T(@("T15"_QT)),U,$S(DAT:3,1:2)),DAT,".",@F93 I DEF&'DAT G 4
51 S SWB=$P($G(@("^"_Q_"BA(39)")),D,4) S:SWB="" SWB="BE" I SWB'="BE" S DV=0 G 6
53 I DV S R="K\22\3\"_$P($T(@("T9"_QT)),U,2)_"\1\\""-.""[K" D R0 G 31:K="-" S DV=$L(K)
55 S R="UBTW\22\3\"_$P($T(@("T10"_QT)),U,2)_"\\14\\$$BTW^cAFI1(K)!(K=""-"")\\\\\1" D R0 G 31:K="-",55:'K
57 S U3=$$BTW^cAFO1(UBTW),FP=1003 W @F,@F1,$P($T(@("T10"_QT)),U,2)," : ",U3
 ;
 ; printer
6 G 7:DV D ^cAN3223(0,"1#9",80,0) G 31:K="-",11:K=",",^cAT111:K'="."
61 S QPT=$T(+0),PP(1)=KJ,PP(2)=DEF,PP(3)=MIN,PP(4)=DV,PP(5)=UBTW,PP(6)=XQ D ^cA109 G YZ
 ;
 ; file
7 S R="K\22\3\"_$P($T(@("T12"_QT)),U,2)_"\1\\""-,""[K" D R0 G 31:K="-",11:K=","
71 S FORM=1,S4=$P($T(@("T16"_QT)),U,2)_KJ D ^cA701 G 11:K="-",^cAT111
 ;
 ; controle
8 S FP=703 W @F,@F1,$P($T(@("T8"_QT)),U,4) S FP=1003 W @F,$P($T(@("T8"_QT)),U,5)
81 S R="K\22\3\"_$P($T(@("T12"_QT)),U,2)_"\1\\""-,""[K" D R0 G 31:K="-",11:K=",",^cAT110
 ;
YZ Q
 ;
R0 S $P(R,D,12)=$T(+0) D ^cAN1000 Q  ; v12 23.01.95
 ;
F1 S R=250
F2 D TXT^cAFA1(R)
FZ K R Q
 ;
ZZ ; 06.08.01 - 17 u 28 * V7.87