cTA10 ;Listings v/d linken AR-ARA ;%TA10 ;%TA10* ; [ 01/03/01 9:43 AM ] G K ; T0 ;Listings van de linken grootboek-analytische ; T1 ;;Volgende rekening [] = ok ; T2 ;Meerdere muntcodes in geselecteerde maanden/jaren ; T3 ;Lijst\"[] = op jaarbasis .[] = op maandbasis"; T4 ;Jaartal\"jjjj[] = specifiek jaar jjjj+[] = alle jaren vanaf jjjj [] = "; T5 ; maanden : ; T6 ;Van maand\"jjjj.mm[] = specifieke maand [] = "; T7 ;Tot maand\"jjjj.mm[] = specifieke maand [] = idem als 'van maand'"; T9 ;Analytische uitsplitsing kostensoorten ;Groepering kostensoorten per kostenplaats ; T10 ;Bijkomende selectie\"[] = enkel rekeningen met bedragen .[] = alle geselecteerde rekeningen"; T11 ;Lijst\"[] = doorlopende lijst .[] = 1 rekening per blad"; T12 ;Detail\"[] = zonder detail .[] = met detail"; ; T0F ;Listes des liaisons grand-livre - analytique ; T1F ;;Comtpe suivant [] = ok ; T2F ;Plusieurs codes mon. dans les mois/années sélectionné(e)s ; T3F ;Liste\"[] = annuelle .[] = mensuelle"; T4F ;Année\"aaaa[] = année spécifique aaaa+[] = année 'aaaa' et suivantes [] = "; T5F ; mois : ; T6F ;Mois initiale\"aaaa.mm[] = mois spécifique [] = "; T7F ;Mois finale\"aaaa.mm[] = mois spécifique [] = même mois"; T9F ;Repartition analytique des genres de frais ;Groupage par lieu de frais ; T10F ;Sélection additionnelle\"[] = uniquement comptes avec cumuls .[] = tous les comptes sélectionnés"; T11F ;Liste\"[] = liste continue .[] = 1 compte par feuille"; T12F ;Détail\"[] = sans détail .[] = avec détail"; ; T0E ;Reports of link general-analytical ; T1E ;;Next account [] = ok ; T2E ;More than one currencies in the selected months/years ; T3E ;Report\"[] = by year .[] = by month"; T4E ;Year\"yyyy[] = particular year yyyy+[] = all years from yyyy [] = "; T5E ; months : ; T6E ;From month\"yyyy.mm[] = particular month [] = "; T7E ;Until month\"yyyy.mm[] = particular month [] = the same as 'from month'"; T9E ;Analytical categorization of the cost type ;Grouping cost type per cost centre ; T10E ;Extra selection\"[] = only accounts with amounts .[] = all selected accounts"; T11E ;Report\"[] = continuous report .[] = 1 account per page"; T12E ;Detail\"[] = without detail .[] = with detail"; ; K S TIT=$P($T(@("T9"_QT)),U,2),Q00="K",Q0="^"_Q_"AR(I1)",Q01="^"_Q_"AR(I1,I4)" G 1 ; P S TIT=$P($T(@("T9"_QT)),U,3),Q00="P",Q0="^"_Q_"ARA(I1)",Q01="^"_Q_"ARA(I1,I4)" G 1 ; ; 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(TIT,2,0,7,1,1) ; ; vraagstelling 2 D ^cAN003(4,$S(Q00="P":"ARA",1:"AR")) G YZ:K="-" 21 S R="ACT\22\3\"_$P($T(@("T10"_QT)),U,2)_"\1\\""-.""[K" D R0 G 2:K="-" S ACT=$L(K) 23 S (KM1,KM2)="",R="KEU\22\3\"_$P($T(@("T3"_QT)),U,2)_"\1\\""-.""[K" D R0 S KEU=$L(K) G 21:K="-",3:KEU 25 S R="KJ\22\3\"_$P($T(@("T4"_QT)),U,2)_"_BJ\5\\""-""[K!(K?4N.""+"")" D R0 G 23:K="-",25:K>J4 26 S:K="" KJ=BJ S FP=460 W @F,$P($T(@("T5"_QT)),U,2),KJ,@F1 I KJKJ,$$MNTC^cAFE1(Q,J4)'=MNTC D E1 G 25 29 G 5 ; ; van maand / tot maand 3 S KJ="",R="KM1\22\3\"_$P($T(@("T6"_QT)),U,2)_"_BPA\7\PCTR1" D R0 G 23:K="-" 31 S:K="" KM1=BPA S FP=460 W @F,$P($T(@("T5"_QT)),U,2),KM1,@F2 33 S K=$$BJ^cAFE1(Q,KM1),MNTC=$$MNTC^cAFE1(Q,K),QD=$P(MNTC,D,2) 35 S R="KM2\22\3\"_$P($T(@("T7"_QT)),U,2)_"\7\PCTR2" D R0 G 3:K="-" 37 S:K="" KM2=KM1 S FP=560 W @F,$J("",$L($P($T(@("T5"_QT)),U,2))),KM2,@F2 39 I KM2>KM1 S K=$$BJ^cAFE1(Q,KM2) I $$MNTC^cAFE1(Q,K)'=MNTC D E1 G 35 ; ; gemeenschappelijk 5 S R="PSW\22\3\"_$P($T(@("T11"_QT)),U,2)_"\1\\""-.""[K" D R0 S PSW=$L(K) G 23:K="-" 51 S R="TSW\22\3\"_$P($T(@("T12"_QT)),U,2)_"\1\\""-.""[K" D R0 S TSW=$L(K) G 5:K="-" 53 S R=TSW_D_1 D ^cA345 G 51:K="-",2:K="," ; 6 I 'KEU S KM1=KM1(+KJ),KM2=KM2(+KJ) I KJ["+" S KM2=KM2(J4) 61 S Q71="^"_Q_"VE(BP,A1)",Q61="^"_Q_"AA(BP,A1)",Q95="^"_Q_"FI(BP,$P(A1,""#""),$P(A1,""#"",2))" 62 S TXT=$S(Q00="P":"\ARA\",1:"\AR\")_$P($T(@("T1"_QT)),U,3) 63 S FP=2201 W @F,@F1 D ^cTA100 G 19 ; 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 ; E1 S K=$P($T(@("T2"_QT)),U,2) D TXT^cAFA1(250) Q ; ZZ ; 05.02.01 - 16 u 23 * V7.84