cTA1002	;Listings van de linken AR-ARA (zonder detail); cTA1002
	;
T0	;Listings van de linken AR-ARA;
T1	;Nummer\Naam van de ;\Nummer\Naam van de ;\Nummer\Naam van de IAS rekening;\Datum\Debet ;\Credit ;\Saldo ;\Saldo per ;\Referte;
T2	;Analytische uitsplitsing kostensoorten;Groepering kostensoorten per kostenplaats;
T3	;Periode : ;
T4	;\Boekingsmaand;
T5	;rekening;anal.rekening;
T6	;Beginsaldo
T7	;jan.;feb.;maa.;apr.;mei;jun.;jul.;aug.;sep.;okt.;nov.;dec.;
T8	;Gecontrol. lev.;
T9	;rek;anal.rek.;
	;
T0F	;Listes des liaisons grand-livre - analytique ;
T1F	;Numéro\Nom du ;\Numéro\Nom du ;\Numéro\Nom du compte IAS;\Date\Débit ;\Crédit ;\Solde ;\Solde par ;\Référence;
T2F	;Repartition analytique des frais ;Groupage par lieux des frais;
T3F	;Période : ;
T4F	;\Mois comptable;
T5F	;compte;compte anal.;
T6F	;Solde initial;
T7F	;jan.;fev.;mar.;avr.;mai;juin;juil.;aout.;sep.;oct.;nov.;dec.;
T8F	;Livr. contr.;
T9F	;compte;compte anal.;
	;
T0E	;Reports of the link between general - analytical account ;
T1E	;Number\;\Number\;\Number\IAS Account Name;\Date\Debit ;\Credit ;\Balance ;\Balance par ;\Reference;
T2E	;Analytical division of genre of costs ;Grouping of genre of costs by place of costs ;
T3E	;Period : ;
T4E	;\Fiscal month;
T5E	;Account Name;Anal.Account Name;
T6E	;Initial Balance;
T7E	;jan.;feb.;mar.;apr.;may;jun.;jul.;aug.;sep.;oct.;nov.;dec.;
T8E	;Checked deliv.;
T9E	;Acc.;Anal.Acc.;
	;
	;  Bepalen Van-datum en Tot-datum
1	N B,RJ,RM,R3,SWLST,TIT,TAB,I1,I2,I3,INH,MNT,DEC,I,BSAL,JAAR,MUNT,UQC1,UQC2,USC1,USC2,SWIAS,VAN,TOT,VANM,IASREK,REK,OREK,TOTD,TOTC,SWPRINT,BSALDO1,TABEL,SWPRARA,VJAAR,TJAAR,IASNAAM,DEBET,CREDIT,TSAL,TSALREK,REF
11	S $ZT="TRAP^cAN000"
	; indien gekozen per jaar	
13	I 'KEU S KM1=KM1(KJ),KM2=KM2(KJ) I SW,KJ<J4 S KM2=KM2(J4)  ; SW = 1 indien JAAR+ ingegeven werd : laatste maand = laatste maand jongst openstaand BJ
15	I KEU S KJ=$$BJ^cAFE1(Q,KM1)
	S VAN="01."_$P(KM1,".",2)_"."_$E(KM1,3,4)
	S RJ=$P(KM2,"."),RM=$P(KM2,".",2) D S1^cA104
	S TOT=R3_"."_$P(KM2,".",2)_"."_$E(KM2,3,4)
17	S SWLST=1,MUNT=MNTC
	S SWIAS=$P($G(@("^"_Q_"BA(300)")),D,8)
	;
2	S HD(1)=D,HD(3)=D_$P($T(@("T3"_QT)),U,2)_VAN_" - "_TOT_";C;F82",HD(2)=D_$P($T(@("T2"_QT)),U,$S(SWKP:3,1:2))_";C;F82"
21	I 'SWKP S TIT(1)=$P($T(@("T1"_QT)),U,2)_$P($T(@("T5"_QT)),U,2)_$P($T(@("T1"_QT)),U,3)_$P($T(@("T5"_QT)),U,3)_$S(SWIAS:$P($T(@("T1"_QT)),U,4),1:"")_$P($T(@("T1"_QT)),U,5)_$P(MUNT,D)_$P($T(@("T1"_QT)),U,6)_$P(MUNT,D)_$S(SWSAL:$P($T(@("T1"_QT)),U,7)_$P(MUNT,D),1:"")_$S(SWSAL:$P($T(@("T1"_QT)),U,8)_$P($T(@("T9"_QT)),U,2),1:"")_$P($T(@("T1"_QT)),U,9)
	I SWKP S TIT(1)=$P($T(@("T1"_QT)),U,2)_$P($T(@("T5"_QT)),U,3)_$P($T(@("T1"_QT)),U,3)_$P($T(@("T5"_QT)),U,2)_$S(SWIAS:$P($T(@("T1"_QT)),U,4),1:"")_$P($T(@("T1"_QT)),U,5)_$P(MUNT,D)_$P($T(@("T1"_QT)),U,6)_$P(MUNT,D)_$S(SWSAL:$P($T(@("T1"_QT)),U,7)_$P(MUNT,D),1:"")_$S(SWSAL:$P($T(@("T1"_QT)),U,8)_$P($T(@("T9"_QT)),U,3),1:"")_$P($T(@("T1"_QT)),U,9)
22	I $G(SWIAS) D
	. ; I SWSAL S TAB="7\37\44\75\82\103\112\123\134\145\156\172"
	. ; I SWSAL S TAB="7\33\40\66\73\99\108\122\136\150\164\187"
	. I SWSAL S TAB="8\33\41\66\73\99\108\122\136\150\164\187"
	. ; I 'SWSAL S TAB="7\33\40\66\73\99\108\122\136\159"
	. I 'SWSAL S TAB="8\33\41\66\73\99\108\122\136\159"
23	I '$G(SWIAS) D
	. ; I SWSAL S TAB="7\37\44\75\86\97\106\117\133\149"
	. ; I SWSAL S TAB="7\37\44\75\84\98\112\126\140\163"
	. I SWSAL S TAB="8\37\45\75\84\98\112\126\140\163"
	. ; I 'SWSAL S TAB="7\37\44\75\84\98\112\135"
	. I 'SWSAL S TAB="8\37\45\75\84\98\112\135"
24	S UQC1=$P(^DMS(Q,Q1),D),USC1=$P(^DMS(Q,Q1),D,2)
25	S UQC2=$P(^DMS(Q,Q3),D),USC2=$P(^DMS(Q,Q3),D,2)
	;
	;  Bijhouden analytische rekeningen in ^HULP
	K ^HULP(boot,$J+.99)
28	S I2="",VNR=0
29	F  D ^cAN004("I2",Q3) Q:I2=""  S VNR=VNR+1,^HULP(boot,$J+.99,VNR)=I2
	;
	; volgende AR
3	S I1=""
31	D ^cAN004("I1",Q1)
	S TSALREK=0 
	I (I1="") D  G 4
	. I SWKP=0 Q
	. I $G(SWNA) D
	.. S I2=""
	.. F  S I2=$O(^HULP(boot,$J+.99,I2)) Q:I2=""  D
	... S ARA=^(I2)
	... ;  Geen tekstrekeningen
	... I $$SIG^cAFA1(Q3,ARA,113)=1 Q
	... D NVEN(ARA)
	S SWPRARA=0
	;  Nummer AR
	S TXT(1)=$$SIG^cAFA1(Q1,I1,101)
	;  Naam AR
	S TXT(2)=$P(^(0),D,2)
	; Indien het gaat om een tekstrekening: rekening overslaan
	I SWKP=1,$P(^(0),D,13)=1,(I1'=$$REK^cTA180(""))!'$L($G(^DPAR(Q,"PAR","ARA",0))) G 31
	I SWKP=0,$P(^(0),D,13)=1 G 31
	; Aflopen ARA
	S I2=""
32	S I2=$O(^HULP(boot,$J+.99,I2))
	I (I2="") D  G 31
	. ; KO - 04.11.05
	. ; I SWKP=1 Q
	. ; I $G(SWNA) D NVEN(I1)
	. I $G(SWNA)&('SWKP) D NVEN(I1)
	. I ACT=0!(SWPRARA=1) Q
	. F I=3:1:12 S TXT(I)=""
	. D FORM
	. I SWSAL=1 S BSAL=0 D PSAL
	. I SWSAL'=1 D ^cA334
	S ARA=^(I2)
	; Indien dummy rekening: analytisch niet geventileerde bewegingen opzoeken
	I SWKP=0,(ARA=$$REK^cTA180("")),$L($G(^DPAR(Q,"PAR","ARA",0))) D NVEN(I1) S SWPRARA=1 G 32
	I SWKP=1,(I1=$$REK^cTA180("")),$L($G(^DPAR(Q,"PAR","ARA",0))) D NVEN(ARA) S SWPRARA=1 G 32
	; Indien het gaat om een tekstrekening: rekening overslaan
	I $$SIG^cAFA1(Q3,ARA,113)=1 G 32
	F I=3:1:12 S TXT(I)=""
	D FORM
	;  Nummer ARA
	S TXT(3)=$$SIG^cAFA1(Q3,ARA,101)
	;  Naam ARA
	S TXT(4)=$P(^(0),D,2)
	; Opbouwen ^HULP(boot,$J+.02 met beginsaldo's
	K ^HULP(boot,$J+.02)
	S VANM=$$DC^cAFD1(VAN)
 	S VANM=$E(VANM,1,4)_"."_$E(VANM,5,6)
 	S K=$$SALDO^cTA180(Q,$S(SWKP:ARA,1:I1),$S(SWKP:I1,1:ARA),"",VANM,3)
	S TJAAR=$$DC^cAFD1(TOT)
	S TJAAR=$E(TJAAR,1,4)_"."_$E(TJAAR,5,6)
	S TJAAR=$$BJ^cAFE1(Q,TJAAR)
	S VJAAR=$$BJ^cAFE1(Q,VANM)
	I VJAAR<TJAAR D
	. F J=(VJAAR+1):1:TJAAR D
	.. S K=$$SALDO^cTA180(Q,$S(SWKP:ARA,1:I1),$S(SWKP:I1,1:ARA),"",KM1(J),3)
	; Opbouwen ^HULP per AR/ARA/IAS
35	D ANA^cT48H(UQC1,USC1,UQC2,USC2,I1,ARA,VAN,TOT,SWIAS,SWLST)
	S OREK="zzzzzzz",BSAL="",TOTD=0,TOTC=0,TSAL=0,SWPRINT=0
	S I3="",SWP=0
	F  S I3=$O(^HULP(boot,$J+.01,I3)) Q:I3=""  D
	. S INH=^(I3,0)
	. S IASREK=$P(^(1),D,3)
	. S DIV=$E($P(^(2),D),2)
	. S REK=$S(SWIAS:IASREK,1:ARA)
	. S TABEL(ARA,$S($L(REK):REK,1:" "))=""
	. ; Bewegingen optellen en printen op 't einde
	. I ((OREK'=REK)!((SWSAL=1)&(($P(INH,D,17)>$G(JAAR))))) D
	.. I '$G(TOTD)&('$G(TOTC)) Q
	.. I SWIAS F I=7:1:12 S TXT(I)=""
	.. I 'SWIAS F I=5:1:12 S TXT(I)=""
	.. I SWIAS S TXT(8)=$J(TOTD,0,$P(MUNT,D,2))_"\\\\1\"_$P(MUNT,D,2),TXT(9)=$J(TOTC,0,$P(MUNT,D,2))_"\\\\1\"_$P(MUNT,D,2),TSAL=TSAL+TOTD-TOTC,TSALREK=TSALREK+TOTD-TOTC I SWSAL S TXT(10)=TSAL_"\\\\1\"_$P(MUNT,D,2),$P(TXT(10),D,20)=1,TXT(11)=TSALREK_"\\\\1\"_$P(MUNT,D,2),$P(TXT(11),D,20)=1
	.. I 'SWIAS S TXT(6)=$J(TOTD,0,$P(MUNT,D,2))_"\\\\1\"_$P(MUNT,D,2),TXT(7)=$J(TOTC,0,$P(MUNT,D,2))_"\\\\1\"_$P(MUNT,D,2),TSAL=TSAL+TOTD-TOTC,TSALREK=TSALREK+TOTD-TOTC I SWSAL S TXT(8)=TSAL_"\\\\1\"_$P(MUNT,D,2),$P(TXT(8),D,20)=1,TXT(9)=TSALREK_"\\\\1\"_$P(MUNT,D,2),$P(TXT(9),D,20)=1
	.. I SWIAS I '$L($P(TXT(7),D)) S TXT(7)=" "
	.. I 'SWIAS I '$L($P(TXT(5),D)) S TXT(5)=" "
	.. S TOTCUM=JAAR
	.. I OREK'=REK S TOTM=$E($$DC^cAFD1(TOT),1,6),TOTCUM=$E(TOTM,1,4)_"."_$E(TOTM,5,6)
	.. S REF="Cum. "_$P($T(@("T7"_QT)),U,$P(VANCUM,".",2)+1)_" "_$E($P(VANCUM,"."),3,4)_" - "_$P($T(@("T7"_QT)),U,$P(TOTCUM,".",2)+1)_" "_$E($P(TOTCUM,"."),3,4)
	.. I SWIAS,SWSAL S TXT(12)=REF
	.. I SWIAS,'SWSAL S TXT(10)=REF
	.. I 'SWIAS,SWSAL S TXT(10)=REF
	.. I 'SWIAS,'SWSAL S TXT(8)=REF
	.. D FORM
	.. S SWPRINT=1,SWPRARA=1
	.. D ^cA334
	.. S TOTD=0,TOTC=0
	. I OREK'=REK D
	.. ; Indien nieuwe rekening: kijken of van de vorige rekening geen saldo's meer moeten worden geprint
	.. S SWPRINT=0
	.. I OREK'="zzzzzzz" D JSAL
	. ; Ophalen omschrijving IAS-rekening
	. I SWIAS S TXT(5)=$S($L(IASREK):IASREK,1:" "),IASNAAM=$$SIG^cAFA1("ARA",IASREK,102),TXT(6)=$S($L(IASNAAM):IASNAAM,1:" ")
	. I SWIAS S VNR=6
	. I 'SWIAS S VNR=4
	. ;  Bij overgang naar andere rekening: printen saldo
	. I OREK'=REK D
	.. I SWIAS F I=7:1:12 S TXT(I)=""
 	.. I 'SWIAS F I=5:1:12 S TXT(I)=""
	..  ; Datum begin saldo
	.. I SWIAS S TXT(7)=VAN I '$L($P(TXT(7),D)) S TXT(7)=" "
	.. I 'SWIAS S TXT(5)=VAN I '$L($P(TXT(5),D)) S TXT(5)=" "
 	.. S JAAR=KM2(KJ)
 	.. S VANM=$$DC^cAFD1(VAN)
 	.. S VANM=$E(VANM,1,4)_"."_$E(VANM,5,6)
 	.. S TOTM=$$DC^cAFD1(TOT)
 	.. S TOTM=$E(TOTM,1,4)_"."_$E(TOTM,5,6)
 	.. S VANCUM=VANM
 	.. S TOTCUM=TOTM
	.. ;  Bepalen beginsaldo boekjaar
	.. ; S BSAL=$$SALDO^cTA180(Q,$S(SWKP:ARA,1:I1)$S(SWKP:ARA,1:I1),IASREK,VANM,"")
	.. S BSAL=$G(^HULP(boot,$J+.02,$P($S(SWKP:ARA,1:I1)," ")_" "_$P($S(SWKP:I1,1:ARA)," ")_" "_$P($S($L(IASREK):IASREK,1:$$REK^cTA180("",1))," ")_" "_$TR(VANM,".","")))
	.. K ^HULP(boot,$J+.02,$P($S(SWKP:ARA,1:I1)," ")_" "_$P($S(SWKP:I1,1:ARA)," ")_" "_$P($S($L(IASREK):IASREK,1:$$REK^cTA180("",1))," ")_" "_$TR(VANM,".",""))
	.. I BSAL="" S BSAL=0
	.. ;  Bepalen muntcode en decimalen beginsaldo
	.. S MNT=$$MNTC^cAFE1(Q,KJ)
	.. S BSAL=$$OMREK(BSAL,MNT,MUNT)
	.. ; Indien zonder beginsaldo --> beginsaldo op 0
	.. I SWSAL=2 S BSAL=0
	.. ; Optellen saldo per grootboekrekening
	.. S TSALREK=TSALREK+BSAL
	.. S BSALDO1=BSAL,SWPRINT=0
	.. S TSAL=BSAL
	.. S SWPRARA=1
	.. S OREK=REK,SWP=0
	. I 'SWP S SWPRARA=1 D PSAL S SWP=1
	. ;  Bij overgang naar nieuw boekjaar: printen saldo
	. I (SWSAL=1),($P(INH,D,17)>JAAR) D
	.. ; S BSAL=$$SALDO^cTA180(Q,$S(SWKP:ARA,1:I1),$S(SWKP:I1,1:ARA),IASREK,$P(INH,D,17),"")
	.. S BSAL=$G(^HULP(boot,$J+.02,$P($S(SWKP:ARA,1:I1)," ")_" "_$P($S(SWKP:I1,1:ARA)," ")_" "_$P($S($L(IASREK):IASREK,1:$$REK^cTA180("",1))," ")_" "_$TR($P(INH,D,17),".","")))
	.. K ^HULP(boot,$J+.02,$P($S(SWKP:ARA,1:I1)," ")_" "_$P($S(SWKP:I1,1:ARA)," ")_" "_$P($S($L(IASREK):IASREK,1:$$REK^cTA180("",1))," ")_" "_$TR($P(INH,D,17),".",""))
	.. I BSAL="" S BSAL=0
	.. ;  Bepalen muntcode en decimalen beginsaldo
	.. S MNT=$$MNTC^cAFE1(Q,$$BJ^cAFE1(Q,$P(INH,D,17)))
	.. S BSAL=$$OMREK(BSAL,MNT,MUNT)
	.. S JAAR=KM2($$BJ^cAFE1(Q,$P(INH,D,17))),SWP=0,TSAL=BSAL
	.. S VANCUM=KM1($$BJ^cAFE1(Q,$P(INH,D,17)))
	.. I SWIAS F I=7:1:12 S TXT(I)=""
	.. I 'SWIAS F I=5:1:12 S TXT(I)=""
	.. S TXT($S(SWIAS:7,1:5))=$$DCO^cAFD1($TR(KM1($$BJ^cAFE1(Q,$P(INH,D,17))),".","")_"01")
	.. I '$L($P(TXT($S(SWIAS:7,1:5)),D)) S TXT($S(SWIAS:7,1:5))=" "
	.. I SWPRINT=0&(BSAL=BSALDO1) S SWP=1 Q
	.. S BSALDO1=BSAL,SWPRINT=0,SWPRARA=1
	.. D PSAL 
	.. S SWP=1 
	. S MNT=$P(INH,D,13)  ; munt van de BH op ogenblik van registratie
	. I MNT="" S MNT=$$BF^cAFA1()
	. S DEC=$$DECVM^cAFE5(MNT)
	. ; Debet
	. S DEBET=$S($P(MNT,D)=$P(MUNT,D):$P(INH,D,5),1:$$OMREK($P(INH,D,10),$P(INH,D,8),MUNT))_"\\\\1\"_$P(MUNT,D,2)_"\\1"
	. S TOTD=TOTD+DEBET
	. ; Credit
	. S CREDIT=$S($P(MNT,D)=$P(MUNT,D):$P(INH,D,6),1:$$OMREK($P(INH,D,11),$P(INH,D,8),MUNT))_"\\\\1\"_$P(MUNT,D,2)_"\\1"
	. S TOTC=TOTC+CREDIT
	; Indien zonder detail diversen: bewegingen optellen en printen op 't einde
	I ($G(TOTD)!($G(TOTC))) D
	. I SWIAS F I=7:1:12 S TXT(I)=""
	. I 'SWIAS F I=5:1:12 S TXT(I)=""
	. I SWIAS S TXT(8)=$J(TOTD,0,$P(MUNT,D,2))_"\\\\1\"_$P(MUNT,D,2),TXT(9)=$J(TOTC,0,$P(MUNT,D,2))_"\\\\1\"_$P(MUNT,D,2),TSAL=TSAL+TOTD-TOTC,TSALREK=TSALREK+TOTD-TOTC I SWSAL S TXT(10)=TSAL_"\\\\1\"_$P(MUNT,D,2),$P(TXT(10),D,20)=1,TXT(11)=TSALREK_"\\\\1\"_$P(MUNT,D,2),$P(TXT(11),D,20)=1
	. I 'SWIAS S TXT(6)=$J(TOTD,0,$P(MUNT,D,2))_"\\\\1\"_$P(MUNT,D,2),TXT(7)=$J(TOTC,0,$P(MUNT,D,2))_"\\\\1\"_$P(MUNT,D,2),TSAL=TSAL+TOTD-TOTC,TSALREK=TSALREK+TOTD-TOTC I SWSAL S TXT(8)=TSAL_"\\\\1\"_$P(MUNT,D,2),$P(TXT(8),D,20)=1,TXT(9)=TSALREK_"\\\\1\"_$P(MUNT,D,2),$P(TXT(9),D,20)=1
	. I SWIAS S TXT(7)=" "
	. I 'SWIAS S TXT(5)=" "
	. S TOTM=$E($$DC^cAFD1(TOT),1,6),TOTCUM=$E(TOTM,1,4)_"."_$E(TOTM,5,6)
	. S REF="Cum. "_$P($T(@("T7"_QT)),U,$P(VANCUM,".",2)+1)_" "_$E($P(VANCUM,"."),3,4)_" - "_$P($T(@("T7"_QT)),U,$P(TOTCUM,".",2)+1)_" "_$E($P(TOTCUM,"."),3,4)
	. I SWIAS,SWSAL S TXT(12)=REF
	. I SWIAS,'SWSAL S TXT(10)=REF
	. I 'SWIAS,SWSAL S TXT(10)=REF
	. I 'SWIAS,'SWSAL S TXT(8)=REF
	. D FORM
	. S SWPRINT=1,SWPRARA=1
	. D ^cA334
	. S TOTD=0,TOTC=0
	; Indien met saldo: controleren of er geen saldo's meer moeten worden geprint
	I (SWSAL=1),OREK'="zzzzzzz" D JSAL
	; Controleren of alle beginsaldo's van alle IAS-rekeningen (of ARA) werden geprint.
37	S I3=""
	F  S I3=$O(^HULP(boot,$J+.02,I3)) Q:I3=""  D
	. S BSAL=^(I3)
	. I SWIAS F I=7:1:12 S TXT(I)=""
	. I 'SWIAS F I=5:1:12 S TXT(I)=""
	. I SWIAS S IASREK=$P(I3," ",3)_" " S TXT(5)=$S(IASREK="0 ":$P($$DUMMYREK^cTA180(Q,"",QTU),D),1:$$SIG^cAFA1(Q3,IASREK,101)),TXT(6)=$S(IASREK="0 ":$P($$DUMMYREK^cTA180(Q,"",QTU),D,2),1:$$SIG^cAFA1(Q3,IASREK,102))
	. S TXT($S(SWIAS:7,1:5))=$$DCO^cAFD1($P(I3," ",4)_"01")
	. I '$L($P(TXT($S(SWIAS:7,1:5)),D)) S TXT($S(SWIAS:7,1:5))=" "
	. ;  Bepalen muntcode en decimalen beginsaldo
	. S MNT=$$MNTC^cAFE1(Q,KJ)
	. S BSAL=$$OMREK(BSAL,MNT,MUNT)
	. S BSALDO1=BSAL,SWPRINT=0  ;  ,SWPRARA=1
	. S TSAL=BSAL
	. S SWP=0
	. D:(BSAL'=0) PSAL S:(SWSAL=1&$L(BSAL)) SWPRARA=1 S SWP=1
	I $G(SWVB) G YZ
	G 32
	;
4	S END=1 D ^cA334
	;
YZ	K ^HULP(boot,$J+.02) Q
	;
FORM	; bepalen formaat
	N I
	F I=1:1:12 S $P(TXT(I),D,20)=0
	I SWIAS S $P(TXT(7),D,20)=2
	I 'SWIAS S $P(TXT(5),D,20)=2
	I SWIAS F I=8:1:9 S $P(TXT(I),D,20)=1,$P(TXT(I),D,6)=$P(MUNT,D,2),$P(TXT(I),D,8)=1
	I 'SWIAS F I=6:1:7 S $P(TXT(I),D,20)=1,$P(TXT(I),D,6)=$P(MUNT,D,2),$P(TXT(I),D,8)=1
	I SWSAL,SWIAS S $P(TXT(10),D,20)=1,$P(TXT(11),D,20)=1
	I SWSAL,'SWIAS S $P(TXT(8),D,20)=1,$P(TXT(9),D,20)=1
FORMZ	Q
	;
JSAL	; Controle of saldo over volgende gekozen jaren niet moet worden geprint
	N EJAAR,TJAAR,J,I,BSAL
	S $ZT="TRAP^cAN000"
	I SWSAL'=1 Q
	S EJAAR=$$DC^cAFD1(TOT)
	S EJAAR=$E(EJAAR,1,4)_"."_$E(EJAAR,5,6)
	S EJAAR=$$BJ^cAFE1(Q,EJAAR)
	S TJAAR=$$BJ^cAFE1(Q,JAAR)
	I TJAAR<EJAAR D
	. F J=(TJAAR+1):1:EJAAR D
	.. ; S BSAL=$$SALDO^cTA180(Q,$S(SWKP:ARA,1:I1),$S(SWKP:I1,1:ARA),$S(SWIAS:OREK,1:""),KM1(J),"")
	.. S BSAL=$G(^HULP(boot,$J+.02,$P($S(SWKP:ARA,1:I1)," ")_" "_$P($S(SWKP:I1,1:ARA)," ")_" "_$P($S(SWIAS:OREK,1:$$REK^cTA180("",1))," ")_" "_$TR(KM1(J),".","")))
	.. K ^HULP(boot,$J+.02,$P($S(SWKP:ARA,1:I1)," ")_" "_$P($S(SWKP:I1,1:ARA)," ")_" "_$P($S(SWIAS:OREK,1:$$REK^cTA180("",1))," ")_" "_$TR(KM1(J),".",""))
	.. I BSAL="" S BSAL=0
	.. I SWIAS F I=7:1:12 S TXT(I)=""
 	.. I 'SWIAS F I=5:1:12 S TXT(I)=""
	.. ; Datum begin saldo
	.. I SWIAS S TXT(7)=$$DCO^cAFD1($TR(KM1(J),".","")_"01") I '$L($P(TXT(7),D)) S TXT(7)=" "
	.. I 'SWIAS S TXT(5)=$$DCO^cAFD1($TR(KM1(J),".","")_"01") I '$L($P(TXT(5),D)) S TXT(5)=" "
	.. I SWPRINT=0&(BSALDO1=BSAL) Q
	.. S SWPRINT=0
	.. S SWPRARA=1
	.. S BSALDO1=BSAL
	.. D PSAL 
JSALZ	Q
	;
NVEN(AR)	; Samenstellen analytisch niet geventileerd
	N ARA,I1,VANM,TOTM,MAAND,TOTD,TOTC,INH,VNR,TSAL,BSAL,IAS,I2,SWPSAL,SWPRINT,BSALDO1,VANCUM,TOTCUM,REF,OREK,OMSCH,TJAAR,VJAAR,OTSALREK
	S $ZT="TRAP^cAN000"
	;  Ophalen default analytische rek.
	S ARA=$$REK^cTA180(""),IAS=$$REK^cTA180("",1)
	S TABEL(ARA,IAS)=""
	S VANM=$E($$DC^cAFD1(VAN),1,6),VANCUM=$E(VANM,1,4)_"."_$E(VANM,5,6)
	S TOTM=$E($$DC^cAFD1(TOT),1,6),TOTCUM=$E(TOTM,1,4)_"."_$E(TOTM,5,6)
	; Invullen analytische rekening
	S OMSCH=$$DUMMYREK^cTA180(Q,"",QTU)
	S TXT($S(SWKP:1,1:3))=$S('$G(SWNA):ARA,1:$P(OMSCH,D))
	I '$L(TXT($S(SWKP:1,1:3))) S TXT($S(SWKP:1,1:3))=" "
	S TXT($S(SWKP:2,1:4))=$S('$G(SWNA):$$SIG^cAFA1("ARA",ARA,102),1:$P(OMSCH,D,2))
	I '$L(TXT($S(SWKP:2,1:4))) S TXT($S(SWKP:2,1:4))=" "
	; Invullen grootboekrekening
	S TXT($S(SWKP:3,1:1))=$$SIG^cAFA1("AR",AR,101)
	S TXT($S(SWKP:4,1:2))=$P(^(0),D,2)
	; IAS-rekening
	I SWIAS S OMSCH=$$DUMMYREK^cTA180(Q,1,QTU) S:'$L($P(OMSCH,D)) $P(OMSCH,D)=" " S:'$L($P(OMSCH,D,2)) $P(OMSCH,D,2)=" " S TXT(5)=$S('$G(SWNA):$S($L(IAS):IAS,1:" "),1:$P(OMSCH,D)),TXT(6)=$S('$G(SWNA):$S($L($$SIG^cAFA1("ARA",IAS,102)):$$SIG^cAFA1("ARA",IAS,102),1:" "),1:$P(OMSCH,D,2))
	I SWIAS S VNR=6
	I 'SWIAS S VNR=4
	S TSAL=0,SWPSAL=0
	; Opbouwen ^HULP(boot,$J+.02 met beginsaldo's
	K ^HULP(boot,$J+.02)
 	S K=$$SALDO^cTA180(Q,AR,ARA,"",$E(VANM,1,4)_"."_$E(VANM,5,6),3)
	S TJAAR=$$BJ^cAFE1(Q,$E(TOTM,1,4)_"."_$E(TOTM,5,6))
	S VJAAR=$$BJ^cAFE1(Q,$E(VANM,1,4)_"."_$E(VANM,5,6))
	I VJAAR<TJAAR D
	. F J=(VJAAR+1):1:TJAAR D
	.. S K=$$SALDO^cTA180(Q,AR,ARA,IAS,KM1(J),3)
	; Printen beginsaldo
	I SWSAL D
	. S JAAR=KM2(KJ)
	. ; S BSAL=$$SALDO^cTA180(Q,$S(SWKP:ARA,1:AR),$S(SWKP:AR,1:ARA),IAS,$E(VANM,1,4)_"."_$E(VANM,5,6),"")
	. S BSAL=$G(^HULP(boot,$J+.02,$P(AR," ")_" "_$P(ARA," ")_" "_$P(IAS," ")_" "_VANM))
	. K ^HULP(boot,$J+.02,$P(AR," ")_" "_$P(ARA," ")_" "_$P(IAS," ")_VANM)
	. I BSAL="" S BSAL=0
	. I SWIAS F I=8:1:12 S TXT(I)=""
	. I 'SWIAS F I=6:1:12 S TXT(I)=""
	. ;  Invullen datum
	. S TXT($S(SWIAS:7,1:5))=$$DCO^cAFD1(VANM_"01")
	. I '$L($P(TXT($S(SWIAS:7,1:5)),D)) S TXT($S(SWIAS:7,1:5))=" "
	. ;  Bepalen muntcode en decimalen beginsaldo
	. S MNT=$$MNTC^cAFE1(Q,KJ)
	. S BSAL=$$OMREK(BSAL,MNT,MUNT)
	.  ; Indien zonder beginsaldo --> beginsaldo op 0
	. I SWSAL=2 S BSAL=0
	. S TSALREK=TSALREK+BSAL
	. S BSALDO1=BSAL
	. S TSAL=BSAL
	. S SWP=0
	;  Aflopen cumuls AR-ARA voor alle maanden
	S MAAND=VANM,TOTD=0,TOTC=0,SWPRINT=0
NVANA	S I1=MAAND_" "_AR_ARA
	S I2=I1
	F  S I2=$O(^DBH(Q,"CUM.AR.ARA",I2)) Q:(($P(I2," ",1,3)_" ")'=I1)  D
	. S INH=^(I2,0)
	. I $P(INH,D,30) Q
	. S TOTD=TOTD+$P(INH,D,6),TSAL=TSAL+$P(INH,D,6),TSALREK=TSALREK+$P(INH,D,6)
	. S TOTC=TOTC+$P(INH,D,7),TSAL=TSAL-$P(INH,D,7),TSALREK=TSALREK-$P(INH,D,7)
	; Volgende maand
	S MAAND=MAAND+1
	I $E(MAAND,5,6)>12 S MAAND=$E(MAAND,1,4)+1_"01"
	I MAAND>TOTM G NVENY
	; Bij jaarovergang: printen saldo
	I (SWSAL=1),(($E(MAAND,1,4)_"."_$E(MAAND,5,6))>JAAR) D
	. I TOTD!(TOTC) D
	.. ; Samen stellen referte
	.. S REF="Cum. "_$P($T(@("T7"_QT)),U,$P(VANCUM,".",2)+1)_" "_$E($P(VANCUM,"."),3,4)_" - "_$P($T(@("T7"_QT)),U,$P(JAAR,".",2)+1)_" "_$E($P(JAAR,"."),3,4)
	.. S SWPRARA=1
	.. I ('SWPSAL&(SWSAL)) D
	... S OTSALREK=TSALREK
	... N TSAL,TSALREK
	... S TSALREK=OTSALREK-TOTD
	... S TSALREK=TSALREK+TOTC
	... D PSAL S SWP=1
	.. S TOTCUM=JAAR S SWPSAL=1 
	.. D PNVEN S SWPRINT=1
	. I SWP=0 D
	.. I 'ACT,(BSAL=0) Q
	.. D PSAL S SWP=1,SWPSAL=1
	. S TOTD=0,TOTC=0
	. ; Bepalen begindsaldo
	. ; S BSAL=$$SALDO^cTA180(Q,$S(SWKP:ARA,1:AR),$S(SWKP:AR,1:ARA),IAS,$E(MAAND,1,4)_"."_$E(MAAND,5,6),"")
	. S BSAL=$G(^HULP(boot,$J+.02,$P(AR," ")_" "_$P(ARA," ")_" "_$P(IAS," ")_" "_MAAND))
	. K ^HULP(boot,$J+.02,$P(AR," ")_" "_$P(ARA," ")_" "_$P(IAS," ")_" "_MAAND)
	. I BSAL="" S BSAL=0
	. ; KO - 15.07.04
	. I SWP=0,(BSAL'=BSALDO1) D PSAL S SWP=1,SWPSAL=1
	. ;  Bepalen muntcode en decimalen beginsaldo
	. S MNT=$$MNTC^cAFE1(Q,KJ)
	. S BSAL=$$OMREK(BSAL,MNT,MUNT)
	. S SALDO1=BSAL ; ,SWPRINT=0
	. S TSAL=BSAL
	. S JAAR=KM2($$BJ^cAFE1(Q,$E(MAAND,1,4)_"."_$E(MAAND,5,6)))
	. I SWPRINT=0&(BSAL=BSALDO1) S:(ACT) SWP=1 Q
	. S SWPRINT=0
	. I SWIAS F I=8:1:12 S TXT(I)=""
	. I 'SWIAS F I=6:1:12 S TXT(I)=""
	. ;  Invullen datum
	. S TXT($S(SWIAS:7,1:5))=$$DCO^cAFD1(MAAND_"01")
	. I '$L($P(TXT($S(SWIAS:7,1:5)),D)) S TXT($S(SWIAS:7,1:5))=" "
	. S VANCUM=$E(MAAND,1,4)_"."_$E(MAAND,5,6)
	. S SWPRARA=1,SWPSAL=1
	. D:(SWSAL) PSAL
	G NVANA
NVENY	I TOTD!(TOTC) D
	. ; Samenstellen referte
	. S TOTCUM=$E(TOTM,1,4)_"."_$E(TOTM,5,6)
	. S REF="Cum. "_$P($T(@("T7"_QT)),U,$P(VANCUM,".",2)+1)_" "_$E($P(VANCUM,"."),3,4)_" - "_$P($T(@("T7"_QT)),U,$P(TOTCUM,".",2)+1)_" "_$E($P(TOTCUM,"."),3,4)
	. S SWPRARA=1
	. I ('SWPSAL&(SWSAL=1)) D
	.. N TSAL
	.. I SWP=0 D PSAL S SWP=1
	. S SWPSAL=1 D PNVEN
	; Indien geen bewegingen en toch een beginsaldo: saldo printen
	I (SWSAL=1),('SWPSAL),(BSAL'=0) D PSAL S SWPSAL=1,SWPRARA=1
	; Indien met saldo: controleren of er geen saldo's meer moeten worden geprint
	I (SWSAL=1) D
	. N I1
	. S I1=AR
	. S OREK=IAS D JSAL
NVENZ	Q
	;
OMREK(R,MNT,MUNT)	; omrekenen bedragen
	Q $S($P(MNT,D)=$P(MUNT,D)!'R:R,1:$$OMREK^cAFE1(Q,R,$P(MNT,D),$P(MUNT,D),"A",$P(MUNT,D,2)))
	;
PNVEN	;  Printen analytisch niet geventileerd
	;  Invullen datum als " "
	S TXT($S(SWIAS:7,1:5))=" "
	I SWIAS S VNR=7
	I 'SWIAS S VNR=5
	; Debet
	S VNR=VNR+1,TXT(VNR)=TOTD_"\\\\1\"_$P(MUNT,D,2)_"\\1"
	; Credit
	S VNR=VNR+1,TXT(VNR)=TOTC_"\\\\1\"_$P(MUNT,D,2)_"\\1"
	; Saldo
	I SWSAL S VNR=VNR+1,TXT(VNR)=TSAL_"\\\\1\"_$P(MUNT,D,2),$P(TXT(VNR),D,20)=1
	; Saldo per rek
	I SWSAL S VNR=VNR+1,TXT(VNR)=TSALREK,$P(TXT(VNR),D,20)=1
	; Referte
	S VNR=VNR+1,TXT(VNR)=REF
	D FORM
	D ^cA334
PNVENZ	Q
	;
PSAL	; printen saldo
	I (SWSAL'=1)!'$L(BSAL) G PSALZ
	S SWPRARA=1
	N I2,i
	I SWIAS S TXT(10)=$J(BSAL,0,$P(MUNT,D,2))_"\\\\1\"_$P(MUNT,D,2) S $P(TXT(10),D,20)=1,$P(TXT(10),D,21)=1,TSAL=+TXT(10),TXT(11)=$J(TSALREK,0,$P(MUNT,D,2))_"\\\\1\"_$P(MUNT,D,2),$P(TXT(11),D,20)=1,$P(TXT(11),D,21)=1,TXT(12)=$P($T(@("T6"_QT)),U,2)
	I 'SWIAS S TXT(8)=$J(BSAL,0,$P(MUNT,D,2))_"\\\\1\"_$P(MUNT,D,2) S $P(TXT(8),D,20)=1,$P(TXT(8),D,21)=1,TSAL=+TXT(8),TXT(9)=$J(TSALREK,0,$P(MUNT,D,2))_"\\\\1\"_$P(MUNT,D,2),$P(TXT(9),D,20)=1,$P(TXT(9),D,21)=1,TXT(10)=$P($T(@("T6"_QT)),U,2)
	D FORM
	I '$G(SWVB) D ^cA334 Q
	S I2=0 D @BTEMP 
PSALZ	Q
	;
ZZ	; 15.12.05 - 12 u 16 * V8.05