cTN002	; Algemene functies DBH ; cTN002
	;
T1	;Journaal;Boekjaar; niet doorgegeven.;
T2	;Journaal onbekend.;Journaal ; is buiten gebruik.;
T3	;Journaal ;, boekjaar ; : geen documentnummers gedefinieerd.;
T4	; : alle documentnummers opgebruikt.;
T5	; : documentnummer ; reeds gebruikt.;
T6	; : documentnummer kan niet opgehoogd worden.;
T7	; : gegevens;
	;
T1F	;Journaal;Boekjaar; niet doorgegeven.;
T2F	;Journaal onbekend.;Journaal ; is buiten gebruik.;
T3F	;Journaal ;, boekjaar ; : geen documentnummers gedefinieerd.;
T4F	; : alle documentnummers opgebruikt.;
T5F	; : documentnummer ; reeds gebruikt.;
T6F	; : documentnummer kan niet opgehoogd worden.;
T7F	; : gegevens;
	;
T1E	;Journaal;Boekjaar; niet doorgegeven.;
T2E	;Journaal onbekend.;Journaal ; is buiten gebruik.;
T3E	;Journaal ;, boekjaar ; : geen documentnummers gedefinieerd.;
T4E	; : alle documentnummers opgebruikt.;
T5E	; : documentnummer ; reeds gebruikt.;
T6E	; : documentnummer kan niet opgehoogd worden.;
T7E	; : gegevens;
	;
YZ	Q
	;
	;
FNR(Q,JRN,BJ,PAR)	
	; Q    : door te geven als referentie : .Q
	; JRN  : UI1 journaal
	; BJ   : Boekjaar : JJJJ (indien JJJJ.MM wordt BJ berekend)
	; PAR  : parameters
	;        1. 1 = niet bijwerken volgend factuurnummer
	;        2. 1 = niet controleren of factuur reeds gebruikt is.
	;        3. 0 = GUI
	;           1 = via reflection
	;        
FNRA	N FNR,BJRN,MSG,B,RJRN,RZR,US
	S $ZT="TRAP^cAN000"
	D S1^cAFE1
	S PAR=$G(PAR)
	I BJ["." S BJ=$$BJ^cAFE1($$Q^cAFA10(),BJ)
	I '$L($G(JRN)) S FNR="0\"_$P($T(@("T1"_QT)),U,2)_$P($T(@("T1"_QT)),U,4) G FNRZ
	I '$G(BJ) S FNR="0\"_$P($T(@("T1"_QT)),U,3)_$P($T(@("T1"_QT)),U,4) G FNRZ
	I '$L($$SIGN^cAFA1("JRN",JRN,0)) S FNR="0\"_$P($T(@("T2"_QT)),U,2) G FNRZ
	S BJRN=^(0)
	I $P(BJRN,D,30) S FNR="0\"_$P($T(@("T2"_QT)),U,3)_$P(BJRN,D)_$P($T(@("T2"_QT)),U,4) G FNRZ  ; journaal BG
	S MSG=$P($T(@("T3"_QT)),U,2)_$P(BJRN,D)_$P($T(@("T3"_QT)),U,3)_BJ
	I '$L($$SIGN^cAFA1("DOCNR",JRN_" "_BJ,0)) S FNR="0\"_MSG_$P($T(@("T3"_QT)),U,4) G FNRZ
	S B=^(0),RJRN=$NA(@$ZR,3)
FNRB	I '$P(PAR,D) S FNR=$$PLUS^cANLOCK(RJRN,,MSG_$P($T(@("T7"_QT)),U,2),0,$S('$P(PAR,D,3):2,1:0)) I 'FNR G FNRZ  ; locken
FNRC	S FNR=$P(B,D,5)               ; eerstvolgend
	I '$L(FNR) S FNR=$P(B,D,4)    ; eerst gedefinieerd
	I '$L(FNR) S FNR="0\"_MSG_$P($T(@("T3"_QT)),U,4) G FNRY
FNRD	I $L($P(B,D,4)),(FNR>$P(B,D,4)) S FNR="0\"_MSG_$P($T(@("T4"_QT)),U,2) G FNRY  ; groter dan eindfactuurnummer
	I $P(PAR,D,2) G FNRX
	; controle of factuur reeds gebruikt werd
FNRE	I $$UI1OP^cAFA1("DB","M4","",$$Q^cAFA10(),$P(BJRN,D,4),FNR) S FNR="0\"_MSG_$P($T(@("T5"_QT)),U,2)_FNR_$P($T(@("T5"_QT)),U,3) G FNRY
	I $P(BJRN,D,4)'="V" G FNRX
	; indien verkoop : factuurbestand
	S US=""
FNRF	S US=$O(@("^"_$$Q^cAFA10()_"FA(US)")) G FNRX:US=""
	I $D(^(US,FNR)) S FNR="0\"_MSG_$P($T(@("T5"_QT)),U,2)_FNR_$P($T(@("T5"_QT)),U,3) G FNRY
	G FNRF
FNRX	I '$P(PAR,D) D W^cAN220("DOCNR","",JRN_" "_BJ,105,FNR+1) I K="-" S FNR="0\"_MSG_$P($T(@("T6"_QT)),U,2) G FNRY
FNRY	I '$P(PAR,D) L -@RJRN
FNRZ	D S2^cAFE1 Q FNR
	;
GETFNR(JRNL,BJ)	; ophalen factuurnr vanuit VB : zonder test op reeds bestaand en niet bijwerken volgend
	; JRN  : UI1 journaal
	; BJ   : Boekjaar : JJJJ (indien JJJJ.MM wordt .MM eraf gedaan)
	S $ZT="^dmERROR"
GETFNRZ	Q $$FNR(.Q,JRNL,BJ,"1\1\0")
	;
ZZ	; 29.08.07 - 10 u 22 * V8.09