cT165 ;VERWIJDEREN AFGESLOTEN BOEKJAAR ;%T165 ; [ 01/02/01 11:17 AM ] G 1 ; T0 ;Verwijderen afgesloten boekjaar ; T1 ;Dit programma verwijdert definitief alle gegevens; T2 ;van het boekjaar : ; T3 ;Eerste maand : ; T4 ;Laatste maand : ; T5 ;Er is geen afgesloten boekjaar te verwijderen ; T6 ;Keuze\"-[] = einde programma V[] = verwijderen"; T7 ;Bevestiging\",[] = hernemen V[] = definitief verwijderen"; T8 ;Bestand : ; T9 ;Maand : ; T10 ;aankopen;verkopen;financieel;analytische diverse verrichtingen;segment diverse verrichtingen T11 ;klanten;leveranciers;rekeningen; (historieken);extra cumuls ; T0F ;Radiation d'une année clôturée ; T1F ;Ce programme radiera définitivement toutes les données; T2F ;de l'année comptable : ; T3F ;Premier mois : ; T4F ;Dernier mois : ; T5F ;Il n'y a aucune année clôturée à radier ; T6F ;Choix\"-[] = fin du programme V[] = radier"; T7F ;Confirmation\",[] = reprendre V[] = radier définitivement"; T8F ;Fichier : ; T9F ;Mois : ; T10F ;achats;ventes;financier;opérations div. analytiques;opérations de segment divers T11F ;clients;fournisseurs;comptes; (historiques);extra cumuls ; T0E ;Remove closed fiscal year ; T1E ;This program permanently removes all data; T2E ;From fiscal year : ; T3E ;First month : ; T4E ;Last month : ; T5E ;There is no fiscal year to be removed ; T6E ;Choice\"-[] = end program V[] = remove"; T7E ;Confirmation\",[] = retry V[] = remove permantly"; T8E ;File : ; T9E ;Month : ; T10E ;purchases;sales;financial;analytical misc. transactions;segment misc. transactions T11E ;customers;suppliers;accounts; (histories);extra cumuls ; ; dagboeken S1 S FP=1203 W @F,$P($T(@("T8"_QT)),U,2),R,@F1 S1A S I1=$E(I1+.01_0,1,7) I I1#1>.12 S I1=$E(I1+.88_0,1,7) S1B K ^(I1) S FP=1303 W @F,$P($T(@("T9"_QT)),U,2),I1 G S1A:I1.12 R=$E(R+.88_0,1,7) G S2A:R>BJE S R1=1_(R*100) S2D S I2=R1 D S3 ; detail S2E S I2=R1_" " D S3 ; globaal S2F I SWA S I2=R1,R1=R*100 D S4 ; analytisch S2G G S2C S2Z Q ; S3 S I2=$O(^(I2)) I $E(I2,1,7)=R1 K ^(I2) G S3 S3Z Q ; S4 S I2=$O(^(I2)) I $E(I2)=2,$E(I2,9,14)=R1 K ^(I2) S4Z G S4:$L(I2) Q ; 1 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 11 D ^cT489 I 'AT S K=$P($P($T(@("T5"_QT)),U,2)," []") D F1 G YZ 13 S BPB=$P(BPB,D,AT*3+1,AT+1*3),BJE=$P(BPB,D,2),(I1,BJB)=$P(BPB,D,3),BJ=BJE\1,K=BJB+.01 S:K#1>.12 K=K+.88 15 W !!?2,$P($T(@("T1"_QT)),U,2),!?2,$P($T(@("T2"_QT)),U,2),BJ,!!?2,$P($T(@("T3"_QT)),U,2),$J(K,7,2),!?2,$P($T(@("T4"_QT)),U,2),BJE 17 S R="K\22\3\"_$P($T(@("T6"_QT)),U,2)_"\1\\""-,V""[K&$L(K)\\\1" D R0 G YZ:"-,"[K 19 S R="K\22\3\"_$P($T(@("T7"_QT)),U,2)_"\1\\""-,V""[K&$L(K)\\\1" D R0 G 17:"-,"[K S @%Q1=0 ; 3 S I1=BJB,K=$O(@("^"_Q_"AA(I1)")),R=$P($T(@("T10"_QT)),U,2) D S1 ; aankopen 31 S I1=BJB,K=$O(@("^"_Q_"VE(I1)")),R=$P($T(@("T10"_QT)),U,3) D S1 ; verkopen 33 S I1=BJB,K=$O(@("^"_Q_"FI(I1)")),R=$P($T(@("T10"_QT)),U,4) D S1 ; financieel I '$P($G(@("^"_Q_"BA(300)")),D) G 4 34 S I1=BJB,K=$O(@("^"_Q_"FIE(I1)")),R=$P($T(@("T10"_QT)),U,5) D S1 ; analytische verrichtingen ; GM 06.10.04 I '$P($G(@("^"_Q_"BA(300)")),D,8) G 4 35 S I1=BJB,K=$O(@("^"_Q_"FII(I1)")),R=$P($T(@("T10"_QT)),U,6) D S1 ; segmentverrichtingen ; GM 06.10.04 ; 4 S Q1="KL",R=$P($T(@("T11"_QT)),U,2),SWA=0 D S2 ; klanten 41 S Q1="LE",R=$P($T(@("T11"_QT)),U,3),SWA=0 D S2 ; leveranciers 43 S Q1="AR",R=$P($T(@("T11"_QT)),U,4),SWA=1 D S2 ; rekeningen 45 S Q1="ARP",R=$P($T(@("T11"_QT)),U,4),SWA=0 D S2 ; afpunten 47 S Q1="ARA",R=$P($T(@("T11"_QT)),U,4),SWA=1 D S2 ; analytische ; 5 ; GM 06.10.04 Extra cumuls (^DBH) I '$P($G(@("^"_Q_"BA(300)")),D) G 9 ; ; Beginsaldo 51 D DMS^cAN000("UQC","USC","BS.AR.ARA",1) G 51:UQC="",51:USC="" S UREF=^DMC(UQC,USC,"DATA","REF") S UI1=BJ_"00 " F S UI1=$O(@(UREF)) Q:($P(UI1," ")'=(BJ_"00")) D X^cAN220("BS.AR.ARA","",UI1) ; Maandcijfers 52 D DMS^cAN000("UQC","USC","CUM.AR.ARA",1) G 9:UQC="",9:USC="" S UREF=^DMC(UQC,USC,"DATA","REF") S UI1=$TR(KM1(BJ),".","")_" " F S UI1=$O(@(UREF)) Q:($P(UI1," ")>($TR(BJE,".",""))) D X^cAN220("BS.AR.ARA","",UI1) ; 9 S BPB=@("^"_Q_"BA(2)"),^(2)=$P(BPB,D,1,AT*3),^(26)=AT-1 91 I $D(@("^"_Q_"BA(""%T"",3)")),$L(^(3)) X ^(3) 99 S K=BJ,R=76 D F2 ; YZ Q ; R0 S R0=$P(R,D,5) I $L(R0),R0'["""" S $P(R,D,5)=R0_"^"_$T(+0) R0A S R0=$P(R,D,7) I $L(R0),R0'="DCTR" S $P(R,D,7)="",R1=$P(R,D,8),R0=$P($T(@R0),U,2,99) S:$L(R1) R0=R0_"&("_R1_")" S $P(R,D,8)=R0 R0Z S $P(R,D,12)=$T(+0) K R0,R1 D ^cA100 Q ; v11 30.05.94 ; F1 S R=250 F2 D TXT^cAFA1(R) FZ K R Q ; Z X ^cZ Q ZZ ; 04.11.04 - 10 u 11 * V8.02