cT560 ;WIJZIGEN NUMMERS GROOTBOEKREKENINGEN ;%T56 ; [ 01/03/01 12:27 PM ] G 1 ; T0 ;Wijzigen nummers grootboekrekeningen ; T1 ;Nr. ; T2 ; van rekening ; T3 ;naar rekening ; T4 ;STOP; T5 ;Gelieve de andere wijzigingen deze avond te doen ! [] = ok ; ; T0F ;Modification numérotation comptes grand-livre ; T1F ;N° ; T2F ; de compte ; T3F ;vers compte ; T4F ;STOP; T5F ;Veuillez faire les autres modifications ce soir ! [] = ok ; ; T0E ;Modification of general accounts numbers ; T1E ;Nr ; T2E ; from account ; T3E ; to account ; T4E ;STOP; T5E ;Please do the other modifications this evening ! [] = ok ; ; ; ingang voor gejobte versie ( Ter Beke ) JOB(Q) S $ZT="^cA407",JOB=1 D S1^cT56 L @K G 1 ; ; routine voor AA en VE 7 S J=$O(^(BJ,0)),J="" 70 S J=$O(^(J)) Q:J="" G 70:J'["." S (A,N)=0,K=J\1 K T 71 S VN=^(J) F S VV=$P(VN,D),VN=$P(VN,D,2,999) Q:VV=""&(VN="") I $L(VV) S N=N+1,T(N)=VV I $P(VV,"#")=I1 S A=1,$P(T(N),"#")=I2 72 S J=$O(^(J)) I J\1=K G 71 73 I 'A G 79 74 S J=K 75 S J=J+.01,VN="" 76 S N=$O(T(0)) I N S VV=T(N)_D I $L(VN)+$L(VV)<255 S VN=VN_VV K T(N) G 76 77 I $L(VN) S ^(J)=VN G 75 78 I J\1=K K ^(J) S J=$O(^(J)) G 78 79 K T S J=K+1 G 70 ; ; routine voor FI 8 S I=-1 81 S X=-1,I=$N(@("^"_Q_"FI(BJ,I)")) Q:I=-1 S K=$D(^(I,0)) 85 S X=$N(^(X)) G 81:X=-1 S Y=^(X) G 85:$P(Y,D,7)'="A" 86 S K=$P(Y,D,8) G 85:$P(K,"#")'=II1 S ^(X)=$P(Y,D,1,7)_D_II2_"#"_$P(K,"#",2,99)_D_$P(Y,D,9,99) G 85 ; routine voor BA 9 S:$P(^(I),D)=II1 ^(I)=II2_D_$P(^(I),D,2,99) Q ; ; aanpassing FI 35 S J=$N(@X) Q:J=-1 S @Y=@X K @X G 35 ; ; uitvoering gegevens 4 S @%Q1=0,J="",K="^"_Q_"AR(I1,J)",I="^"_Q_"AR(I2,J)" G 69:$O(@K)="" 41 S J=$O(@K) I $L(J) S @I=@K G 41 42 M ^DLOG(Q,"AR",II2)=^DLOG(Q,"AR",II1),^DTXT(Q,"AR",II2)=^DTXT(Q,"AR",II1) 43 K @("^"_Q_"AR(I1)"),^DLOG(Q,"AR",II1),^DTXT(Q,"AR",II1) 44 S J=0,K=@I,EXTWIJZ=1 D W^cAN220("AR",1,I2,101,II2) K EXTWIJZ S K=@("^"_Q_"AR(I2,0)") 45 S B(1)=II2_D_$P(K,D,2) D ^cA218 K B 46 S @("^"_Q_"R1("""_I_""")")=$P(K,D,2) K ^($P(I," ")_" "_II1) S Y="" 47 S Y=$O(@("^"_Q_"FIB(I1,Y)")) I $L(Y) S @("^"_Q_"FIB(I2,Y)")=^(Y) G 47 48 S Y=$O(@("^"_Q_"ARP(I1,Y)")) I $L(Y) S @("^"_Q_"ARP(I2,Y)")=^(Y) G 48 49 K @("^"_Q_"FIB(I1)"),@("^"_Q_"ARP(I1)") 5 I $P(X,D,13)=1 G 6 51 S BJ=0,X=D_I1,Y=D_I2 52 S BJ=$O(@("^"_Q_"AA(BJ)")) I BJ D 7 G 52 53 S BJ=$O(@("^"_Q_"VE(BJ)")) I BJ D 7 G 53 54 S BJ=$O(@("^"_Q_"FI(BJ)")) I BJ D 8 G 54 55 S K=@("^"_Q_"BA(2)") 56 I $D(^(12)),($P(^(12),D)=II1) S ^(12)=II2_D_$P(^(12),D,2,99) 57 I $D(^(13)),($P(^(13),D)=II1) S ^(13)=II2_D_$P(^(13),D,2,99) 58 S K=^(14,0) F I=0:1:20 D:$D(^(I)) 9 59 S K=@("^"_Q_"BA(15,0)") F I=0:1:20 D:$D(^(I)) 9 590 S K=$D(@("^"_Q_"BA(63,1)")) I K F I=0:1:30 D:$D(^(I)) 9 591 S K=$D(@("^"_Q_"BA(9)")) I K S K=$N(^(9,$I)) F I=0:1:999 D:$D(^(I)) 9 592 S K=$D(@("^"_Q_"BA(10,0)")) I K F I=0,1 S:$P(^(I),D)=II1 ^(I)=II2_D_$P(^(I),D,2,99) 6 G 69:'$D(@("^"_Q_"BA(4,II1)")) S I=0 61 S I=$O(@("^"_Q_"BA(4,II1,I)")) I I S @("^"_Q_"BA(4,II2,I)")=^(I) G 61 62 S:$D(@("^"_Q_"BA(4,II1)"))#2 ^(II2)=^(II1) K ^(II1) ; 63 D ^cT561 ; 67 S I=$N(@("^"_Q_"FI(I)")) I I'=-1 G 67:'$D(^(I,II1)) S J=-1,X="^"_Q_"FI(I,II1,J)",Y="^"_Q_"FI(I,II2,J)" D 35 G 67 68 S I=$N(@("^"_Q_"KAS(II1,I)")) I I'=-1 F K=0:1 G 68:'$D(@("^"_Q_"KAS(II1,I,K)")) S @("^"_Q_"KAS(II2,I,K)")=^(K) 680 K @("^"_Q_"KAS(II1)") 69 S G="ARA" D S5^cT561,^cT562 690 D:$D(@("^"_Q_"BA(85)")) @(^(85)) S @%Q1=1 K I,I1,I2,J,N,K,X,Y Q ; ; klaar maken 1 S JOB=$G(JOB) I JOB D ^cA604 S JOB=1 10 S K=$O(@("^"_Q_"R9(0)")) G Y:K="" S X=^(K),I1=$P(X,D),I2=$P(X,D,2),II1=$P(I1," "),II2=$P(I2," ") 100 I 'JOB W /CUP(6,14),$P($T(@("T1"_QT)),U,2),K,$P($T(@("T2"_QT)),U,2),I1,$P($T(@("T3"_QT)),U,2),I2,@F2 101 S $P(^(K),D,3)=$H D 4 S K=$O(@("^"_Q_"R9(0)")) I $L(K),$P(^(K),D,3) K ^(K) 102 D DMS^cAN000("UQC","USC","AR"),S1^cAN002(UQC,USC) 103 I 'JOB R K:0 G 6^cT56:K=$P($T(@("T4"_QT)),U,2) 11 S K=$P($H,",",2)\3600,X=$H#7 I 'JOB,K>7&(K<17)&(X'=2)&(X'=3) S FP=2302+F60 W @F,@F4,$P($T(@("T5"_QT)),U,2),@F5,@F0 R K:180 G YZ 12 G 10 ; Y K @("^"_Q_"R9") YZ Q ; Z X ^cZ Q ZZ ; 05.02.01 - 16 u 23 * V7.84