cTA182(SWIAS)	;Printen beginsaldi; cTA182  ; Compiled December 8, 2011 12:06:22
	;
T0	;Printen beginsaldi;
T1	;Boekjaar\"JJJJ[] = specifiek jaar   [] = ";
T2	;Beginsaldi ;
T3	; Nummer\ Naam van de rekening\ Nummer\ Naam van de anal.rekening\; Nummer\ Naam van de IAS rekening\; Beginsaldo;\ Boekjaar;
	;
T0F	;Imprimer soldes initiaux;
T1F	;Année comptable\"AAAA[] = année spécifique   [] = ";
T2F	;Solde initial ;
T3F	; Numéro\ Nom compte du gr.-livre\ Numéro\ Nom du compte anal.\; Numéro\ Nom du compte IAS\; Solde initial;\ Année comptable;
	;
T0E	;Print initial balances;
T1E	;Fiscal year\"YYYY[] = particular year   [] = ";
T2E	;Initial balance ;
T3E	; Number\ General Account Name\ Number\ Anal.Account Name\; Number\ IAS Account Name\; Init. balance;\ Fiscal year;
	;
1	D P^cA612(2,1,20,80,1,0,0,0,$P($T(@("T0"_QT)),U,2),0,0,7,1,1)
	; Indien Switch IAS opstaat wordt er overgegaan naar corresponderende Q-waarde van de IAS firma
11 	I '$G(SWIAS) S OQ=Q S Q=$E(Q,2,$L(Q))
	;  Ophalen gegevens boekjaar
13	D ^cT489 S BOEKJR=BJ I BOEKJR<$$STARTJR^cTA180(Q) S BOEKJR=$$STARTJR^cTA180(Q)
15	S MAXJR=BOEKJR
	S BJR=BOEKJR G 19
	;  Vraagstelling boekjaar
17	S R="BJR\22\3\"_$P($T(@("T1"_QT)),U,2)_"_BOEKJR\4\\""-""[K!(K?4N&$L(K)&(K>2003)&(K'>MAXJR))\\\\\1" D R0 G Y:K="-"
18	I BJR="" S BJR=BOEKJR
19	W /CUP(2,2),@F6,$P($P($T(@("T1"_QT)),U,2),D),@F9," : "_BJR	
	;
	;  Vraagstelling grootboekrekening
2	D ^cAN003(4,"AR")
21	I K="-" G 17
	;  Vraagstelling printerkeuze
23	D ^cAN3223("","1#2#4#5","") I K="-" G 2
	;
	; Opzetten definities lijst
3	S HD(1)=D,HD(2)=D_$P($T(@("T2"_QT)),U,2)_BJR_";C;F82",HD(3)=D
31	S TIT(1)=$P($T(@("T3"_QT)),U,2)
33	I $P(@("^"_Q_"BA(300)"),D,8) S TIT(1)=TIT(1)_$P($T(@("T3"_QT)),U,3)
35	S TIT(1)=TIT(1)_$P($T(@("T3"_QT)),U,4)
36	I $G(PTS)=3!($G(PTS)=4) S TIT(1)=TIT(1)_$P($T(@("T3"_QT)),U,5)
37	I PTS'=1,$P($G(@("^"_Q_"BA(300)")),D,8) S TAB="8\37\45\74\82\111\126"
	I PTS=1,$P($G(@("^"_Q_"BA(300)")),D,8) S TAB="8\33\41\65\73\98\113"
38	I PTS'=1,'$P($G(@("^"_Q_"BA(300)")),D,8) S TAB="8\37\45\74\91"
	I PTS=1,'$P($G(@("^"_Q_"BA(300)")),D,8) S TAB="8\33\41\65\80"
39	I $G(PTS)=3!($G(PTS)=4) S TAB=TAB_"\"_($P(TAB,"\",$L(TAB,"\"))+4)
	;
4	K ^TEMP(boot,$J)
41	S BR=""
43	D ^cAN004("BR","AR") I BR="" G 5
45	S I1=BJR_"00"_" "_BR
47	F  S I1=$O(^DBH(Q,"CUM.AR.ARA",I1)) Q:$P(I1," ",1,2)'=(BJR_"00"_" "_$P(BR," "))  D
	. S INH=^(I1,0)
	. I $P(INH,D,30) Q
	. S TXT(1)=$P(INH,D)
	. S TXT(2)=$$SIG^cAFA1("AR",$P(INH,D),102)
	. ; Omschrijving uit anal. rek. halen
	. S OMS=$P(INH,D,2)_D_$$SIG^cAFA1("ARA",$P(INH,D,2),102)
	. ; Indien dummy-rek uit de parameters: ophalen rekening en omschrijving
	. I $P($P(INH,D,2)," ")=0,('$L($G(^DPAR(Q,"PAR","ARA",0)))) S OMS=$$DUMMYREK^cTA180(Q,"",QTU) 
	. ; I '$D(@("^"_Q_"ARA($P(INH,D,2))")),($P(INH,D,2)=$$REK^cTA180("")) S OMS=$$DUMMYREK^cTA180(Q,"",QTU) 
	. S TXT(3)=$P(OMS,D)
	. S TXT(4)=$P(OMS,D,2)
	. S VNR=4
	. I $P($G(@("^"_Q_"BA(300)")),D,8) D
	.. S OMS=$P(INH,D,3)_D_$$SIG^cAFA1("ARA",$P(INH,D,3),102)
	.. I $P($P(INH,D,3)," ")=0,('$L($G(^DPAR(Q,"PAR","IAS",0)))) S OMS=$$DUMMYREK^cTA180(Q,1,QTU)
	.. ; I '$D(@("^"_Q_"ARA($P(INH,D,3))")),($P(INH,D,3)=$$REK^cTA180("",1)) S OMS=$$DUMMYREK^cTA180(Q,1,QTU) 
	.. S VNR=VNR+1,TXT(VNR)=$P(OMS,D)
	.. S VNR=VNR+1,TXT(VNR)=$P(OMS,D,2)
	. S VNR=VNR+1,TXT(VNR)=$P(INH,D,10)_"\\\\1\"_QD
	. I $G(PTS)=3!($G(PTS)=4) S VNR=VNR+1,TXT(VNR)=BJR
	. D ^cA334
48	G 43
	;
5	S END=1 D ^cA334
	;
	;
Y	I '$G(SWIAS) S Q=OQ
YZ	D C^cA612 Q
	;
R0	S $P(R,D,12)=$T(+0) D ^cAN1000 Q  ; v12 23.01.95
	;
ZZ	; 23.06.05 - 17 u 03 * V8.04