cT54 ;Vergelijking eind- en beginbalans ;%T54 ; [ 01/03/01  11:52 AM ]
 G 1
 ;
T0 ;Vergelijking eind- en beginbalans;
T1 ;Overzicht boekjaren; Eindsaldo ; + beginsaldo ;
T2 ;Boekingsmaand;jjjj.mm[] = bepaalde boekingsmaand;(dit moet de laatste maand van een boekjaar zijn);
T3 ;Selectie rekeningen;alle rekeningen;enkel deze met bedragen;
T4 ;Resultatenrekening;Omrekeningsverschillen;
 ;
T0F ;Comparaison bilan final et initial;
T1F ;Aperçu des exercices; Solde final ; + solde initial ;
T2F ;Mois comptable;aaaa.mm[] = mois spécifique;(il faut le dernier mois de l'exercice);
T3F ;Sélection des comptes;tous;comptes avec cumuls;
T4F ;Compte du résultat;Différences de conversion;
 ;
T0E ;Comparison between final and initial balance;
T1E ;Survey fiscal years; End balance ; + initial balance ;
T2E ;Fiscal month;yyyy.mm[] = particular fiscal month;(this must be the last month of a fiscal year);
T3E ;Selection accounts;all accounts;only those with amounts;
T4E ;Results account;Conversion differences;
 ;
 ; schermopbouw
1 ;D O^cA612(2,1,20,80,1,1,1,1),T^cA612($P($T(@("T0"_QT)),U,2),0,0,7,1,1) ;10.03.00
 D P^cA612(2,1,20,80,1,1,1,1,$P($T(@("T0"_QT)),U,2),0,0,7,1,1)
11 D ^cT164 G YZ:'OK D ^cT489  ; indeling boekjaren
13 W /CUP(2,2),@F6,$P($T(@("T1"_QT)),U,2),@F9,":",@F1 S I=4,J="",K=3
15 S J=$O(KM1(J),-1) G 2:J="" I KM1(J)[".99" G 15
17 W /CUP(I,K),J," : ",KM1(J)," - ",KM2(J)," (",$P($$MNTC^cAFE1(Q,J),D),")"
19 S I=I+1 S:I>13 I=4,K=43 G 15
 ;
 ; vraagstelling
2 S I=$T(@("T2"_QT)),BP=$G(BP,KM2(BJ))
20 S R="BP\22\3\"_$P(I,U,2)_"\C1\7\\$$JJJJMM^cAFI1(K)!(K=""-"")\\\\\1" D R0 G YZ:K="-"
21 S J=$$BJ^cAFE1(Q,BP) G 2:'J,2:'$D(KM2(J)) I BP'=KM2(J) S BP=KM2(J) G 20
22 I J>BJ G 20    ; niet in de toekomst
23 S BJ1=J,MNTC1=$$MNTC^cAFE1(Q,BJ1),BJ2=$O(KM2(BJ1)) I BJ2="" S BJ2=BJ1+1
24 S MNTC2=$$MNTC^cAFE1(Q,BJ2)
25 S I=$T(@("T1"_QT)) W /CUP(2,2),$P(I,U,3),BP," (",$P(MNTC1,D),")",$P(I,U,4),BJ2," (",$P(MNTC2,D),")",@F1
27 S I=$T(@("T3"_QT)),R="K\22\3\"_$P(I,U,2)_"\C2\1\\"".-""[K" D R0 G 13:K="-"
29 S SWA=$L(K) W /CUP(4,2),@F6,$P(I,U,2),@F9,": ",$P(I,U,4-SWA),@F1
 ;
 ; resultatenrekening
3 S I=$T(@("T4"_QT)) W /CUP(6,2),@F6,$P(I,U,2),@F9,": ?",@F1
31 S K=$$^cANSYN("AR","",$P($G(AR1)," "),0) I K="-" W /CUP(6,2),@F1 G 27
33 S B(1)=^(K,0) W /CUP(6,2),@F6,$P(I,U,2),@F9,": ",$TR($P(B(1),D,1,2),D," "),@F1
35 I VERBOT[(D_K_D)!$L($P(B(1),D,10))!$P(B(1),D,13)!$P(B(1),D,17)!$P(B(1),D,20) D TXT^cAFA1(25) G 31
37 S AR1=K
 ;
 ; omrekeningsverschillen
4 I MNTC1=MNTC2 S AR2="" G 3:K="-",5
41 S I=$T(@("T4"_QT)) W /CUP(8,2),@F6,$P(I,U,3),@F9,": ?",@F1
43 S K=$$^cANSYN("AR","",$P($G(AR2)," "),0) I K="-" W /CUP(8,2),@F1 G 3
45 S B(1)=^(K,0) W /CUP(8,2),@F6,$P(I,U,3),@F9,": ",$TR($P(B(1),D,1,2),D," "),@F1
47 I VERBOT[(D_K_D)!$L($P(B(1),D,10))!$P(B(1),D,13)!$P(B(1),D,17) D TXT^cAFA1(25) G 43
49 S AR2=K
 ;
 ; scherm/printer/file
5 D ^cAN3223("","1#2#4",$S($L(AR2):95,1:80),0) G 4:K="-",^cT540
 ;
YZ Q
 ;
C1 W !?2,$P(I,U,3),!?2,$P(I,U,4) Q
C2 W !?2,".[] = ",$P(I,U,3),"   [] = ",$P(I,U,4) Q
 ;
R0 S $P(R,D,12)=$T(+0) D ^cAN1000 Q  ; v12 23.01.95
 ;
ZZ ; 05.02.01 - 16 u 23 * V7.84