cAT118 ;BTW-listing ;%AT11 ;go uit %AT116 ; [ 01/03/01  5:25 PM ]
 G 1
 ;
T0 ;BTW-listing ;
T1 ;Voorblad;
T2 ;Vak bestemd voor de administratie;Vak in te vullen door de belastingplichtige;
T3 ;Stempel van het controlekantoor :;Aangever :;
T4 ;;(Kleef hier het identificatie-etiket);
T5 ;Datum van ontvangst :   /  /  ; Aantal bladzijden : ;
T6 ;Visueel nazicht :; Aantal klanten : ;
T7 ;Periode : . / ....; Totaal bedrag : ;
T8 ;Aantal bladzijden :;     Ik verklaar dat deze opgave oprecht en volledig is;
T9 ;Code A/B/R :;     (Datum);
T10 ;Codering :;     (Handtekening(en);
T11 ;Munt : ;
 ;
T0F ;Listing annuel de TVA ;
T1F ;Page avant;
T2F ;Case destiné à l'administration;Grille à remplir par le contribuable;
T3F ;Cachet de l'office de contrôle :;Déclarant :;
T4F ;;(Collez ici l'étiquette d'identification);
T5F ;Date de réception   :   /  /  ; Nombre de pages   : ;
T6F ;Contrôle visuel :; Nombre clients : ;
T7F ;Période : . / ....; Montant total : ;
T8F ;Nombre de pages   :;     Je déclare que cette déclaration est sincère et complète;
T9F ;Code A/B/R :;     (Date);
T10F ;Codific. :;     (Signature(s);
T11F ;Monnaie : ;
 ;
T0E ;VAT-report ;
T1E ;Front page;
T2E ;Section intended for the administration; Section to fill up by the taxpayer;
T3E ;Stamp of check office :;Submitor :;
T4E ;;(Stick here the identification label);
T5E ;Date of receipt :   /  /  ; Number of pages : ;
T6E ;Visual check :; Number of customers : ;
T7E ;Period : . / ....; Amout total : ;
T8E ;Number of pages :;     I declare this statement to be sincere and complete;
T9E ;Code A/B/R :;     (Date);
T10E ;Encoding :;     (Signature(s);
T11E ;Currency : ;
 ;
 ; blanco lijn
S1 S TXT(1)="",TXT(2)="" D ^cA334
S1Z Q
 ;
 ; tekst rechts
S2 S TXT(2)=$P($T(@("T"_X_QT)),U,3)_"\\1" D S3
S2Z Q
 ;
 ; tekst links
S3 S TXT(1)=$P($T(@("T"_X_QT)),U,2)_"\\1" D ^cA334
S3Z Q
 ;
 ; initialisatie
1 S HD(4)=HD(3),HD(3)=HD(2),HD(2)=HD(1) K HD(1)
11 S $P(HD(2),D)=@("^"_Q_"BA(99,1)"),$P(HD(2),D,3)=$P($T(@("T1"_QT)),U,2)
13 S $P(HD(3),D)=^(2),$P(HD(3),D,3)=DT,$P(HD(4),D)=^(3),$P(HD(4),D,3)=TD
15 S TAB="60\131" K TIT,TOP
 ;
2 D S1 S X=2 D S2
21 D S1 F X=3,4 D S2
23 F X=1:1:10 D S1
25 S TXT(2)=$P($T(@("T5"_QT)),U,3)_(BLZ-1),X=5 D S3,S1
27 S TXT(2)=$P($T(@("T6"_QT)),U,3)_VNR,X=6 D S3,S1
29 S TXT(2)=$P($T(@("T7"_QT)),U,3)_$TR($FN(AFS(1,5),",T",QD),",.",".,")_" "_BF,X=7 D S3,S1
 ;
3 S TXT(1)=$P($T(@("T11"_QT)),U,2)_BF_"\\1" D ^cA334,S1
31 F X=8:1:10 D S2,S1
33 K AFS(1) S END=1 D ^cA334
 ;
YZ Q
 ;
ZZ ; 06.08.01 - 17 u 28 * V7.87