cTA44	;Historiek analytische rekeningen ;%TA44 ;%TA44* ; [ 01/03/01  9:43 AM ]
	G 1
	;
T0	;Historiek analytische rekeningen ;
T1	;;Volgende rekening   [] = ok ;
T2	;Historiek\"[] = op jaarbasis   .[] = op maandbasis";
T3	;Jaartal\"jjjj[] = specifiek jaar   jjjj+[] = alle jaren vanaf jjjj   [] = ";
T4	;  Maanden : ;
T5	;Van maand\"jjjj.mm[] = specifieke maand   [] = ";
T6	;Tot maand\"jjjj.mm[] = specifieke maand   [] = zelfde maand";
T8	;Omschrijving klant/leverancier\"[] = zonder omschrijving   .[] = met omschrijving";
T11	;Historiek analytische rekeningen;
T12	;Lijst\"[] = doorlopende lijst   .[] = 1 rekening per blad";
T13	;Bijkomende selectie\"[] = enkel rekeningen met bedragen   .[] = alle geselecteerde rekeningen";
T14	;Saldo\"[] = niet weergeven   .[] = weergeven";
	;
T0F	;Historique comptes analytiques ;
T1F	;;Compte suivant   [] = ok ;
T2F	;Historique\"[] = annuelle   .[] = mensuelle";
T3F	;Année\"aaaa[] = année spécifique   aaaa+[] = annéé 'aaaa' et suivantes   [] = ";
T4F	;  Mois : ;
T5F	;Mois initiale\"aaaa.mm[] = mois spécifique   [] = ";
T6F	;Mois finale\"aaaa.mm[] = mois spécifique   [] = même mois";
T8F	;Description client/fournisseur\"[] = sans description   .[] = avec description";
T11F	;Historique comptes analytiques;
T12F	;Liste\"[] = liste continue   .[] = 1 compte par feuille";
T13F	;Sélection additionnelle\"[] = uniquement comptes avec cumuls   .[] = tous les comptes sélectionnés";
T14F	;Solde\"[] = ne pas reprendre   .[] = reprendre";
	;
T0E	;History of analytical accounts ;
T1E	;;Next account   [] = ok ;
T2E	;History\"[] = by year   .[] = by month";
T3E	;Year\"yyyy[] = particular year   yyyy+[] = all years from yyyy   [] = ";
T4E	;  Months : ;
T5E	;From month\"yyyy.mm[] = specific month   [] = ";
T6E	;Until month\"yyyy.mm[] = specific month   [] = same month";
T8E	;Description customer/supplierr\"[] = without description   .[] = with description";
T11E	;History analytical accounts;
T12E	;Report\"[] = continuous report   .[] = 1 account per page";
T13E	;Extra selection\"[] = only accounts with amounts   .[] = all selected accounts";
T14E	;Balance\"[] = don't mention   .[] = mention";
	;
	; initialisatie
1	K ^HULP(boot,$J) D ^cT489
11	S BPA=BPA+.01 S:BPA#1=.13 BPA=BPA+.88 S BPA=$E(BPA_0,1,7)
	; titel
19	D T^cA612($P($T(@("T0"_QT)),U,2),2,0,7,1,1)
	;
	; vraagstelling
2	D ^cAN003(4,"ARA") G YZ:K="-"
21	S R="ACT\22\3\"_$P($T(@("T13"_QT)),U,2)_"\1\\""-.""[K" D R0 G 2:K="-" S ACT=$L(K)
23	S (KM1,KM2)="",R="KEU\22\3\"_$P($T(@("T2"_QT)),U,2)_"\1\\""-.""[K" D R0 S KEU=$L(K) G 21:K="-",3:KEU
25	S R="KJ\22\3\"_$P($T(@("T3"_QT)),U,2)_"_BJ\5\\""-""[K!(K?4N.""+"")" D R0 G 23:K="-",25:K>J4
27	S:K="" KJ=BJ I KJ<J1 S K=+K D TXT^cAFA1(76) G 25
29	S FP=460 W @F,$P($T(@("T4"_QT)),U,2),KJ,@F2 S FP=560 W @F,@F2 G 4
	;
	; van maand / tot maand
3	S KJ="",R="KM1\22\3\"_$P($T(@("T5"_QT)),U,2)_"_BPA\7\PCTR1" D R0 G 23:K="-"
31	S:K="" KM1=BPA S FP=460 W @F,$P($T(@("T4"_QT)),U,2),KM1,@F2
33	S R="KM2\22\3\"_$P($T(@("T6"_QT)),U,2)_"\7\PCTR2" D R0 G 3:K="-"
35	S:K="" KM2=KM1 S FP=560 W @F,$J("",$L($P($T(@("T4"_QT)),U,2))),KM2,@F2
	;
	; muntcode / scherm / printer
4	S MUNT=$$MNT^cAFE1(Q,$S(KJ:+KJ,1:$$BJ^cAFE1(Q,KM1)),1) G 23:K="-" S QD=$P(MUNT,D,2)
	; S TSW=0,PSW=1 D ^cA347 G 41:K="-",2:K="," S TP='PTS I 'TP G 6
41	S TSW=0,PSW=1 D ^cAN3223("","1#2#4#5","","") G 4:K="-",2:K="," S TP='PTS
	I 'TP G 55
	;
	; printer
5	S R="TSW\22\3\"_$P($T(@("T8"_QT)),U,2)_"\1\\""-.""[K" D R0 S TSW=$L(K)*52 G 4:K="-"
51	S R="PSW\22\3\"_$P($T(@("T12"_QT)),U,2)_"\1\\""-.""[K" D R0 S PSW=$L(K) G 5:K="-"
53	; S R=TSW>0_D_1 D ^cA345 G 51:K="-",2:K=","
	;
	;  Printen saldo?
55	I PTS=3 S SWSAL=1 G 6
	I PTS'=4 G 6
56	S R="K\22\3\"_$P($T(@("T14"_QT)),U,2)_"\1\\""-,.""[K" D R0 G 41:K="-",2:K=","
57	S SWSAL=$L(K)
	;
	; gemeenschappelijk
6	S SW=0 I KJ["+" S KJ=+KJ,SW=1
61	S Q0="^"_Q_"ARA(I1)",Q01="^"_Q_"ARA(I1,I4)",U9=$P($T(@("T11"_QT)),U,2),Q71="^"_Q_"VE(BP,A1)",Q61="^"_Q_"AA(BP,A1)"
63	S Q95="^"_Q_"FI(BP,$P(A1,""#""),$P(A1,""#"",2))",TXT="\ARA\"_$P($T(@("T1"_QT)),U,3)
	I PTS=4!(PTS=3) D ^cT483 G YZ
65	S FP=2201 W @F,@F1 D ^cTA440 W /CUP(1,1),@F1 G 19
	;
YZ	Q
	;
PCTR1	;"-"[K!(K?4N1"."2N&(K'<KM1(J1))&(K'>J3)&(K#1)&(K#1<.13))
PCTR2	;"-"[K!(K?4N1"."2N&(K'<KM1)&(K'>J3)&(K#1)&(K#1<.13))
	;
R0	S $P(R,D,12)=$T(+0) D ^cAN1000 Q  ; v12 23.01.95
	;
ZZ	; 04.11.04 - 10 u 11 * V8.02