cT480 ;Historiek kl/le ;%T48,%T49 ;%T48* ; [ 01/03/01  10:34 AM ]
 G 1
 ;
T0 ;Historiek kl/le ;
T1 ;Bijkomende selectie\"[] = enkel deze met bedragen   .[] = alle geselecteerde "_A;
T2 ;Historiek\"[] = op jaarbasis   .[] = op maandbasis";
T3 ;Jaartal\"jjjj[] = specifiek jaar   jjjj+[] = alle jaren vanaf jjjj   [] = ";
T4 ;  periode : ;
T5 ;Beginmaand\"jjjj.mm[] = specifieke maand   [] = ";
T6 ;Eindmaand\"jjjj.mm[] = specifieke maand   [] = zelfde maand";
T8 ;Omschrijving factuur/boeking\"[] = zonder omschrijving   .[] = met omschrijving";
T10 ;Lijst\"[] = doorlopende lijst   .[] = 1 "_A_" per blad";
T11 ;Muntcode\"[] = van de firma   .[] = van de documenten";
 ;
T0F ;Historique cl/fo ;
T1F ;Sélection additionnelle\"[] = seulement ceux avec montants   .[] = tous les "_A_" sélectionnés";
T2F ;Historique\"[] = annuelle   .[] = mensuelle";
T3F ;Année\"aaaa[] = année spécifique   aaaa+[] = année 'aaaa' et suivantes    [] = ";
T4F ;  période : ;
T5F ;Mois initial\"aaaa.mm[] = mois spécifique   [] = ";
T6F ;Mois final\"aaaa.mm[] = mois spécifique   [] = même mois";
T8F ;Description facture/imputation\"[] = sans description   .[] = avec description";
T10F ;Liste\"[] = liste continue   .[] = 1 "_A_" par page";
T11F ;Devise\"[] = de la société   .[] = des documents";
 ;
T0E ;History cu/su ;
T1E ;Extra selection\"[] = only those with amounts   .[] = all selected "_A;
T2E ;History\"[] = by year   .[] = by month";
T3E ;Year\"yyyy[] = specific year   yyyy+[] = all years as from yyyy   [] = ";
T4E ;   period : ;
T5E ;Initial month\"yyyy.mm[] = specific month   [] = ";
T6E ;Final month\"yyyy.mm[] = specific month   [] = same month";
T8E ;Description invoice/registration\"[] = without description   .[] = with description";
T10E ;Reports\"[] = continuous report   .[] = 1 "_A_" per page";
T11E ;Currency\"[] = from the firm   .[] = from the documents";
 ;
1 D ^cT489
11 I 'QP S LIM1=PP(1),LIM2=PP(2) D  F K=4:1:12 S @$P("\\\KEU\KJ\KM1\KM2\TP\PSW\ACT\TSW\VMSW",D,K)=PP(K) K PP(K)
 . S MUNT=PP(13)_D_PP(14)
13 G 6:'QP S BPA=BPA+.01 S:BPA#1=.13 BPA=BPA+.88 S BPA=$E(BPA_0,1,7)
19 I '$G(STOP4) S K=$P($P($T(@("T2"_QT)),U,2),D)_" "_$P(TEXT,D,2)_" "_QN_" ",FP=203+$L(K) W @F61,@F11,@F1,@F,@F5 S FP=202 W @F,@F4,K,@F5
 ;
 ; selectie KL/LE
2 S TXT=TEXT_D_1 D ^cA306 G YZ:K="-"
21 S A=$$LC^cAFA1($P(TEXT,D,2)),R="K\22\3\"_$P($T(@("T1"_QT)),U,2)_"\1\\""-,.""[K" D R0 G 2:K="-"!(K=",") S ACT=$L(K)
23 S (KM1,KM2)="",R="K\22\3\"_$P($T(@("T2"_QT)),U,2)_"\1\\""-,.""[K" D R0 S KEU=$L(K) G 21:K="-",2: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="-",2:K=",",25:K>J4
27 S:K="" KJ=BJ I KJ<J1 S K=+K S R=76 D F2 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="-",2: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="-",2: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 G 6:$G(STOP4) S R="K\22\3\"_$P($T(@("T11"_QT)),U,2)_"\1\\""-,.""[K" D R0 S VMSW=$L(K) G 23:K="-",2:K=","
40 S MUNT=BF I 'VMSW S MUNT=$$MNT^cAFE1(Q,$S(KJ:+KJ,1:$$BJ^cAFE1(Q,KM1)),1) G 4:K="-"
41 S TSW=0,PSW=1 D ^cA347 G 4:K="-",2:K="," S TP='PTS I 'TP G 6
 ;
 ; printer
5 S R="K\22\3\"_$P($T(@("T8"_QT)),U,2)_"\1\\""-,.""[K" D R0 S TSW=$L(K)*52 G 41:K="-",2:K=","
51 S A=$P(TEXT,D),A=$P(A," ",$L(A," ")),A=$$LC^cAFA1(A),R="K\22\3\"_$P($T(@("T10"_QT)),U,2)_"\1\\""-,.""[K" D R0 S PSW=$L(K) G 5:K="-",2:K=","
53 S R=TSW>0_D_('$L(LIM2)) D ^cA345 G 51:K="-",2:K="," I K="." D S9 K PP G 19
 ;
 ; gemeenschappelijk
6 S SW=0 I KJ["+" S KJ=+KJ,SW=1
61 S PARI=$S($P(TEXT,D,5)="KL":"V",1:"A") I '$G(STOP4) S QD=$P(MUNT,D,2)
 ;
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
 ;
F1 S R=250
F2 D TXT^cAFA1(R)
FZ K R Q
 ;
S9 S QPT=PROG F K=4:1:12 S PP(K)=@$P("\\\KEU\KJ\KM1\KM2\TP\PSW\ACT\TSW\VMSW",D,K)
S9Z S PP(13)=MUNT D ^cA109 Q
 ;
ZZ ; 05.02.01 - 16 u 23 * V7.84