cT118	;Dom. op diskette ;%T172 ;Do uit %T117 ; [ 01/12/01  2:53 PM ]
	;
	;
T0	;Domicil. op diskette ;
T1	;Geleideborderel;Diskette       :   Ascii;
T2	;: Datum      Uurstempel     Ontvangst             :           Code / Naam financiële instelling          :;
T3	;: Code toepassing : Naam afgever      : Localiteit afgever  : Identificatienr afgever : Aantal bestanden :;
T4	;: Nummer drager               Type drager         : Schrijfcode                                          :;
T5	;: Schuldeiser    :  Datum   : Bestand :  Aard  : Aantal : Totaal bedragen : Totaal domiciliëringsnummers :;
T6	;:    Handtekening afgever                         :           Handtekening financiële instelling         :;
T7	;Blz :  1;
	;
T0F	;Factures domiciliées ;
T1F	;Document d'accompagnement;Disquette      :  Ascii;
T2F	;:   Date de réception                             :     N° de code/Nom de l'établissement bancaire       :;
T3F	;: Code d'applic.  : Nom du créancier  :Localité du créancier: N° d'identification     : Numéro d'ordre   :;
T4F	;: N° d'immatriculation        Type                : Code d'écriture                                      :;
T5F	;: N° de compte   :  Date    : Fichier : Nature : Nombre : Montant total   : Total N°s de domiciliation   :;
T6F	;:    Signature du créancier                       :          Signature de l'établissement bancaire       :;
T7F	;Page:  1;
	;
T0E	;Domicil. on diskette ;
T1E	;Geleideborderel;Diskette       :   Ascii;
T2E	;: Date       Timestamp      Reception             :           Code / Name fincancial institute           :;
T3E	;: Code application: Name creditor     : Locality creditor   : Identific. nr creditor  : Nr of records    :;
T4E	;: Number carrier              Type carrier        : Writing code                                         :;
T5E	;: Creditor       :  Date    : File    : Nature : Number : Total amounts   : Total domiciliation numbers  :;
T6E	;:    Signature creditor                           :           Signature financial institute              :;
T7E	;Pge :  1;
	;
1	S (I,T,T1,T2,B,B1,B2,L)=0,K=$E(BNR,1,3)_$E(BNR,5,11)_$E(BNR,13,14)
10	S K=K_$S(MNT="EUR":5,1:2)_" "_$E(DAT,1,2)_$E(DAT,4,5)_$E(DAT,7,8)
11	S K="00000"_DD_DM_$E(DJ,3,4)_PRO_"02"_INS_BTW_BTW_K,^HULP("TR",Q,TNR,1)=$E(K_$J("",128),1,128)_$C(13,10)
	;
2	S KC=$O(@Q1) G 3:KC="" S K=@("^"_Q_"KL(^"_Q_"K1(KC),0)"),KNM=$E($P(K,D,2),1,18),DOM=$P(K,D,23),A1=0,REF=""
21	S I=$O(@Q2) I $L(I) S K=^(I),A1=$P(K,D,9)="F"*2-1*$P(K,D,16)+A1,REF=$E(REF_$P(K,D,14)_" ",1,30) D 25:'SAM&A1 G 21
23	D 25:A1 G 2
	; record wegschrijven
25	I QA S A1=$J(A1*100,0,0) ; bedrag op eurocenten
27	S A=0,L=L+1,KNM=$E(KNM_$J("",26),1,26) S:A1>0 T=T+1,T1=T1+A1,T2=T2+DOM S:A1<0 B=B+1,B1=B1+A1,B2=B2+DOM,A=1,A1=-A1
29	S ^HULP("TR",Q,TNR,L+10)=L+10000_DOM_A_$E(A1+1E12,2,13)_$E(QN_$J("",26),1,26)_$E(REF_$J("",30),1,30)_DOM_$J("",30)_$C(13,10),A1=0,REF="" Q
	;
	; sluitrecord
3	S K=90000+T_$E(1E12+T1,2,13)_$E(1E15+T2,2,16)_$E(1E4+B,2,5)_$E(1E12-B1,2,13)_$E(1E15+B2,2,16)
31	S ^HULP("TR",Q,TNR,"1 ")=$E(K_$J("",128),1,128)_$C(13,10),$P(^(0),D,4)=L,$P(^(0),D,6)="A:DOMDIS0",L=0
	S K=$G(@("^"_Q_"BA")@("%T",12,ZSP_" ")) I $L(K) S $P(^HULP("TR",Q,TNR,0),D,6)=$TR(K,D,U)
	I QA S T1=T1/100    ; VJ 12.01.01
	; --- VJ 06.09.02 ---
	I QA S B1=B1/100    ; negatief bedrag (RG)
	S PATH=$P(^HULP("TR",Q,TNR,0),D,6) I $E(PATH,2)=":" S PATH=$E(PATH,3,$L(PATH))
	S FILE=$P(PATH,U,$L(PATH,U))
	; -------------------
	G YZ:'T&'B X F70 W @F80
	;
4	D 8 W !,":",?45,$P($T(@("T1"_QT)),U,2),?105,":" D 85
41	W !,$P($T(@("T2"_QT)),U,2),!,":",?50,":",?105,":",!,":",?50,": ",AFK,"  ",BNM,?105,":" D 85
43	W !,$P($T(@("T3"_QT)),U,2),!,":",?18,":",?38,":",?60,":",?86,":",?105,":",!,":",?18,": ",$E(NM1,1,18),?38,": "
45	W $E(NM3,1,20),?60,": ",INS,?86,":",?101,"1   :" D 85
47	W !,$P($T(@("T4"_QT)),U,2),!,":",?50,":",?105,":",!,":",?35,$P($T(@("T1"_QT)),U,3),?105,":" D 85 W !,$P($T(@("T5"_QT)),U,2) D 85
	; --- VJ 06.09.02 ---
48	; W !,": ",BNR," : ",DAT," : DOMDIS0 :   0    : ",$J(T,6)," : ",$J(T1,15,QA)," : ",$J(T2,28)," :"
	W !,": ",BNR," : ",DAT," :         :   0    : ",$J(T,6)," : ",$J(T1,15,QA)," : ",$J(T2,28)," :"
	W $$CR^cA334,$J("",30),FILE
	; -------------------
49	W !,":",?17,":",?28,":",?38,":   1    : ",$J(B,6)," : ",$J(B1,15,QA)," : ",$J(B2,28)," :"
	;
5	D 85 W $$FF^cA334 G YZ:B S B=1 G 4
	;
8	W !,NM1,?98,$P($T(@("T7"_QT)),U,2),!,NM2,?30,@F82,$P($T(@("T0"_QT)),U,2),@F83,$$CR^cA334 W ?98,DT,!,NM3,?99,TD,!
81	W !,$TR("AB-CDE-FGH-IJK","ABCDEFGHIJK",BTW),"   ",$TR("ABCD.EFGHIJ","ABCDEFGHIJ",INS),!
85	W !,":--------------------------------------------------------------------------------------------------------:" Q
	;
YZ	X F71 Q
	;
ZZ	; 29.10.02 - 11 u 38 * V7.93