cT167	;Beheer parameters boekhouding ;%T167 ; [ 06/18/01  5:49 PM ]
	G 1
	;
T0	;Beheer parameters boekhouding;
	;
T0F	;Gestion paramètres comptables;
	;
T0E	;Settings accounting;
	; 
	; Titel + locken
1	D P^cA612(2,1,20,80,1,1,1,1,$P($T(@("T0"_QT)),U,2),0,0,7,1,1)
	; KO - 18.09.08 - Indien ook nieuwe boekhouding: locken ^DATA(,"Q"
	; I '$$LOCKFRM^cTN901(Q) G YZ
	I '$$TESTQ G 11
	S REFQ=$P($$REF^cAFA10(Q,"Q"),D)
	S REFQ=$$REPL^cAFA10(REFQ,"UI1","UI1Q")
	S UI1Q=Q
	L +@REFQ:2 E  D TXT^cAFA1(14) G YZ
11	L +@("^"_Q_"BA(39)"):2 E  D TXT^cAFA1(14) G Y6
	L +@("^"_Q_"BA(25)"):2 E  D TXT^cAFA1(14) G Y5
	L +@("^"_Q_"BA(33)"):2 E  D TXT^cAFA1(14) G Y4
	L +@("^"_Q_"BA(74)"):2 E  D TXT^cAFA1(14) G Y3
	L +@("^"_Q_"BA")@("%T",2):2 E  D TXT^cAFA1(14) G Y2
	L +@("^"_Q_"BA")@("%T",13):2 E  D TXT^cAFA1(14) G Y1
	;
	; kopiëren parameters naar ^DPAR
2	L +^DPAR(0,"PAR","BH"):2 E  D TXT^cAFA1(14) G Y
	S ^DPAR(0,"PAR","BH",0)="BH\Boekhouding"
	S $P(^(0),D,12)="Comptabilité"
	S $P(^(0),D,22)="?D?"
	S $P(^(0),D,32)="Accounting"
	S ^DPAR(0,"PAR","BH",1)=$G(@("^"_Q_"BA(25)"))
	S ^DPAR(0,"PAR","BH",2)=$G(@("^"_Q_"BA(33)"))
	S ^DPAR(0,"PAR","BH",3)=$G(@("^"_Q_"BA(74)"))
	S ^DPAR(0,"PAR","BH",4)=$G(@("^"_Q_"BA(""%T"",2)"))
	S ^DPAR(0,"PAR","BH",5)=$G(@("^"_Q_"BA(39)"))
	S J=$G(@("^"_Q_"BA")@("%T",13,"J"),"A:\BTW.TVA")
	S K=$G(@("^"_Q_"BA")@("%T",13,"K"),"A:\BTW.TVA")
	S L=$G(@("^"_Q_"BA")@("%T",13,"E"),"A:\BTW.TVA") ; KD - 25.06.07
	S M=$G(@("^"_Q_"BA")@("%T",13,"E",1))
	S ^DPAR(0,"PAR","BH",6)=$TR($P(J,D,1,$L(J,D)-1),D,"/") ; jaarlisting
	S $P(^(6),D,2)=$P(J,D,$L(J,D))                         ; filename
	S $P(^(6),D,3)=$TR($P(K,D,1,$L(K,D)-1),D,"/")          ; kwartaalopgave
	S $P(^(6),D,4)=$P(K,D,$L(K,D))                         ; filename
	S $P(^(8),D,1)=$TR($P(L,D,1,$L(L,D)-1),D,"/")          ; electronische aangifte 25.06.07
	S $P(^(8),D,2)=$P(L,D,$L(L,D))                         ; filename
	S $P(^(8),D,3)=$P(M,D,2)				 ; Postcode
	S J=$G(@("^"_Q_"BA")@("%T",13,"J",1))
	S K=$G(@("^"_Q_"BA")@("%T",13,"K",1))	
	S $P(^DPAR(0,"PAR","BH",7),D)=$P(J,D)   ; Contactpersoon jaarlisting
	S $P(^(7),D,2)=$P(J,D,2)                ; Telefoon jaarlisting
	S $P(^(7),D,3)=$P(K,D)                  ; Contactpersoon kwartaalopgave
	S $P(^(7),D,4)=$P(K,D,2)                ; Telefoon kwartaalopgave
	S $P(^(7),D,5)=$P(J,D,3)                ; E-mail adres jaarlisting
	S $P(^(7),D,6)=$P(K,D,3)                ; E-mail adres kwartaalopgave
	;S E=$TR($G(@("^"_Q_"BA")@("%T",13,"E"),"A:\"),D,"/") ; KD - 26.06.07
	;S $P(^DPAR(0,"PAR","BH",8),D)=E ; KD - 26.06.07
	I '$$TESTQ G 3  ; geen licentie
	S $P(^DPAR(0,"PAR","BH",8),D,4)=$$SIG^cAFA1("Q",Q,265)    ; Default map voor maandafsluiting
	S $P(^DPAR(0,"PAR","BH",8),D,5)=$$SIG^cAFA1("Q",Q,1001)   ; Default map voor PDF bestand
	;
	; V6 met logging v/d wijzigingen
3	N UQA,USA S UQA=0,USA="PAR.BH"
	D W^cAN200(USA,UQA,"",0,"S UI1=""BH""")
	;
	; kopiëren parameters uit ^DPAR
4	S @("^"_Q_"BA(25)")=^DPAR(0,"PAR","BH",1)
	S @("^"_Q_"BA(33)")=^DPAR(0,"PAR","BH",2)
	S @("^"_Q_"BA(74)")=^DPAR(0,"PAR","BH",3)
	S @("^"_Q_"BA(""%T"",2)")=^DPAR(0,"PAR","BH",4) L -^DPAR(0,"PAR","BH")
	S $P(@("^"_Q_"BA(39)"),D,12)=$P(^DPAR(0,"PAR","BH",5),D,12) ; P5
	S J=$TR($P(^DPAR(0,"PAR","BH",6),D,1,2),"/",D)         ; jaarlisting
	S K=$TR($P(^(6),D,3,4),"/",D)                          ; kwartaalopgave
	S L=$TR($P(^(8),D,1,2),"/",D)                          ; electronische aangifte (KD - 25.06.07)
	S M=$P(^(8),D,3)
	S I=$E(J),J=$E(J,2,$L(J))
41	I J["\\" S J=$P(J,"\\")_D_$P(J,"\\",2,99) G 41
	S J=I_J
	S I=$E(K),K=$E(K,2,$L(K))
42	I K["\\" S K=$P(K,"\\")_D_$P(K,"\\",2,99) G 42
	S K=I_K
	S I=$E(L),L=$E(L,2,$L(L))
43	I L["\\" S L=$P(L,"\\")_D_$P(L,"\\",2,99) G 43
	S L=I_L
	S @("^"_Q_"BA")@("%T",13,"J")=J,^("K")=K,^("E")=L,$P(^("E",1),D,2)=M
	;S @("^"_Q_"BA")@("%T",13,"E")=$TR($P(^DPAR(0,"PAR","BH",8),D),"/",D)  ; KD - 25.06.07
	S J=$P(^DPAR(0,"PAR","BH",7),D,1,2)
	S K=$P(^DPAR(0,"PAR","BH",7),D,3,4)
	S @("^"_Q_"BA")@("%T",13,"J",1)=J
	S @("^"_Q_"BA")@("%T",13,"K",1)=K
	S $P(@("^"_Q_"BA(""%T"",13,""J"",1)"),D,3)=$P(^DPAR(0,"PAR","BH",7),D,5)
	S $P(@("^"_Q_"BA(""%T"",13,""K"",1)"),D,3)=$P(^DPAR(0,"PAR","BH",7),D,6)
	I '$$TESTQ G Y
	K TAB
         S TAB(265)=$P(^DPAR(0,"PAR","BH",8),D,4)
         S TAB(1001)=$P(^DPAR(0,"PAR","BH",8),D,5)
         D B^cAN220("Q","",Q,"TAB")
	;
	; einde
Y	L -@("^"_Q_"BA")@("%T",13)
Y1	L -@("^"_Q_"BA")@("%T",2)
Y2	L -@("^"_Q_"BA(74)")
Y3	L -@("^"_Q_"BA(33)")
Y4	L -@("^"_Q_"BA(25)")
Y5	L -@("^"_Q_"BA(39)")
	; KO - 18.09.08 - Indien ook nieuwe boekhouding: gegevens overzetten naar ^DATA(,"Q"
Y6	; S OK=$$PARBH^cTN901(Q,2)
	I $L($G(REFQ)) L -@REFQ
YZ	D C^cA612 Q
	;
PADPDF(PAD)	; Testen of ingegeven pad niet gelijk is aan pad BH
	N R
	S $ZT="TRAP^cAN000"
	S R=1
	I '$L(PAD) G PADPFZ
	I PAD=$P(B(9),D,4) S R=0
PADPFZ	Q R 
	;
TESTQ()	; Testen of ^DATA(,"Q" bestaat
	N UQCQ,USCQ,R
	S $ZT="TRAP^cAN000"
	S R=1
	D DMS^cAN000("UQCQ","USCQ","Q",1) I '$L(UQCQ)!'$L(USCQ) S R=0  ; geen licentie
TESTQZ	Q R
	;
ZZ	; 04.08.08 - 17 u 33 * V9.02