cT20 ;Proefbalans ;%T20 ; [ 01/11/01 3:43 PM ] G G ; T0 ;Proefbalans ;per periode ; T1 ;Boekingsmaand\"-[] = einde programma jjjj.mm[] = bepaalde maand";Boekingsmaand : ; T2 ;Selectie rekeningen\".[] = alle rekeningen [] = alleen rekeningen met bedragen"; T3 ;Boekingsperiode\"-[] = einde programma jjjj.pp[] = bepaalde periode";Boekingsperiode : ; T4 ; Nummer\ Naam van de rekening\Totaal;2\\\ Jaarcumulatie;;3\\Begin-;2; T5 ;\\saldo;2\Debet;2\Credit;2\Debet;2\Credit;2\saldo;2; T6 ; Maandcumulatie; Periodecumulatie; T7 ; TOTAAL GROEP ; EINDTOTAAL; T8 ;Analytische proefbalans ;Exploitatiebalans ; T9 ; is niet beschikbaar ; ; T0F ;Bilan de vérification ;par période ; T1F ;Mois comptable\"-[] = fin du programme aaaa.mm[] = mois spéc.";Mois comptable : ; T2F ;Quels comptes\".[] = tous les comptes [] = seulement les comptes avec cumuls"; T3F ;Période comptable\"-[] = fin du programme aaaa.pp[] = période spécifique";Période comptable : ; T4F ; Numéro\ Nom du compte\Solde;2\\\ Cumuls annuels;;3\\Solde;2; T5F ;\\total;2\Débit;2\Crédit;2\Débit;2\Crédit;2\init.;2; T6F ; Cumuls mensuels ; Cumuls période ; T7F ; TOTAL CLASSE ; TOTAL FINAL; T8F ;Bilan de vérification analytique ;Bilan d'exploitation ; T9F ; n'est pas disponible ; ; T0E ;Trial balance ;per period ; T1E ;Fiscal month\"-[] = end program yyyy.mm[] = particular month";Fiscal month : ; T2E ;Selection accounts\".[] = all accounts [] = only accounts with amounts"; T3E ;Fiscal period\"-[] = end program yyyy.pp[] = particular period";Fiscal period : ; T4E ; Number\ Account name\Total;2\\\ Year global amount;;3\\Initial;2; T5E ;\\bal. ;2\Debit;2\Credit;2\Debit;2\Credit;2\bal. ;2; T6E ; Monthly cumulation; Periodical cumulation; T7E ; TOTAL GROUP ; END TOTAL ; T8E ;Analytical trial balance ;Exploitation balance ; T9E ; is not available ; ; G S LBL="G",SWP=0,Q0="AR",TIT=$P($T(@("T0"_QT)),U,2) G 1 A S LBL="A",SWP=0,Q0="ARA",TIT=$P($T(@("T8"_QT)),U,2) G 1 X S LBL="X",SWP=0,Q0="ARX",TIT=$P($T(@("T8"_QT)),U,3) G 1 P S LBL="P",SWP=1,Q0="AR",TIT=$P($T(@("T0"_QT)),U,2)_$P($T(@("T0"_QT)),U,3) G 1 B S LBL="B",SWP=1,Q0="ARA",TIT=$P($T(@("T8"_QT)),U,2)_$P($T(@("T0"_QT)),U,3) G 1 ; ; totaal groep op N cijfers S1(N) S SW=0 F X=3:1:8 I T(N,X) S SW=1 Q S1A I SW!SWA D . S TXT(1)="",TXT(2)=$P($T(@("T7"_QT)),U,2)_@("J"_N) I N=3 D .. S TXT(2)=TXT(2)_" ---------------" . F X=3:1:8 S TXT(X)=T(N,X)_"\\\\1\"_QD S T(N-1,X)=T(N-1,X)+T(N,X) . D ^cA334 S END=$S(N=3:132,N=2:145,I1="":161,1:4) D ^cA334 S1B S @("J"_N)=$E(I1,1,N) F X=3:1:8 S T(N,X)=0 S1Z Q ; ; algemene init. 1 I QP W /CUP(1,1),@F1,/CUP(2,2),/SGR(7)," ",TIT,QN," ",/SGR(0) 11 D ^cT489 S BPX=$E(BPA+.01_0,1,7) I BPX#1>.12 S BPX=BPX+.88 13 I 'QP S KEU(Q0)=PP(1),LIM1(Q0)=PP(2),LIM2(Q0)=PP(3),BP=PP(4),SWA=PP(5) G 3 ; ; vraagstelling 2 S BP=BPX,R="BP\22\3\"_$P($T(@("T"_$S(SWP:3,1:1)_QT)),U,2)_"\7\\K?4N1"".""2N&(K#1<.13)&(K#1!SWP)!(K=""-"")\\\\\1" D R0 G YZ:K="-" 21 S FP=450 W @F,$P($T(@("T"_$S(SWP:3,1:1)_QT)),U,3),BP I BPKM2(J4)) S K=BP_$P($T(@("T9"_QT)),U,2) D F1 G 2 23 D ^cAN003(6,Q0) G 2:K="-"!(K=",") 25 S R="K\22\3\"_$P($T(@("T2"_QT)),U,2)_"\1\\""-,.""[K" D R0 G 23:K="-",2:K="," S SWA=$L(K) 27 D ^cAN3223("","1#4#9",">80","") G 25:K="-" S (NOSEP,NOTIT,NOTOP)=1 29 I K="." S PP(1)=KEU(Q0),PP(2)=LIM1(Q0),PP(3)=LIM2(Q0),PP(4)=BP,PP(5)=SWA,QPT=LBL_"^"_$T(+0)_"#"_TIT D ^cA109 G YZ ; ; init.printen 3 S BM=BP#1*100,K=BP\1 31 S HD(1)=D,HD(2)=D_TIT_";C;F82",HD(3)=D_$S(SWP:BP,1:^cBA(2,$E(QT_"N"),BM)_" "_K)_" ;C;F82" 33 S TAB="11\41\56\71\86\101\116\131" S TIT(1)=$P($T(@("T4"_QT)),U,2,99),$P(TIT(1),D,4)=$P($T(@("T6"_QT)),U,2+SWP)_";;3" S TIT(2)=$P($T(@("T5"_QT)),U,2,99) 35 S BJ=$$BJ^cAFE1(Q,BP),MUNT=$$MNTC^cAFE1(Q,BJ),QD=$P(MUNT,D,2) 37 S K=KM1(BJ) F BX=2:1:24 Q:K=BP S K=$E(K+.01_0,1,7) I K#1>.12 S K=K+.88 39 S I2D=BJ,I2C=BJ+.02 I SWP S BJ=BP\1,BX=BM+1,I2D=BJ+.06,I2C=BJ+.07 ; ; bestand aflopen 4 S I1=$S(LBL="P":"5Z",1:0) F I=0:1:3 S @("J"_I)="" F X=3:1:8 S T(I,X)=0 40 I KEU(Q0) S $P(KEU(Q0),D,2)=1 ; "buiten gebruik" meepakken igv van/tot 41 F D ^cAN004("I1",Q0) D Q:I1="" . I $L(I1) Q:'$D(^(I1,0)) Q:$P(^(0),D,13)=1 ; geen tekstrekening . I J1="" S J1=$E(I1) . I J2="" S J2=$E(I1,1,2) . I J3="" S J3=$E(I1,1,3) . I $E(I1,1,3)'=J3 D S1(3) . I $E(I1,1,2)'=J2 D S1(2) . I $E(I1)'=J1 D S1(1) . I I1="" Q . S TXT(1)=$P(@("^"_Q_Q0_"(I1,0)"),D)_"\\1\\\\$E(K,1,3)_$S($L(K)>3:"".""_$E(K,4,9),1:"""")" . S TXT(2)=$P(^(0),D,2)_"\\1" F X=3:1:8 S TXT(X)="" . S S1=$G(^(I2D)),S2=$G(^(I2C)),TXT(4)=$P(S1,D,BX),TXT(5)=$P(S2,D,BX),TXT(8)=$P($G(^(BJ)),D) . F X=2:1:BX S TXT(6)=TXT(6)+$P(S1,D,X),TXT(7)=TXT(7)+$P(S2,D,X) . I 'SWP,BJ>($P(BPB,D,2)\1),Q0="AR"!(Q0="ARA") D .. I $P(^(0),D,20) S TXT(8)="" Q ; V/W-rek op 0 forceren .. S S1=$G(^(I2D-1)),S2=$G(^(I2C-1)),TXT(8)=$P(S1,D) .. F X=2:1:24 S TXT(8)=TXT(8)+$P(S1,D,X)-$P(S2,D,X) .. I BJ=$P(BA39,D,6) S TXT(8)=$$BEDR^cAFE1(Q,TXT(8),$P(BA39,D,9),$P(BA39,D,7),"F") . S TXT(3)=TXT(8)+TXT(6)-TXT(7) S:SWP TXT(8)=TXT(4)-TXT(5) S SW=0 F X=3:1:8 I TXT(X) S SW=1 Q . I $P(^(0),D,30)=2&'SW Q . I SW!SWA D .. S N=$L($P(TXT(1),D)) I N>3 S N=3 .. F X=3:1:8 S TXT(X)=TXT(X)_"\\\\1\"_QD,T(N,X)=T(N,X)+TXT(X) .. D ^cA334 F X=1:1:N S @("J"_X)=$E(I1,1,X) 43 S TXT(1)="",TXT(2)=$P($T(@("T7"_QT)),U,3) 45 F X=3:1:8 S TXT(X)=T(0,X)_"\\\\1\"_QD 47 D ^cA334 S END=1 D ^cA334 ; Y I 'SWP,BP'