cT562 ;WIJZIGEN NUMMERS GROOTBOEKREKENINGEN ;%T56 ; [ 01/03/01  12:28 PM ]
 ;
T0 ;Wijzigen nummers grootboekrekeningen ;
 ;
T0F ;Modification numérotation des comptes ;
 ;
T0E ;Modification of general account numbers ; 
 ;
 ; UGL'kes (PV - molecule)
1 F UGL="OD","UL","PV","TO","TOL" I $D(@("^"_Q_UGL)) D S1
 ;
 ; O-kodes
2 G 3:'$D(@("^"_Q_"BA(""%F"",3)")) S A=""
22 S A=$O(@("^"_Q_"BA(""%F"",3,A)")) G 3:A="" S B=""
24 S B=$O(@("^"_Q_"BA(""%F"",3,A,B)")) G 22:B="" S C=""
26 S C=$O(@("^"_Q_"BA(""%F"",3,A,B,C)")) G 24:C="" S K=^(C)
28 S:+$P(K,D)=II1 $P(K,D)=II2 S:$P(K,D,2)=II1 $P(K,D,2)=II2 S ^(C)=K G 26
 ;
 ; k-kodes
3 G 4:'$D(@("^"_Q_"BA(""%F"",24)")) S A="",K=$D(^(24,0))
31 S A=$O(^(A)) G 4:A="" S K=^(A) S:+$P(K,D,2)=II1 $P(K,D,2)=II2 S ^(A)=K G 31
 ;
 ; Int-k-kodes
4 G 5:'$D(@("^"_Q_"BA(""%F"",4)")) S A="",K=$D(^(4,0))
41 S A=$O(^(A)) G 5:A="" S K=^(A) S:+$P(K,D,3)=II1 $P(K,D,3)=II2 S ^(A)=K G 41
 ;
 ; Rekening voorafbetaalde fakturen
5 S A=""
51 S A=$O(@("^"_Q_"UL(0,A)")) G 6:A="" I '$D(^(A,"LNT")) G 51
53 S K=^("LNT") I +$P(K,D,28)=II1 S $P(K,D,28)=II2,^("LNT")=K
55 G 51
 ;
 ; ventilatie-rekening bij de leverancier
6 S A=0
61 S A=$O(@("^"_Q_"LE(A)")) G 7:A="" S K=^(A,1)
63 I +$P(K,D,21)=II1 S $P(K,D,21)=II2 S ^(1)=K
65 G 61
 ;
 ; automatische diverse boekingen
7 S A=0
71 S A=$O(@("^"_Q_"FIA(A)")) G 8:A="" S B=0
73 S B=$O(@("^"_Q_"FIA(A,B)")) G 71:B="" S K=^(B)
75 I +K=II1 S $P(K,D)=I2 S ^(B)=K
77 G 73
 ;
 ; rekeningen kasverslag
8 S K=$D(@("^"_Q_"BA(20,0)"))
81 F I=1:1:9,"B","G","L","V" I $D(^(I)),+^(I)=II1 S $P(^(I),D)=II2
83 S A="D"
85 S A=$O(@("^"_Q_"BA(20,A)")) G 9:$E(A)'="D" S B=""
87 S B=$O(@("^"_Q_"BA(20,A,B)")) G 85:B="" I B'=I1&(B'="W"_I1) G 87
88 S ^($S($E(B)="W":"W"_I2,1:I2))=^(B) K ^(B) G 87
 ;
 ; analytische verrichtingen
9 S (A,B,C)=""
91 S A=$O(@("^"_Q_"FIE(A)")) G YZ:A=""
93 S B=$O(@("^"_Q_"FIE(A,B)")) G 91:B=""
95 S C=$O(@("^"_Q_"FIE(A,B,C)")) G 93:C="" S K=^(C),X=$P(K,D,8)
97 I $P(X,"#")=II1 S $P(X,"#")=II2,$P(K,D,8)=X,^(C)=K
99 G 95
 ;
YZ Q
 ;
S1 S A=0
S1A S A=$O(@("^"_Q_UGL_"(A)")) G S1Z:A="" S B=""
S1B S B=$O(@("^"_Q_UGL_"(A,B)")) G S1A:B="" S C=""
S1C S C=$O(@("^"_Q_UGL_"(A,B,C)")) G S1B:C="" S E=100
S1D S E=$O(@("^"_Q_UGL_"(A,B,C,E)")) G S1C:E="" S K=^(E)
S1E S:$P(K,D)=I1 $P(K,D)=I2 S:$P(K,D,11)=I1 $P(K,D,11)=I2
S1F I $P(K,D)=I2!($P(K,D,11)=I2) S ^(E)=K
S1G G S1D
S1Z Q
 ;
Z X ^cZ Q
ZZ ; 05.02.01 - 16 u 23 * V7.84