cA275 ;UITGESTELD VERWIJDEREN ;%A270 ;
 ;specifieke routines voor grootboekrekeningen, via ^_Q_BA("%A",3,Q1,n)
 ;
T0 ;Uitgesteld verwijderen ;
T2 ;Verwijderen onmogelijk;
 ;
T0F ;Annulations différées;
T2F ;Annulation impossible;
 ;
T0E ;Uitgesteld verwijderen ;
T2E ;Verwijderen onmogelijk;
 ;
S1 S Z1=0
S1A S Z1=$O(@("^"_QQ_UGL_"(Z1)")) G S1Z:'$L(Z1) S Z2=""
S1B S Z2=$O(@("^"_QQ_UGL_"(Z1,Z2)")) G S1A:'$L(Z2)
S1C I +$P(^(Z2),D,IN#100)=KC S OK=0 D F1 G S1Z
S1D G S1B
S1Z K Z1,Z2 Q
 ;
S2 S Z1=""
S2A S Z1=$O(@("^"_QQ_UGL_"(Z1)")) G S2Z:'$L(Z1) S Z2=^(Z1)
S2B I +$P(Z2,D,IN#100)=KC S OK=0 D F1 G S2Z
S2C G S2A
S2Z K Z1,Z2 Q
 ;
S3 S Z1=""
S3A S Z1=$O(@("^"_QQ_UGL_"(Z1)")) G S3Z:'$L(Z1) S Z2=""
S3B S Z2=$O(@("^"_QQ_UGL_"(Z1,Z2)")) G S3A:'$L(Z2)
S3C I +$P(^(Z2),D,IN#100)=KC S OK=0 D F1 G S2Z
S3D G S3B
S3Z K Z1,Z2 Q
 ;
S4 G S4Z:'$D(@("^"_QQ_UGL_"(""%F"",3)")) S Z1=""
S4A S Z1=$O(@("^"_QQ_UGL_"(""%F"",3,Z1)")) G S4Z:'$L(Z1) S Z2=""
S4B S Z2=$O(@("^"_QQ_UGL_"(""%F"",3,Z1,Z2)")) G S4A:'$L(Z2) S Z3=""
S4C S Z3=$O(@("^"_QQ_UGL_"(""%F"",3,Z1,Z2,Z3)")) G S4B:'$L(Z3)
S4D I +$P(^(Z3),D)=KC!(+$P(^(Z3),D,2)=KC) S OK=0 D F1 G S4Z
S4E G S4C
S4Z K Z1,Z2,Z3 Q
 ;
S5 G S5Z:'$D(@("^"_QQ_UGL_"(""%F"",4)")) S Z1=""
S5A S Z1=$O(@("^"_QQ_UGL_"(""%F"",4,Z1)")) G S5Z:'$L(Z1)
S5B I +$P(^(Z1),D,3)=KC S OK=0 D F1 G S5Z
S5C G S5A
S5Z K Z1,Z2,Z3 Q
 ;
S6 G S6Z:'$D(@("^"_QQ_UGL_"(""%F"",22)")) S Z1=""
S6A S Z1=$O(@("^"_QQ_UGL_"(""%F"",22,Z1)")) G S5Z:'$L(Z1)
S6B I +$P(^(Z1),D,2)=KC S OK=0 D F1 G S6Z
S6C G S6A
S6Z K Z1,Z2,Z3 Q
 ;
F1 I $L(X6) X X6 
F1A S:'$L(X6) COM=$P($T(@("T2"_QT)),U,2) I 'MSG S ^HULP(Q1,QQ,KC,T)=COM,T=T+1
F1B I MSG S FP=2403 W @F,@F2,@F4,COM,"   [] = ok ",@F5 R K
F1Z Q
 ;
Z X ^cZ Q
ZZ ; 05.02.01 - 16 u 23 * V7.84