cAT190	;Niet gesaldeerde ;%AT19, %T14 ; [ 01/03/01  5:00 PM ]
	G 1
	;
T0	;Niet gesaldeerde ;
T1	;Vervallen;Niet-verv.;
T2	;Termijn;Mnt\Saldo doc.;
T3	; D.;FCW;FCW;
T4	; Overdracht ; Eindtotaal ;Fact-C.N.;Voorschot;
T5	; Totaal saldo;
T6	;Referentie factuurdatum : ; - Vervaldatum : ; - Muntcode : ;
T7	;Enkel geblokkeerde facturen;
T8	;Nummer\ Naam van de ;klant;leverancier;\Woonplaats;
T9	;\JRN\ \;R;B;\Document\Datum\;
T10	;Openst.;
T11	;Vervaldatum\;Bet.term.\Telefoon 1\;
T12	;Lev.nr.;Klant nr.;
T13	;\Mnt\Totaal Mnt\Openst.Mnt;
T14	;Referte\Omschrijving\;Factuurnr.lev.\Omschrijving\Betaling\;
T15	;\G\K.c.Mnt;
	;
T0F	;Non soldés ;
T1F	;Echu;Non échu;
T2F	;Délai;Mon\Solde doc.;
T3F	; J.;FCW;FCT;
T4F	; Transfert ; Total final ;Fact-N.C.;Acompte;
T5F	; Solde total;
T6F	;Référence date facture : ; - Date d'échéance : ; - Code mon. : ;
T7F	;Seulement les factures blocquées;
T8F	;Numéro\ Nom du ;client;fournisseur;\Localité;
T9F	;\JRN\ \;R;P;\Document\Date\;
T10F	;Impayé ;
T11F	;Echéance\;Dél.paiem.\Téléphone 1\;
T12F	;N° fournisseur;N° de client;
T13F	;\Mon.\Total en Mon.\Impayé en Mon.;
T14F	;Référence\Description\;N° facture fourn.\Description\Paiement\;
T15F	;\P\Esc.compt.Mon.;
	;
T0E	;Outstanding ;
T1E	;Overdue;Not overdue;
T2E	;Period;Cur.\Balance doc.;
T3E	; D.;ICB;ICB;
T4E	; Transfer ; Sum total ;Inv-C.N.;Advance;
T5E	; Balance total;
T6E	;Reference invoice date : ; - Due date : ; - Currency : ;
T7E	;Only blocked invoices;
T8E	;Number\ ;Customer Name;Supplier Name;\City;
T9E	;\JRN\ \;R;P;\Document\Date\;
T10E	;Outst.;
T11E	;Due Date\;Paym.Term\Telephone 1\;
T12E	;Num.Supplier;Num.Customer;
T13E	;\Cur\Total Cur\Outstanding Cur;
T14E	;Reference\Description\;Invoice num.Supl.\Description\Payment\;
T15E	;\P\Cash disc.Cur;
	;
	; initialisatie
1	S HD(1)=D,HD(2)=D_TIT1_";C;F82",HD(3)=D_$P($T(@("T6"_QT)),U,2)_PDT
10	I PDT2 S HD(3)=HD(3)_$P($T(@("T6"_QT)),U,3)_PDT2,PDT2=$$DH^cAFD1(PDT2)
11	S HD(3)=HD(3)_$S(PTS'=4&(PTS'=3):$P($T(@("T6"_QT)),U,4)_$P(MUNT,D)_";C",1:""),BF=$P($$MNTO^cAFE1(Q,$$BJ^cAFE1(Q,DJ_"."_DM)),D),QD=$P(MUNT,D,2)
110	I $G(BLOK) S HD(4)=D_$P($T(@("T7"_QT)),U,2)_";C"
	;
	; FB/GM - igv export naar Excel met mogelijkheid voor extra kolom - 05.07.06
	I TXT["KL",PTS=3!(PTS=4),$D(@("^"_Q_"BA(16,""E"")")) S SWEX=1,A=@("^"_Q_"BA(16,""E"")")  ; voor klanten
	I TXT'["KL",PTS=3!(PTS=4),$D(@("^"_Q_"BA(17,""E"")")) S SWEX=1,A=@("^"_Q_"BA(17,""E"")")  ; voor leveranciers
	;
111	S VAR=$P($T(@("T1"_QT)),U,2,3),P(1)=-$P(A,D),H(1)=-P(1),P(6)=$P(A,D,6),H(6)=P(6)
112	F I=2:1:5+$G(SWEX) S K=$P(A,D,I),P(I)=$E($P(K,"-"),2,9),H(I)=P(I),P(I+10)=$P(K,"-",2),H(I+10)=P(I+10) S:K["V" P(I)=-P(I),P(I+10)=-P(I+10)
113	I '$G(SWEX) S:+H(6) H(5)=H(5)-1 S:'+H(6) H(5)=$P(A,D,5) S P(5)=H(5)
	;
114	I PTS=4!(PTS=3) G 170
13	S TIT(1)=$S(DET:"",1:$P($T(@("T2"_QT)),U,2)_";1")_"\\\\" F I=1:1:4 S TIT(1)=TIT(1)_$P(VAR,U,P(I)>0+1)_";2\"
14	S TIT(1)=TIT(1)_$P(VAR,U,2)_";2",TAB="28\43\47\61\75\89\103\117\131",VAR=$P($T(@("T3"_QT)),U,2)_";2\"
15	S TIT(2)=$P(TIT,":",2)_D_$P(TIT,":",3)_D_$P($T(@("T2"_QT)),U,3)_";1\+ "_H(1)_VAR
16	F I=2:1:4 S TIT(2)=TIT(2)_H(I)_"-"_H(I+10)_VAR
17	S TIT(2)=TIT(2)_"+ "_H(5)_VAR
	G 18
170	S VAR=$P($T(@("T3"_QT)),U,2)_";2\"
171	I DET S TIT(1)=$P($T(@("T8"_QT)),U,2)_$S(TXT["KL":$P($T(@("T8"_QT)),U,3),1:$P($T(@("T8"_QT)),U,4))_D_$P($T(@("T10"_QT)),U,2)_$P(MUNT,D)_D
	I 'DET S TIT(1)=$P($T(@("T8"_QT)),U,2)_$S(TXT["KL":$P($T(@("T8"_QT)),U,3),1:$P($T(@("T8"_QT)),U,4))_$P($T(@("T9"_QT)),U,2)_$S(TXT["KL":$P($T(@("T9"_QT)),U,3),1:$P($T(@("T9"_QT)),U,4))_$P($T(@("T9"_QT)),U,5)_$P($T(@("T10"_QT)),U,2)_$P(MUNT,D)_D
172	S TIT(1)=TIT(1)_"+ "_H(1)_VAR
173	F I=2:1:4 S TIT(1)=TIT(1)_H(I)_"-"_H(I+10)_VAR
174	I '$G(SWEX) S TIT(1)=TIT(1)_"+ "_H(5)_VAR
	I $G(SWEX) S TIT(1)=TIT(1)_H(5)_"-"_H(15)_VAR_"+ "_$S($P(A,D,5)["N":+H(15),1:+H(6))_VAR
	I DET S TIT(1)=TIT(1)_$P($T(@("T11"_QT)),U,3)_$S(TXT["KL":$P($T(@("T12"_QT)),U,2),1:$P($T(@("T12"_QT)),U,3))_$P($T(@("T8"_QT)),U,5)
	I 'DET S TIT(1)=TIT(1)_$P($T(@("T11"_QT)),U,2)_$S(TXT["KL":$P($T(@("T14"_QT)),U,2),1:$P($T(@("T14"_QT)),U,3))_$P($T(@("T11"_QT)),U,3)_$S(TXT["KL":$P($T(@("T12"_QT)),U,2),1:$P($T(@("T12"_QT)),U,3))_$P($T(@("T8"_QT)),U,5)_$P($T(@("T13"_QT)),U,2)_$P($T(@("T15"_QT)),U,2)
175	S TAB=$S('DET:$S(TXT["KL":"7\36\60\64\68\70\79\88\99\110\121\132\143\154\200\205\220\239\246\270\274\285\296\298\309\320",1:"7\36\60\64\68\70\79\88\99\110\121\132\143\154\170\186\197\212\231\238\262\266\277\283\285\296"),1:"7\36\60\71\82\93\104\115\126\139\158\165\175")
18	S CORQ1="KL",CORQ2="K1" I TXT[CORQ1 S CORQ1="LE",CORQ2="L1"
19	S RFD=$$DH^cAFD1(DT),PDT=$$DH^cAFD1(PDT),I1="",SORT=$P(@("^"_Q_"BA")@("%T",2),D),TEXT=TXT
191	K ALG,ALG1,ALG2 F I=1:1:6+$G(SWEX) S T(I)=0,T1(I)=0
192	D S2 S I=$T(@("T4"_QT)),AFS(1,1)=$P(I,U,2)_$P(I,U,4),AFS(2,1)=$P(I,U,2)_$P(I,U,5)
	;
	; volgende klant of leverancier
2	S TXT=TEXT,R="I1"_TXT D ^cA327 I I1="" K ^HULP(boot,$J+.01) G 7
21	S B(1)=^(0),COR=$P($G(^(2)),D,30)
22	K ^HULP(boot,$J+.01) S I2=9999,ATL=2    ; openstaande facturen sorteren
23	S I2=$O(@("^"_Q_$P(TXT,D,2)_"(I1,I2)")) I I2'?5.6N G 27
24	S A=^(I2),I3=$$DC^cAFD1($S(SORT<2:$P(A,D,2+SORT),1:DT))*1E6+I2
25	I $G(BLOK)&('$P(A,D,8)) G 23 ; enkel geblokkeerde facturen
26	S ATL=ATL+1,^HULP(boot,$J+.01,I3)=A G 23
27	I '$D(^HULP(boot,$J+.01)) G 2
28	I COR S COR=$G(@("^"_Q_CORQ2_"(COR)")) I $L(COR) S COR=$O(@("^"_Q_CORQ1_"(COR,9999)"))
29	S COR=$S(COR?5.6N:"*",1:" "),I3="",SW=0 F I=1:1:6+$G(SWEX) S A(I)=0
	;
	; volgende openstaande factuur, credietnota of voorschot
3	S I3=$O(^HULP(boot,$J+.01,I3)) G 6:I3="" S A=^(I3),(OPE,OPEVM)=$P(A,D,5),FAK=OPE,FC=$P(A,D),R=$P(A,D,3),DAT=$P(A,D,2),MNT=$P(A,D,9),SWSTER=$P(A,D,8) K ^(I3) I CORQ1="LE" S SWSTER=0
30	S:MNT="" MNT=BF S:MNT'=BF OPE=$P(A,D,10) S DEC=+$P($G(@("^"_Q_"BA(11,MNT)")),D,7),R=$$DH^cAFD1(R)
31	S:FC="C" OPE=-OPE,OPEVM=-OPEVM,FAK=-FAK G 3:R>PDT2&PDT2 S K=R-RFD,VV=6+$G(SWEX),R=$$DH^cAFD1(DAT) G 3:R>PDT
32	S OPE=$$BEDR^cAFE1(Q,OPE,BF,$P(MUNT,D),PARI),I2=I3#1E6
33	I K<P(1) S VV=2 G 4
35	I K'>P(12)&(K'<P(2)) S VV=3 G 4
37	I K'>P(13)&(K'<P(3)) S VV=4 G 4
39	I K'>P(14)&(K'<P(4)) S VV=5
	;
	;  - FB/GM - 03.07.06
	I $G(SWEX) I K'>P(15)&(K'<P(5)) S VV=6
	;
	; afdruk detail
4	D:(PTS=4!(PTS=3)) EXCEL G 5:DET!(PTS=4!(PTS=3)) I 'SW,$G(LN),$G(LNMAX),LN+4+(ATL<5)>LNMAX S END=4 D ^cA334
41	I 'SW K TXT S TXT(1)=$$BET^cAFO1($P(B(1),D,18))_"\1" D ^cA334 S TXT(1)=COR_$TR($P(B(1),D,1,2),D," ")
43	D S1 S FC=$TR(FC,$P($T(@("T3"_QT)),U,3),$P($T(@("T3"_QT)),U,4))
45	S TXT(2)=FC_$E(" *",$P(A,D,4)'=$P(A,D,5)+1)_$J(I2,6)_$S(SWSTER:"*",1:" ")_$E(DAT,1,5),TXT(3)=MNT
47	S TXT(4)=FAK_"\\\\1\"_DEC,TXT(3+VV)=$S(SWVM:OPEVM,1:OPE)_"\\\\1\"_$S(SWVM:DEC,1:QD) D ^cA334 K TXT
	;
	; totalisatie
5	S A(1)=A(1)+$S(SWVM:OPEVM,1:OPE),A(VV)=A(VV)+$S(SWVM:OPEVM,1:OPE)
51	S K="T" S:I2>989999&(FC="C") K="T1" F I=1,VV S @(K_"(I)="_K_"(I)+OPE")
53	S ALG(MNT)=DEC,K="ALG1" S:I2>989999&(FC="C") K="ALG2" F I=1,VV S @(K_"(MNT,I)=$G("_K_"(MNT,I))+OPEVM")
57	I 'DET D S2
59	G 3
	;
	; totaal per klant/lev.
6	D:(PTS=4!(PTS=3)) EXCELT G 2:(PTS=4!(PTS=3)) G 65:'DET I 'A(1),'A(2),'A(3),'A(4),'A(5),'A(6) G 2
61	S TXT(1)=COR_$TR($P(B(1),D,1,2),D," "),TXT(2)=" "_$$BET^cAFO1($P(B(1),D,18)),TXT(3)=$S(SWVM:MNT,1:$P(MUNT,D))
62	S TXT(4)=A(1)_"\\\\1\"_$S(SWVM:DEC,1:QD) F I=2:1:6 S TXT(3+I)=A(I)_"\\\\1\"_$S(SWVM:MNT,1:QD)
63	D ^cA334,S2 K TXT G 2
	; igv met detail
65	G 2:'SW F I=2:1:9 S TXT(I)="---------------"
66	D S1,^cA334,S1 S TXT(2)=$P($T(@("T5"_QT)),U,2),TXT(3)=$S(SWVM:MNT,1:$P(MUNT,D)) F I=1:1:6 S TXT(3+I)=A(I)_"\\\\1\"_$S(SWVM:DEC,1:QD)
67	D ^cA334 K TXT S END=145 D ^cA334
69	G 2
	;
	; overdracht-totaal of eindtotaal
7	G 71:(PTS=4!(PTS=3)) D S2 S I=$T(@("T4"_QT)),AFS(1,1)=$P(I,U,3)_$P(I,U,4),AFS(2,1)=$P(I,U,3)_$P(I,U,5),END=$S(SWVM:4,1:1) D ^cA334 K AFS(1),AFS(2)
71	I $G(PTS)=4!($G(PTS)=3),'SWVM S END=1 D ^cA334 G YZ
	I 'SWVM G YZ
	;
	; overzicht per muntkode
8	S MNT=""
81	S MNT=$O(ALG(MNT)) G 89:MNT="" S DEC=ALG(MNT)
83	S I=$T(@("T4"_QT)),TXT(1)=$P(I,U,3)_$P(I,U,4),TXT(2)="",TXT(3)=MNT F I=1:1:6 S TXT(3+I)=$G(ALG1(MNT,I))_"\\\\1\"_DEC
84	D ^cA334
85	S I=$T(@("T4"_QT)),TXT(1)=$P(I,U,3)_$P(I,U,5),TXT(2)="",TXT(3)=MNT F I=1:1:6 S TXT(3+I)=$G(ALG2(MNT,I))_"\\\\1\"_DEC
86	D ^cA334
87	S END=145 D ^cA334 G 81
89	S END=1 D ^cA334
	;
YZ	Q
	;
EXCEL	N I,JRNNR,JRN,VNR,BET,K,J,STRFI,REFBH
	S $ZT="TRAP^cAN000"
	I DET G EXCELZ
	K TXT
	I '$G(SWEX) F I=8:1:13 S $P(TXT(I),D,8)=1,$P(TXT(I),D,27)=0 S K=$S(SWVM:DEC,1:QD) I K>0 S $P(TXT(I),D,27)="0." F J=1:1:K S $P(TXT(I),D,27)=$P(TXT(I),D,27)_"0"
	I $G(SWEX) F I=8:1:14 S $P(TXT(I),D,8)=1,$P(TXT(I),D,27)=0 S K=$S(SWVM:DEC,1:QD) I K>0 S $P(TXT(I),D,27)="0." F J=1:1:K S $P(TXT(I),D,27)=$P(TXT(I),D,27)_"0"
	I $P(TEXT,D,2)="LE" S $P(TXT(17),D,27)=0 S K=$S(SWVM:DEC,1:QD) I K>0 S $P(TXT(17),D,27)="0." F J=1:1:K S $P(TXT(17),D,27)=$P(TXT(17),D,27)_"0"
	; Nummer klant/leverancier
	S TXT(1)=$P(B(1),D)
	; Naam klant/leverancier
	S TXT(2)=$P(B(1),D,2)
	; Journaal
	S JRNNR=$P(A,D,16)
	I JRNNR S JRNNR=$E("000",1,3-$L(JRNNR))_JRNNR,JRN=$$JRN^cAFO2($S(TEXT["KL":"V",1:"A"),JRNNR)
	S TXT(3)=$S(JRNNR:JRN,1:"")
	; F/C
	S TXT(4)=FC
	; Bij de klanten aantal rappels, bij de leveranciers betalingsvoorstel
	S TXT(5)=$P(A,D,8)
	; Document
	S TXT(6)=I2
	; Datum
	S TXT(7)=DAT
	; Openstaand
	S TXT(8)=$S(SWVM:OPEVM,1:OPE)_"\\\\1\"_$S(SWVM:DEC,1:QD)_"\\1"
	S TXT(7+VV)=$S(SWVM:OPEVM,1:OPE)_"\\\\1\"_$S(SWVM:DEC,1:QD)_"\\1"
	; Vervaldatum
	I '$G(SWEX) S TXT(14)=$P(A,D,3) S VNR=14
	I $G(SWEX) S TXT(15)=$P(A,D,3) S VNR=15
	I $P(TEXT,D,2)="LE" G EXCELA
	; Opzoeken referte boekhouding
	S REFBH=$$REFBH(I2)
	; Referentie
	S VNR=VNR+1,TXT(VNR)=$S($L(REFBH):REFBH,1:$$REF($P(A,D,17),I2,$P(A,D,7)))
	S STRFI=$P(A,D,21)
	I $L(STRFI) S TXT(VNR)=$P(@("^"_Q_"FI($P(STRFI,""#""),$P(STRFI,""#"",2),$P(STRFI,""#"",3))"),D,9)
	; Omschrijving
	; KO - 16.08.06
	; S VNR=VNR+1,TXT(VNR)=$S($L(REFBH):$$REF($P(A,D,17),I2,$P(A,D,7)),1:"")
	S VNR=VNR+1,TXT(VNR)=$$OMS^cT310(I2,STRFI)
	; I $L(STRFI) S TXT(VNR)=$P(@("^"_Q_"FI($P(STRFI,""#""),$P(STRFI,""#"",2),$P(STRFI,""#"",3))"),D,15)
	G EXCELB
	;  Factuurnr. lev.
EXCELA	S VNR=VNR+1,TXT(VNR)=$P(A,D,7)
	S STRFI=$P(A,D,21)
	I $L(STRFI) S TXT(VNR)=$P(@("^"_Q_"FI($P(STRFI,""#""),$P(STRFI,""#"",2),$P(STRFI,""#"",3))"),D,9)
	; Omschrijving
	S VNR=VNR+1,TXT(VNR)=$$OMS(I2)
	I $L(STRFI) S TXT(VNR)=$P(@("^"_Q_"FI($P(STRFI,""#""),$P(STRFI,""#"",2),$P(STRFI,""#"",3))"),D,15)
	; Betaald
	S VNR=VNR+1 S TXT(VNR)="",$P(TXT(VNR),D,27)=0 S K=$S(SWVM:DEC,1:QD) I K>0 S $P(TXT(VNR),D,27)="0." F J=1:1:K S $P(TXT(VNR),D,27)=$P(TXT(VNR),D,27)_"0"
	S BET=$P(A,D,10)-$S($P(A,D,11):$P(A,D,13),1:0)
	I BET<0 S BET=-BET
	S:OPE<0 OPE=-OPE I $$HD^cAFD1(PDT)=DT,+OPE'=BET S TXT(VNR)=$S(FC="C":BET,1:-BET)_"\\\\1\"_QD_"\\1"
EXCELB	; Betal. term.
	S VNR=VNR+1,TXT(VNR)=$$BET^cAFO1($P(B(1),D,18))
	; Telefoon
	S VNR=VNR+1,TXT(VNR)=$$SG^cAFA1($P(TEXT,D,2),$P(B(1),D),113)
	; Lev. nr/Klant nr.
	S VNR=VNR+1,TXT(VNR)=$S(COR="*":$$SG^cAFA1($P(TEXT,D,2),$P(B(1),D),330),1:"")
	; Woonplaats
	S VNR=VNR+1,TXT(VNR)=$$SG^cAFA1($P(TEXT,D,2),$P(B(1),D),107)
	; Munt
	S VNR=VNR+1,TXT(VNR)=MNT
	; Totaal document mnt
	S VNR=VNR+1,TXT(VNR)=$S(FC="C":-$P(A,D,4),1:$P(A,D,4))_"\\\\1\"_DEC,$P(TXT(VNR),D,27)="0.00"
	; Saldo document Mnt
	S VNR=VNR+1,TXT(VNR)=FAK_"\\\\1\"_DEC,$P(TXT(VNR),D,27)="0.00"
	; G(edeeltelijk betaald)
	S VNR=VNR+1,TXT(VNR)=$S($S(FC="C":-$P(A,D,4),1:+$P(A,D,4))'=+FAK:"*",1:"")
	; Korting contant
	S VNR=VNR+1,TXT(VNR)=$S(+$P(A,D,6)=0:"",1:$P(A,D,6))_"\\\\1\"_DEC,$P(TXT(VNR),D,27)="0.00"
	D ^cA334
EXCELZ	Q
	;
EXCELT	N VNR,I
	S $ZT="TRAP^cAN000"
	I 'DET G EXCELTZ
	K TXT
	F I=3:1:8+$G(SWEX) S $P(TXT(I),D,8)=1,$P(TXT(I),D,27)=0 S K=$S(SWVM:DEC,1:QD) I K>0 S $P(TXT(I),D,27)="0." F J=1:1:K S $P(TXT(I),D,27)=$P(TXT(I),D,27)_"0"
	; Nummer klant/leverancier
	S TXT(1)=$P(B(1),D)
	; Naam klant/leverancier
	S TXT(2)=$P(B(1),D,2)
	; Woonplaats
	S TXT(12+$G(SWEX))=$$SG^cAFA1($P(TEXT,D,2),$P(B(1),D),107)
	; Openstaand
	S TXT(3)=A(1)_"\\\\1\"_$S(SWVM:DEC,1:QD)_"\\1"
	S VNR=3
	F I=2:1:6+$G(SWEX) S VNR=VNR+1 I +A(I) S TXT(VNR)=A(I)_"\\\\1\"_$S(SWVM:DEC,1:QD)_"\\1"
	S TXT(9+$G(SWEX))=$$BET^cAFO1($P(B(1),D,18))
	S TXT(10+$G(SWEX))=$$SG^cAFA1($P(TEXT,D,2),$P(B(1),D),113)
	S TXT(11+$G(SWEX))=$S(COR="*":$$SG^cAFA1($P(TEXT,D,2),$P(B(1),D),330),1:"")
	D ^cA334
EXCELTZ	Q
	;
	;  Opzoeken referte van bij de factuur
	;
REF(US,FNR,REF)	N UR,EEN
	S $ZT="TRAP^cAN000"
	S R=$G(REF)
	I US="" G REFZ
	G REFZ:'$D(@("^"_Q_"FA(US,FNR)"))   
	S UR=$O(@("^"_Q_"FA(US,FNR,""U"")")) G REFZ:$E(UR)'="U" S EEN=^(UR,1)
	I $L($P(EEN,D,3)) S R=$P(EEN,D,3)
REFZ	Q R
	;
REFBH(FNR)	; opzoeken of er een referte boekhouding is
	N R,I1
	S $ZT="TRAP^cAN000"
	S R=""
	S I1=""
REFBHA	S I1=$O(@("^"_Q_"VE(I1)"))
	I I1="" G REFBHZ
	I $D(@("^"_Q_"VE(I1,FNR)")) S R=$P(^(FNR),D,14) G REFBHZ
	G REFBHA
REFBHZ	Q R
	;
	;  Opzoeken omschrijving uit het aankoopdagboek
OMS(FNR)	N R,I1
	S $ZT="TRAP^cAN000"
	S R=""
	S I1=""
OMSA	S I1=$O(@("^"_Q_"AA(I1)"))
	I I1="" G OMSZ
	I $D(@("^"_Q_"AA(I1,FNR)")) S R=$P(^(FNR),D,19) G OMSZ
	G OMSA
OMSZ	Q R
	;
	; woonplaats/telefoon
S1	I SW=1 S TXT(1)=" "_$P(B(1),D,7)
S1A	I SW=2 S TXT(1)=" "_$P(B(1),D,13)
S1B	I SW>2 S TXT(1)=""
S1Z	S SW=SW+1 Q
	;
	; totalen
S2	F I=1:1:6 S AFS(1,3+I)=T(I)_"\\\\1\"_QD,AFS(2,3+I)=T1(I)_"\\\\1\"_QD
S2Z	Q
	;
ZZ	; 19.03.07 - 15 u 31 * V8.08