cT92	;Parameters afsluiting en rapportering ;%T92 ; [ 01/04/01  2:12 PM ]
	G 1
	;
T0	;Parameters afsluiting en rapportering ;
T1	;Boekhoudkundig afgesloten maand;
T2	;Adm. afsluiting; aan- en verkoop; fin & div. verr.;
T3	;Administratief af te sluiten maand;jjjj.mm[] = af te sluiten maand voor ;aankoop & verkoop;financiële & diverse verrichtingen;
T4	;Bevestiging\".[] = ok   ,[] = hernemen";
T5	;Overzicht boekjaren;
T6	;Rapporteringsmaand\"ivm rapportering van de saldi";
T7	;Rapporteringsmunt;
	;
T0F	;Paramètres clôtures et rapportage ;
T1F	;Dernière clôture comptable;
T2F	;Clôture administr.; achats/ventes; financier/O.D.;
T3F	;Mois à clôturer administrativement;aaaa.mm[] = mois à clôturer pour l'encodage des ;achats & ventes;opérations fin. & div.;
T4F	;Confirmation\".[] = ok   ,[] = reprendre";
T5F	;Aperçu des exercices;
T6F	;Mois de rapportage\"pour le rapportage des soldes";
T7F	;Monn.de rapportage;
	;
T0E	;Settings closing and reporting ;
T1E	;Last closed month;
T2E	;Adm. closing; purchase/sale; fin & misc. trans.;
T3E	;Month to close administratively;yyyy.mm[] = month to close for ;purchase & sale;financial & miscellaneous transactions;
T4E	;Confirmation\".[] = ok   ,[] = retry";
T5E	;Survey fiscal years;
T6E	;Reporting month\"concerning reporting of the balance";
T7E	;Reporting currency;
	;
	; indeling boekjaren
S1	S BJ="",LIJN=5,I=0,KOLOM=0
S1A	S BJ=$O(KM1(BJ),-1) G S1Z:BJ="" S S1=KM1(BJ),S2=KM2(BJ) I S1[".99" G S1A
S1B	S I=I+1 I I>10,'KOLOM S LIJN=5 S KOLOM=1
S1C	W /CUP(LIJN,3+(KOLOM*40)),BJ," : ",S1," - ",S2," (",$P($$MNTC^cAFE1(Q,BJ),D),") " S LIJN=LIJN+1
S1D	G S1A
S1Z	K S1,S2 Q
	;
	; teksten op scherm
S3	W /CUP(17,2),@F6,$P($T(@("T2"_QT)),U,2),$P($T(@("T2"_QT)),U,3),@F9,/CUP(17,37),": " Q
S4	W /CUP(19,2),@F6,$P($P($T(@("T6"_QT)),U,2),D),@F9,/CUP(19,22),": " Q
S5	W /CUP(20,2),@F6,$P($T(@("T7"_QT)),U,2),@F9,/CUP(20,22),": " Q
S6	W /CUP(18,2),@F6,$P($T(@("T2"_QT)),U,2),$P($T(@("T2"_QT)),U,4),@F9,/CUP(18,37),": " Q
	;
	; gegevens tonen
1	W /CUP(1,1),@F1,/CUP(2,2),@F4,$P($T(@("T0"_QT)),U,2),QN," ",@F5
11	D ^cT489 S AM=@("^"_Q_"BA(25)"),PER=$G(^(7,0),BPA),PRR=$G(^(1),PER#1*100) I PER<BPA S PER=BPA
12	S PFD=$G(^(3),PER) I PFD<BPA S PFD=BPA
13	S BP0=DJ_"."_DM,RAP=$P(PRR,D,4) I 'RAP S RAP=3
14	W /CUP(4,2),@F6,$P($T(@("T5"_QT)),U,2),@F9,":",@F1 D S1
15	W /CUP(16,2),@F6,$P($T(@("T1"_QT)),U,2),@F9,/CUP(16,37),": ",BPA," ( +",+AM," => ",J3," )",@F1
16	D S3 W PER          ; man. afgesloten A&V
17	D S6 W PFD          ; man. afgesloten F&DV
18	D S4 W +PRR,@F1     ; rap. maand
19	D S5 W $$S1^cAFE6(RAP) S A(1)=PER_D_PFD_D_+PRR_D_RAP,B(1)=A(1)
	;
	; vraagstelling
2	S X=PER,R="X\22\3\"_$P($T(@("T3"_QT)),U,2)_$P($T(@("T2"_QT)),U,3)_"\C1\7\\K=""-""!($$JJJJMM^cAFI1(K)&(K'<BPA)&(K<BP0))\\\\\1" D R0 G YZ:K="-"
20	S $P(B(1),D)=X D S3 W X
21	S X=PFD,R="X\22\3\"_$P($T(@("T3"_QT)),U,2)_$P($T(@("T2"_QT)),U,4)_"\C2\7\\K=""-""!($$JJJJMM^cAFI1(K)&(K'<BPA)&(K<BP0))\\\\\1" D R0 G 2:K="-"
22	S $P(B(1),D,2)=X D S6 W X
23	S Y=+PRR,R="Y\22\3\"_$P($T(@("T6"_QT)),U,2)_"\2\\K=""-""!(K?.N&K&(K<13))\\\\\1" D R0 G 21:K="-"
24	S $P(B(1),D,3)=Y D S4 W +Y,@F2
25	S X=$P(B(1),D,4) D ^cAFE6(X) G 23:K="-"
26	S $P(B(1),D,4)=K D S5 W $$S1^cAFE6(K),@F2
27	S R="K\22\3\"_$P($T(@("T4"_QT)),U,2)_"\1\\""-,.""[K&$L(K)" D R0 G 25:K="-",2:K="," 
29	S PER=$P(B(1),D),PFD=$P(B(1),D,2),PRR=$E(100+Y,2,3),RAP=$P(B(1),D,4),@%Q1=0
	;
	; update prompt in ^DMA
3	S UQA=$$UQA("KL"),USA="KL",SW4=6,RUB="5\18\31\44\57" D S2
31	S UQA=$$UQA("KL"),USA="KL",SW4=7,RUB="5\18\31\44\57" D S2
33	S UQA=1,USA="KL.OMZET",SW4=3,RUB="5\18\31\44\57" D S2
35	S UQA=1,USA="KL.OMZET",SW4=4,RUB="5\18\31\44\57" D S2
	;
4	S UQA=$$UQA("LE"),USA="LE",SW4=6,RUB="5\18\31\44\57" D S2
41	S UQA=$$UQA("LE"),USA="LE",SW4=7,RUB="5\18\31\44\57" D S2
43	S UQA=1,USA="LE.OMZET",SW4=3,RUB="5\18\31\44\57" D S2
45	S UQA=1,USA="LE.OMZET",SW4=4,RUB="5\18\31\44\57" D S2
	;
5	S UQA=$$UQA("AR"),USA="AR",SW4=7,RUB="4\17\30\43\56" D S2
51	S UQA=$$UQA("AR"),USA="AR",SW4=8,RUB="4\17\30\43\56" D S2
53	S UQA=1,USA="AR.SALDO",SW4=6,RUB="4\17\30\43\56" D S2
55	S UQA=1,USA="AR.SALDO",SW4=7,RUB="4\17\30\43\56" D S2
	;
6	S UQA=$$UQA("AR"),USA="ARA",SW4=7,RUB="4\17\30\43\56" D S2
61	S UQA=$$UQA("AR"),USA="ARA",SW4=8,RUB="4\17\30\43\56" D S2
63	S UQA=1,USA="ARA.SALDO",SW4=6,RUB="4\17\30\43\56" D S2
65	S UQA=1,USA="ARA.SALDO",SW4=7,RUB="4\17\30\43\56" D S2
	;
7	I $D(@("^"_Q_"BA(""%T"",9)")),$L(^(9)) X ^(9)
	;
	; update
Y	S MNT=$$S1^cAFE6(RAP)
YA	S $P(@("^"_Q_"BA(7,0)"),D)=PER,^(3)=PFD
YB	S $P(^(1),D)=+PRR,$P(^(1),D,2)=$S(RAP=3:1,1:2),$P(^(1),D,3)=$P(MNT," ",2),$P(^(1),D,4)=RAP,@%Q1=1
YZ	Q
	;
R0	S $P(R,D,12)=$T(+0) D ^cAN1000 Q  ; v12 23.01.95
	;
	; commentaren
C1	W !?2,$P($T(@("T3"_QT)),U,3),$P($T(@("T3"_QT)),U,4) Q
C2	W !?2,$P($T(@("T3"_QT)),U,3),$P($T(@("T3"_QT)),U,5) Q
	;
	; update ^DMA
S2	F S1=1:1:$L(RUB,D) S S2=$P(RUB,D,S1) I S2 D
	. S N=$G(^DMA(UQA,USA,SW4,S2,1)) Q:N=""
	. F S3=1:1:$L(N,D) S P=$P(N,D,S3) D  S $P(N,D,S3)=P
	.. I P["|" S $P(P,"|",2)=PRR Q
	.. S P=PRR_$E(P,3,99)
	. S ^(1)=N
S2Z	K S1,S2,S3 Q
	;
UQA(DMS)	; Via de afwijkingen in ^DMS, ophalen UQA voor het wijzigen
	S R=$P($G(^DMS(Q,DMS,"DMA","R")),D)
	I R="" S R=0
UQAZ	Q R
	;
ZZ	; 25.04.06 - 15 u 44 * V8.07