cT93 ;Heropenen boekingsmaand ;%T93 ; [ 01/03/01  3:21 PM ]
 G 1
 ;
T0 ;Heropenen boekingsmaand;
T1 ;Boekhoudkundig afgesloten maand;
T2 ;Boekingsmaand ; opnieuw openstellen.;
T3 ;Boekjaar ; wordt opnieuw opengesteld!;
T4 ;Bevestiging\".[] = ok   ,[] = hernemen";
T5 ;Overzicht boekjaren;
T6 ;Dit is niet toegelaten wegens overgang naar EUR! ;
 ;
T0F ;Ouverture mois comptable;
T1F ;Dernière clôture comptable;
T2F ;Remettre mois comptable ;.;
T3F ;L'exercise ; sera remis!;
T4F ;Confirmation\".[] = ok   ,[] = reprendre";
T5F ;Aperçu des exercices;
T6F ;Ceci n'est pas permis car conversion vers EUR!;
 ;
T0E ;Reopen fiscal month;
T1E ;Last closed month;
T2E ;Reopen fiscal month ;.;
T3E ;Fiscal year; will be reopened!;
T4E ;Confirmation\".[] = ok   ,[] = retry";
T5E ;Survey fiscal years;
T6E ;This is not allowed because of the conversion to EUR! ;
 ;
 ; indeling boekjaren
S1 S BJ="",LIJN=5,I=0,KOLOM=0
S1A S BJ=$O(KM1(BJ),-1) G S1Z:BJ="" S S1=KM1(BJ),S2=KM2(BJ) I S1[".99" G S1A
S1B S I=I+1 I I>10,'KOLOM S LIJN=5 S KOLOM=1
S1C W /CUP(LIJN,3+(KOLOM*40)),BJ," : ",S1," - ",S2," (",$P($$MNTC^cAFE1(Q,BJ),D),") " S LIJN=LIJN+1
S1D G S1A
S1Z K S1,S2 Q
 ;
 ; gegevens tonen
1 W /CUP(1,1),@F1,/CUP(2,2),@F4,$P($T(@("T0"_QT)),U,2),QN," ",@F5
 L @("^"_Q_"BA(7)"):2 E  S R=14 D F2 G YZ
 D ^cT489 S AM=@("^"_Q_"BA(25)")
 W /CUP(4,2),@F6,$P($T(@("T5"_QT)),U,2),@F9,":",@F1 D S1
 W /CUP(16,2),@F6,$P($T(@("T1"_QT)),U,2),@F9,/CUP(16,37),": ",BPA," ( +",+AM," => ",J3," )",@F1
 I 'AT,$P(BPB,D,3)=BPA S K="Mission impossible" D F1 G YZ
 ;
 ; vraagstelling
2 W /CUP(18,3),$P($T(@("T2"_QT)),U,2),BPA,$P($T(@("T2"_QT)),U,3),@F1
 S R="K\22\3\"_$P($T(@("T4"_QT)),U,2)_"\1\\""-,.""[K&$L(K)" D R0 G YZ:K="-",YZ:K=","
 W /CUP(18,2),@F92,$P($T(@("T2"_QT)),U,2),BPA,$P($T(@("T2"_QT)),U,3),@F93
 I $P(BPB,D,3)=BPA W /CUP(20,2),@F94,$P($T(@("T3"_QT)),U,2),$P(BPB,D,5)\1,$P($T(@("T3"_QT)),U,3),@F95
 I $P(BPB,D,3)=BPA,$P(BPB,D,2)\1=$P(BA39,D,6) S K=$P($T(@("T6"_QT)),U,2) D F1 G YZ
 S R="K\22\3\"_$P($T(@("T4"_QT)),U,2)_"\1\\""-,.""[K&$L(K)" D R0 G 2:K="-",2:K=","
 ;
 ; update in global
3 S @%Q1=0
 S PER=BPA-.01 I '(PER#1) S PER=PER-.88
 S @("^"_Q_"BA(7)")=$E(PER_0,1,7)
 I $P(BPB,D,3)=BPA D                               ; boekjaar heropenen
 . S J=$P(BPB,D,2)\1
 . S ^(2)=$P(BPB,D,4,999),^(26)=AT-1
 . K @("^"_Q_"FIB")
 . F G="KL","LE","AR" D
 .. W !,G S I=0
 .. F  S I=$O(@("^"_Q_G)@(I)) Q:I=""  D
 ... I $D(^(I,J)) S $P(^(J),D)=0 W "."
 ... I G="AR",$D(^(J+.01)) S $P(^(J+.01),D)=0
 S @%Q1=1 D ^cA604 G 1
 ;
YZ Q
 ;
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
 ;
ZZ ; 05.02.01 - 16 u 23 * V7.84