cTN999 	; Eénmalige conversieprogramma's oude structuur naar nieuwe structuur ; cTN999
	;
YZ	Q
 	;
JRN(Q,TYPE)	; Eénmalige conversie van de journalen
	; Input: Q: Vennootschap (als ref. doorgeven : .Q)
	; 	 TYPE: "": Alle journalen
	; 	        A: Aankoop
	; 	        V: Verkoop
	; 	        D: Divers
	; 	        F: Financieel
	; 	        E: Analytisch
	N JRN,UREF,UI1,B,UFU,c
	S $ZT="TRAP^cAN000"
	;
JRN1	I '$L($G(TYPE)) S TYPE="AVDEF"
	S TYPE=" "_TYPE
	;
JRN2	S TYPE=$E(TYPE,2,99) I '$L(TYPE)!(TYPE="F") G JRN4
	S JRN=$E(TYPE) S JRN=$O(@("^"_$$Q^cAFA10()_"BA(""%T"",JRN)"),-1),c=0
JRN3	S JRN=$O(@("^"_$$Q^cAFA10()_"BA(""%T"",JRN)")) I $E(JRN)'=$E(TYPE) G JRN35
	W !,JRN S c=c+1
	D JRN^cTN901(.Q,JRN)
	G JRN3
	; Minstens één (default) journaal per type opzetten
JRN35	I c=0 W !,$E(TYPE) D JRN^cTN901(.Q,$E(TYPE),"Algemeen")
	G JRN2
	;
	; Financieel
JRN4	I TYPE'="F" G JRNZ
	;
	; Alle rekening doorlopen en financiele journalen opzetten
	S UREF=$P($$REF^cAFA10(.Q,"AR"),D) I '$L(UREF) G JRNZ
	S UI1=0 
JRN5	S UI1=$O(@UREF) I '$L(UI1) G JRNZ
	S B(1)=^(UI1,0),B(2)=^(1) 
	I $P(B(1),D,30)=2 G JRN5       ; Verwijderde niet meenemen (BG wel)
	I '$L($P(B(1),D,10)) G JRN5    ; Geen afkorting ingevuld
	W !,UI1,$P(B(1),D,10)
	D
	. N UI1
	. S UI1=$P(B(1),D,48)  ; intern nr AR.A
	. S UFU="O" D JRNAR^cTN201(UI1) ; Financieel journaal opzetten
	G JRN5
	;
JRNZ	Q
	;
ZZ	; 29.08.07 - 10 u 22 * V8.09