cT65 ;Centralisatiedagboek ;%T65 ; [ 01/03/01 3:23 PM ] G 1 ; T0 ;Centralisatiedagboek ; T1 ;Boekingsmaand\"-[] = einde programma jjjj.mm[] = bepaalde maand"; T2 ;Aantal cijfers centralisatie\"[] = detail per rekening x[] = centralisatie op x cijfers"; T4 ;Boekingsmaand : ;Aantal cijfers : ; T7 ; Nummer\ Naam van de rekening\Debet;2\Credit;2; T8 ;Overdrachttotaal;Eindtotaal; T9 ;\Boekingsmaand; ; T0F ;Journal centralisateur ; T1F ;Mois comptable\"-[] = fin du programme aaaa.mm[] = mois spécifique"; T2F ;Degré de détail\"[] = détail par compte x[] = centralisation sur x chiffres"; T4F ;Mois comptable: ;Nombre chiffres : ; T7F ; Numéro\ Nom du compte\Débit;2\Crédit;2; T8F ;Montant transfert;Total final; T9F ;\Mois comptable; ; T0E ;Centralisation journal ; T1E ;Fiscal month\"-[] = end program yyyy.mm[] = particular month"; T2E ;Nr of ciphers centralisation\"[] = detail per account x[] = centralisation on x ciphers"; T4E ;Fiscal month : ;Nr of ciphers : ; T7E ; Number\ Account Name\Debit;2\Credit;2; T8E ;Transfer total;Final total; T9E ;\Fiscal month; ; 1 S BPB=@("^"_Q_"BA(2)"),BPX=$E(^(7)+.01_0,1,7) S:BPX#1>.12 BPX=BPX+.88 I 'QP S BP=PP(1),AC=PP(2) G 3 11 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 ; 2 S BP=BPX,R="BP\22\3\"_$P($T(@("T1"_QT)),U,2)_"\7\\K?4N1"".""2N&($P(K,""."",2)<13&$P(K,""."",2))!(K=""-"")\\\\\1" 21 D R0 G YZ:K="-" S PP(1)=BP,FP=450 W @F,$P($T(@("T4"_QT)),U,2),BP 23 I BP'>$P(BPB,D,3) D TXT^cAFA1(61) G 2 25 S R="AC\22\3\"_$P($T(@("T2"_QT)),U,2)_"\1\\K>0&(K<8)!(""-""[K)" 27 D R0 G 2:K="-" S:'K AC=7 S PP(2)=AC,FP=550 W @F,$P($T(@("T4"_QT)),U,3),AC 29 S R=0 S KEU="1#2#4#5#9" D ^cAN3223("",KEU) G 2:K=",",25:K="-" I K="." S QPT=$T(+0) D ^cA109 G YZ ; 3 S I1=0,BLZ=0,Q4="^"_Q_"AR(I1)",NM1=@("^"_Q_"BA(99,1)"),NM2=^(2),NM3=^(3) 30 S TAB="11\49\64\79" S TIT(1)=$P($T(@("T7"_QT)),U,2,99) I PTS=3!(PTS=4) S TIT(1)=TIT(1)_$P($T(@("T9"_QT)),U,2),TAB=TAB_"\"_($P(TAB,"\",$L(TAB,"\"))+8) 31 S BM=BP#1*100,BJ=BP\1,MNM=^cBA(2,$E(QT_"N"),BP#1*100)_" "_BJ,K=$P(BPB,D,2) S:BP>K BPB=K\1*12+(K#1*100),K=K+1 33 S BX=BJ*12+BM-BPB+1,BJ=$$BJ^cAFE1(Q,BP) ;X F70 W @F80 35 S MUNT=$$MNTC^cAFE1(Q,BJ),QD=$P(MUNT,D,2),MUNT=$P(MUNT,D) 37 S HD(1)=D_$P($T(@("T0"_QT)),U,2)_";C;F82",HD(2)=D_MNM_";C;F82",HD(3)=D 39 D S1 F I=0,1 S (T(I),A(I))=0 ; 4 S I1=$O(@Q4) I I1="" D S1 G Y 41 S K=^(I1,0) G 4:'$D(^(BJ))&(AC=7),43:'$D(^(BJ)) S A(0)=A(0)+$P(^(BJ),D,BX),A(1)=A(1)+$P(^(BJ+.02),D,BX) G 4:'A(0)&'A(1)&(AC=7) 43 I AC<7 S K=$E($P(K,D),1,AC) G 4:$E($O(@Q4),1,AC)=K,4:'A(0)&'A(1) S:$D(^(K_" ",0)) K=^(0) 45 S TXT(1)=$P(K,D)_D_D_1_D_D_D_D_"$E(K,1,3)_$S($L(K)>3:"".""_$E(K,4,9),1:"""")" 451 S TXT(2)=$P(K,D,2)_D_D_1 453 S TXT(3)=A(0)_"\\\\1\"_QD_D_D_1,TXT(4)=A(1)_"\\\\1\"_QD_D_D_1 I PTS=3!(PTS=4) S TXT(5)=BP 47 D ^cA334 F I=0,1 S T(I)=T(I)+TXT(I+3),A(I)=0 49 G 4 ; Y I $G(PTS)'=4,BP'