cT117 ;Domiciliëring ;%T172 ; [ 01/03/01  5:27 PM ]
 G 1
 ;
T0 ;Domiciliëring ;
T1 ;Uitvoeringsdatum    :;Inschrijvingsnummer :;Identificatienummer :;
T2 ;Uitvoeringsdatum\"mag max. 1 maand in de toekomst liggen";
T3 ;Inschrijvingsnummer;
T4 ;Identificatienummer\"Uw BTW-nummer of een nummer toegekend door de bank";
T5 ;Bevestiging\"[] = ok   ,[] = hernemen";
 ;
T0F ;Domiciliation ;
T1F ;Date d'exécution    :;N° d'immatriculation:;N° d'identification :;
T2F ;Date d'exécution\"max. 1 mois dans le futur";
T3F ;N° d'immatriculation;
T4F ;N° d'identification\"Votre N° de TVA ou le numéro accordé par la banque";
T5F ;Confirmation\"[] = ok   ,[] = reprendre";
 ;
T0E ;Domiciliation ;
T1E ;Execution date        :;Inscription number  :;Identification number :;
T2E ;Execution date\"is allowed to be at most 1 month in the future";
T3E ;Inscription number;
T4E ;Identification number\"Your VAT number or a number granted by the bank";
T5E ;Confirmation\"[] = ok   ,[] = retry";
 ;
1 S K=$T(@("T1"_QT)),FP=1203 W @F,$P(K,U,2),@F1 S FP=1403 W @F,$P(K,U,3) S FP=1603 W @F,$P(K,U,4)
 ;
3 I '$G(DAT) S DAT=DT
30 S R="DAT\22\3\"_$P($T(@("T2"_QT)),U,2)_"\8\\$$DCTR^cAFI1(K)&$L(K)\\\\\1" D R0 G YZ:K="-"
31 S K=$E(DAT,4,8),X=$E(DT,4,8) I K'=X S X=$E(X+101,2,3)_$E(X,3,5) S:X\1>12 X="01."_$E(X#1*100+101,2,3) G 3:X'=K,3:DAT\1>(DT\1)
33 W /CUP(12,25),DAT
34 S INS=DJ_$E(1E6+$G(@("^"_Q_"BA(4,ZSP,DJ,""DOM"")"))+1,2,7)
35 S R="INS\22\3\"_$P($T(@("T3"_QT)),U,2)_"\\10\\$L(K)=10!(K=""-"")\\\\\1" D R0 G 3:K="-"
36 W /CUP(14,25),INS
37 S (K,BTW)=$G(@("^"_Q_"BA(49)")) G 41:BTW?11N
 ;
4 S R="K\22\3\"_$P($T(@("T4"_QT)),U,2)_"\11\\K?.N!(""-""[K)" D R0 G 35:K="-" S:K (K,BTW)=$E(1E11+K,2,99)
41 G 4:97-($E(K,1,9)#97)'=+$E(K,10,11) S @("^"_Q_"BA(49)")=BTW,FP=1625 W @F,$E(K,1,2),"-",$E(K,3,5),"-",$E(K,6,8),"-",$E(K,9,11)
45 S R="K\22\3\"_$P($T(@("T5"_QT)),U,2)_"\1\\""-,""[K" D R0 I 'DV,K="" G YZ
47 I $L(K) S FP=2002 W @F,@F1 G 1:K=",",4:K="-"
48 S FORM=1,S4=$E($P($T(@("T0"_QT)),U,2),1,3)_" "_DAT_" "_AFK D B^cA612,^cA701,C^cA612 G 45:K="-"
49 D ^cT118,B^cA612,^cA702,C^cA612 S K=""
 ;
YZ Q
 ;
R0 S $P(R,D,12)=$T(+0) D ^cAN1000 Q  ; v12 23.01.95
 ;
ZZ ; 05.02.01 - 16 u 23 * V7.84