cT800	;Fin & div: basisgeg. ;%T80 ; [ 01/12/01  9:40 AM ]
	;
T0	;Fin & div: basisgeg. ;
T1	;Boekingsmaand\"-[] = einde programma"; is niet toegelaten ;
T2	;Nummer uittreksel\",[] = hernemen   E[] = einde programma   [] = ;
T3	;Datum uittreksel \"dd.mm.jj[] = bepaalde datum";
T4	;Bevestiging\"[] = ok   ,[] = hernemen";
	;
T0F	;Fin & div: données de base ;
T1F	;Mois comptable\"-[] = fin du programme"; n'est pas permis ;
T2F	;N° de l'extrait  \",[] = reprendre   E[] = exit   [] = ;
T3F	;Date de l'extrait\"jj.mm.aa[] = date spécifique";
T4F	;Confirmation\"[] = ok   ,[] = reprendre";
	;
T0E	;Financial and miscellaneous transactions: based data ;
T1E	;Fiscal month\"-[] = end program"; is not allowed ;
T2E	;Statement number\",[] = retry   E[] = end program   [] = ;
T3E	;Statement date  \"dd.mm.yy[] = particular date";
T4E	;Confirmation\"[] = ok   ,[] = retry";
	;
T0D	;Fin & div: basisgeg. ;
T1D	;Rechnungsmonat\"-[] = Ende Programm"; is niet toegelaten ;
T2D	;Nr. des Auszugs\",[] = übernehmen   E[] = exit   [] = ;
T3D	;Datum des Auszugs\"tt.mm.jj[] = spezielles Datum";
T4D	;Bestätigung\"[] = ok   ,[] = übernehmen";
	;
	; boekingsmaand
1	S R="K\20\3\"_$P($T(@("T1"_QT)),U,2)_"\2\\K=""-""!(K&(K<13))" D R0 G YZ:K="-"
11	S R=+K_D_D_1 D ^cT163 I 'OK G 1
12	S BA39=@("^"_Q_"BA(39)") I BJ=$P(BA39,D,6),$P(BA39,D,11)="" S K=$P($P($T(@("T1"_QT)),U,2),D)_" "_BP_$P($T(@("T1"_QT)),U,3) D F1 G 1
13	S MNTO=$$MNTO^cAFE1(Q,$$BJ^cAFE1(Q,DJ_"."_DM))    ; muntcode openst.f.
15	S MNTC=$$MNTC^cAFE1(Q,BJ),BF=$P(MNTC,D),QD=$P(MNTC,D,2)
17	S HBF=BF,VM(HBF)=$P(@("^"_Q_"BA(11,HBF)"),D),HQD=QD
19	K DMU S (DAT,NUM,CD,NMB,SAL,HUX,HUXB,HUXV,SWMU,SWVD)="" D ^cT809
	;
	; periode
2	S BPB=$P(@("^"_Q_"BA(2)"),D,1,3),(BPE,BPEC)=$G(^("SWBP")) I $L(BPE) D @BPEC
	;
	; rekening/diversen
3	D ^cT801 G 1:K="-" D S3^cT809
31	L @Q93:2 E  S R=16 D F2 G 3
	;
	; uittreksel
4	S NUM0=$G(@("^"_Q_"BA(4,RB,BP\1)"))#1E5,NUM=NUM0+1
41	S R="K\20\3\"_$P($T(@("T2"_QT)),U,2)_NUM_"""\5\\""-,E""[K!K\\\1" D R0 G YZ:K="E"
43	S NUM=$S(K:K,K="":NUM,1:""),FP=2003 W @F,$P($P($T(@("T2"_QT)),U,2),D)," : ",NUM,@F1 D S2^cT809 G 3:K="-",1:K=","
	;
	; datum
5	S R=DT_D_1 D ^cA118 S KR=R,R="KR\21\3\"_$P($T(@("T3"_QT)),U,2)_"\8\DCTR\$L(K)\\\\\1" D R0
51	S DAT=$S(K:K,K="":DT,1:""),FP=2103 W @F,$P($P($T(@("T3"_QT)),U,2),D)," : ",DAT,@F1 D S1^cT809 G 4:K="-",1:K="," 
53	I $E(DAT,4,5)-BM!($E(DAT,7,8)-$E(BP,3,4)) S R=57 D F2 G 5:K="-"!(K=","),53:$L(K)
55	S K=$$DC^cAFD1(DAT),Q93="^"_Q_"BA(4,RB,"_K_")",@Q93=$G(@Q93,K_"0001")
57	S R="K\22\3\"_$P($T(@("T4"_QT)),U,2)_"\1\\"",-""[K" D R0 G 1:K=",",5:K="-"
	;
	; registratie
6	S @%Q1=0,(BNR,BNR0)=@Q93,^(BP\1)=NUM F I=0:1:7 S T(I)=""
61	K DFA,DFF,DFN S FP=301 W @F F I=1:1:8 W !,@F2
63	K DMU S FP=1201 W @F F I=1:1:6 W !,@F2
65	S DMU=4,(HUX,HUXB)=0,R="TRANSACT" D ^cA348        ; begin transactie
67	S ^(TRANSACT,0)=$T(+0)_D_Q_D_"F"_D_SRT_D_NUM_D_BJ_D_BP_D_BPE_D_DAT_D_DT_D_RB_D
69	G ^cT802
	;
7	I @Q93=BNR0 S ^(BP\1)=NUM0
71	S R="TRANSACT" D S1^cA348 G 31                    ; einde transactie
	;
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	; 22.06.04 - 16 u 32 * V8