cT44 ;Historiek grootboekrekeningen ;%T44 ;do naar %T57 ; [ 01/11/01 10:37 AM ] G 1 ; T0 ;Historiek grootboekrekeningen ; T1 ;De rekening\rekeningen\numerieke\numerieke;volgende rekening ; 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 klant/leverancier\"[] = zonder omschrijving .[] = met omschrijving"; T11 ;Historiek grootboekrekeningen; 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 du grand-livre ; T1F ;Compte\comptes\numérique\numérique;compte suivant ; T2F ;Historique\"[] = annuelle .[] = mensuelle"; T3F ;Année\"aaaa[] = année spécifique aaaa+[] = anneé 'aaaa' et suivante(s) [] = "; T4F ; période : ; T5F ;Mois initial\"aaaa.mm[] = mois spécifique [] = "; T6F ;Mois final\"aaaa.mm[] = mois spécifique [] = même mois"; T8F ;Description client/fournisseur\"[] = sans description .[] = avec description"; T11F ;Historique comptes du grand-livre; T12F ;Liste\"[] = liste continue .[] = 1 compte par page"; T13F ;Sélection additionnelle\"[] = seulement comptes avec montants .[] = tous les comptes sélectionnés"; T14F ;Solde\"[] = ne pas reprendre .[] = reprendre"; ; T0E ;History of general accounts ; T1E ;The account\accounts\numeric\numeric;next account ; T2E ;History\"[] = by year .[] = by month"; T3E ;Year\"yyyy[] = specific year jjjj+[] = 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 customer/supplier\"[] = without description .[] = with description"; T11E ;History general 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"; ; 1 D ^cT489 11 I 'QP S LIM1=PP(1),LIM2=PP(2) D F K=4:1:11 S @$P("\\\KEU\KJ\KM1\KM2\TP\PSW\ACT\TSW",D,K)=PP(K) K PP(K) . S MUNT=PP(12)_D_PP(13) 17 G 6:'QP S BPA=BPA+.01 S:BPA#1=.13 BPA=BPA+.88 S BPA=$E(BPA_0,1,7) 19 S K=$P($T(@("T0"_QT)),U,2)_QN_" ",FP=203+$L(K) W @F61,@F11,@F1,@F,@F5 S FP=202 W @F,@F4,K,@F5 ; ; selectie AR 2 S TXT=$P($T(@("T1"_QT)),U,2)_"\AR\R1\1" D ^cA306 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 KJ0_D_('$L(LIM2)) D ^cA345 G 51:K="-",2:K="," I K="." D S9 K PP G 19 ; ; 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 60 I LIM2'="",LIM2'=" " S KEU("AR")="1\1",LIM1("AR")=LIM1,LIM2("AR")=LIM2 61 S Q0="^"_Q_"AR(I1)",Q01="^"_Q_"AR(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="\AR\"_$P($T(@("T1"_QT)),U,3),QD=$P(MUNT,D,2) I PTS=4!(PTS=3) D ^cT483 G 19:QP G YZ 65 S FP=2201 W @F,@F1 K ^HULP(boot,$J,0) D ^cT57 G 19:QP ; YZ Q ; PCTR1 ;"-"[K!(K?4N1"."2N&(K'J3)&(K#1)&(K#1<.13)) PCTR2 ;"-"[K!(K?4N1"."2N&(K'J3)&(K#1)&(K#1<.13)) ; R0 S $P(R,D,12)=$T(+0) D ^cAN1000 Q ; v12 23.01.95 ; S9 S QPT=$T(+0) F K=4:1:11 S PP(K)=@$P("\\\KEU\KJ\KM1\KM2\TP\PSW\ACT\TSW",D,K) S9Z S PP(12)=MUNT D ^cA109 Q ; ZZ ; 18.05.04 - 15 u 48 * V8