cTN106	;Functies ivm maand- en jaarafsluiting ; cTN106
	;
T1	;Vennootschap;
	;
T1F	;Société;
	;
T1E	;Company;
	;
YZ	Q
	;
MA(Q,MT,OSW)	; Maandafsluiting (oud naar nieuw)
	; Input: Q:  Vennootschap
	;        MT: Af te sluiten maand
	;        OSW: 0,"", of onbestaande: opgeroepen via afsluiten boekingsmaand oude BH
	;             1: manueel opgeroepen
	;        
	N RZR,QUREF,OK,BJ
	;
	; Onthouden last reference
MAA	D S1^cAFA1
	;
	; Switch bestanden aftesten
MAB	I '$L($G(Q)) G MAY
	I $$PAR^cTN001(Q,201)'=1 G MAY
	;	
	; Vennootschapsreferentie opvragen
MAC	S QUREF=$P($$REF^cAFA10(Q,"Q"),D),UI1=Q  I '$L(QUREF) G MAY
	;
	; Vennootschap locken	
MAD	I '$$PLUS^cANLOCK(QUREF,"",$P($T(@("T1"_QT)),U,2),1-$G(OSW),0) G MAD
	;
	; Laatst afgesloten boekingsmaand wijzigen
MAE	D W^cAN220("Q","",UI1,210,MT)
	;
	; Laatst afgesloten boekjaar wijzigen
MAF	S BJ=$$BJ^cTN003(.Q,MT) I 'BJ G MAX
	I MT'=$$BM^cTN003(Q,BJ,1) G MAX ; Laatste boekingsmaand van het boekjaar?
	D W^cAN220("Q","",UI1,209,BJ)   ; Laatst afgesloten boekjaar
	;
	; Vennootschap unlocken
MAX	L -@QUREF
	;
	; Terugzetten last reference
MAY	D S2^cAFA1
	;
MAZ	Q
	;
	;
ZZ	; 29.08.07 - 10 u 22 * V8.09