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) 
 L +@("^"_Q_"BA(39)"):2 E  D TXT^cAFA1(14) G YZ
 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 ^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
 ;
 ; 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 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 @("^"_Q_"BA")@("%T",13,"J")=J,^("K")=K
 ;
 ; 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)")
YZ D C^cA612 Q
 ;
ZZ ; 06.08.01 - 17 u 28 * V7.87