cA276 ;TESTEN BIJ VERWIJDEREN ;%A205,%A274 ; [ 02/02/96  9:41 AM ]
 ;
T0 ;Testen bij verwijderen ;
T1 ;Verwijderen\"[] = onmiddellijk   .[] = later";even geduld ...;
T2 ;Verwijderen onmogelijk !;
T3 ;Fictieve klant winkelverkopen, kan niet verwijderd worden !;
T4 ;Klant heeft nog toestellen\"[] = niet verwijderen   .[] = verwijderen klant en toestel(len)";
T5 ;Algemene basisrekening, verwijderen onmogelijk !;Basisrekening winkelverkopen, verwijderen onmogelijk !;
T6 ;Reeds klaargesteld om te verwijderen ;
 ;
T0F ;Contrôles annulations ;
T1F ;Annulation\"[] = continuer   .[] = préparer pour annulation differée";un instant s.v.p. ...;
T2F ;Annulation impossible !;
T3F ;Client fictif des ventes de caisse, annulation impossible !;
T4F ;Le client est encore propriétaire d'un appareil\"[] = arrêter l'annulation   .[] = annulation du client et l'appareil";
T5F ;Compte de base, annulation impossible !;Compte de base des ventes de caisse, annulation impossible !;
T6F ;Déjà pret pour annulation ;
 ;
T0E ;Testen bij verwijderen ;
T1E ;Verwijderen\"[] = onmiddellijk   .[] = later";even geduld ...;
T2E ;Verwijderen onmogelijk !;
T3E ;Fictieve klant winkelverkopen, kan niet verwijderd worden !;
T4E ;Klant heeft nog toestellen\"[] = niet verwijderen   .[] = verwijderen klant en toestel(len)";
T5E ;Algemene basisrekening, verwijderen onmogelijk !;Basisrekening winkelverkopen, verwijderen onmogelijk !;
T6E ;Reeds klaargesteld om te verwijderen ;
 ;
1 G 2:$D(SWUVW) S MSG=1,OK=2,KC=$P(B(1),D),(QQ,XQ)=Q I $D(^HULP(Q1,Q,KC)) S K=$P($T(@("T6"_QT)),U,2),OK=0 D F1 G YZ
11 I Q1="KL",$D(@("^"_Q_"BA(20,""K"")")),$P(^("K"),D)=KC S K=$P($T(@("T3"_QT)),U,2),OK=0 D F1 G YZ
13 I MSG S R="K\22\3\"_$P($T(@("T1"_QT)),U,2)_"\1\\"".-""[K" D R0 I K="-" S OK=0 G YZ
15 I MSG,K="." S ^HULP(Q1,Q,KC)="" S OK=0 G YZ
17 S T=1,FP=2203 W @F,@F1,$P($T(@("T1"_QT)),U,3) S FP=FP+$L($P($T(@("T1"_QT)),U,3))
 ;
2 S IN2=0,OK=2
21 S IN2=$O(@("^"_Q_"BA(""%A"",3,Q1,IN2)")) G 3:'$L(IN2) S K=^(IN2) W @F,"." S FP=FP+1
23 S QQ=$P(K,D),UGL=$P(K,D,2),US=$P(K,D,3),ID=$P(K,D,4),IN=$P(K,D,5),X6=$P(K,D,6),X7=$P(K,D,7) I QQ="" S QQ=XQ
24 I $L(X7) X X7 G 29:'MSG,29:OK,YZ
25 I $L(ID) D S1 G 29:'MSG,29:OK,YZ
26 I $L(IN) S R99=IN D S2 K R99 G 29:'MSG,29:OK,YZ
27 I ($E(UGL,1,2)="PW"!(UGL="TOE")),$E($O(@("^"_QQ_Q1_"(I1,""W"")")))="W" D S3 G 29:'MSG,29:OK,YZ
29 G 21
 ;
3 G YZ:Q1'="AR" S X6="S COM=$P($T(@(""T5""_QT)),U,2)" 
31 F I=12,13 I $D(@("^"_Q_"BA(I)")),+$P(^(I),D)=KC D E1 G 4
33 F I=14,15 I $D(@("^"_Q_"BA(I)")) S IN2="" F J=1:1 S IN2=$O(@("^"_Q_"BA(I,IN2)")) Q:'$L(IN2)  I +^(IN2)=KC D E1 G 4
 ;
4 G YZ:Q1'="AR",YZ:'$D(@("^"_Q_"BA(20)")),YZ:'$P(^(20),D) S X6="S COM=$P($T(@(""T5""_QT)),U,3)"
41 F I=1:1:5,"B","G","L","V" I $D(@("^"_Q_"BA(20,I)")),(+$P(^(I),D)=KC) D E1 G YZ
 ;
YZ K IN2,UGL,US,ID,IN,X6,KC Q
 ;
E1 S POS=FP,COM=$P($T(@("T2"_QT)),U,2) X:$L(X6) X6 S:'MSG ^HULP(Q1,QQ,KC,T)=COM,T=T+1 I MSG S K=COM D F1
E1Z S FP=POS,OK=0 K POS Q
 ;
S1 I ID=1,$L(US),$D(@("^"_QQ_UGL_"(KC,US)")) D E1 G S1Z
S1A I ID=1,'$L(US) S Z1=KC S:"PM,PL,PH"[UGL Z1=Z1_" " I $D(@("^"_QQ_UGL_"(Z1)")) D E1 G S1Z
S1B I ID'?1N,$L(US),$L(IN),$D(@("^"_QQ_UGL_"(0,US,ID)")),(+$P(^(ID),D,IN#100)=KC) D E1 G S1Z
S1C G S1Z:ID=1,S1Z:ID'?1N S Z1=""
S1D S Z1=$O(@("^"_QQ_UGL_"(Z1)")) G S1Z:'$L(Z1) S Z2=""
S1E I ID=2 G S1D:'$D(@("^"_QQ_UGL_"(Z1,KC)")) D E1 G S1Z
S1F S Z2=$O(@("^"_QQ_UGL_"(Z1,Z2)")) G S1D:'$L(Z2) S Z3=""
S1G I ID=3 G S1F:'$D(@("^"_QQ_UGL_"(Z1,Z2,KC)")) D E1 G S1Z
S1H S Z3=$O(@("^"_QQ_UGL_"(Z1,Z2,Z3)")) G S1F:'$L(Z3)
S1I I ID=4 G S1H:'$D(@("^"_QQ_UGL_"(Z1,Z2,Z3,KC)")) D E1 G S1Z
S1Z K Z1,Z2,Z3 Q
 ;
S2 G S2H:'$L(US) S KC1=$S(UGL'="PV":0,'$D(@("^"_Q_"BA(20)")):0,1:$P(^(20),D,3)) 
S2A S KC1=$O(@("^"_QQ_UGL_"(KC1)")) G S2Z:KC1="" S:UGL'="PV" UR=""
S2B I UGL="PV" S US=$O(@("^"_QQ_UGL_"(KC1,US)")) G S2A:'$L(US) S UR=""
S2C S UR=$O(@("^"_QQ_UGL_"(KC1,US,UR)")) G S2A:'$L(UR)&(UGL'="PV"),S2B:'$L(UR) S UZ=$S(Q1="AR":100,1:0)
S2D S UZ=$O(@("^"_QQ_UGL_"(KC1,US,UR,UZ)")) G S2C:'$L(UZ),S2C:Q1'="AR"&(UZ>100)
S2E I Q1'="AR" F R98=1:1 S IN=$P(R99,"#",R98) G S2G:'$L(IN) I UZ=(IN\100),$P(^(UZ),D,IN#100)=KC D E1 G S2Z
S2F I Q1="AR" F R98=1:1 S IN=$P(R99,"#",R98) G S2G:'$L(IN) I +$P(^(UZ),D,IN#100)=KC D E1 G S2Z
S2G G S2D
S2H S UR=0
S2I S UR=$O(@("^"_QQ_UGL_"(UR)")) G S2Z:'$L(UR),S2I:'$D(^(UR,IN\100-1))
S2J I $P(^(IN\100-1),D,IN#100)=KC D E1 G S2Z
S2K G S2I
S2Z K UR,UZ,R98 Q
 ;
S3 S X7="W",X10=0
S3A S X7=$O(@("^"_QQ_Q1_"(I1,X7)")) G S3Z:$E(X7)'="W" S X8=^(X7) G S3A:'$D(@("^"_QQ_UGL_"($E(X7,2,99),0)"))
S3B I +$P(^(0),D,12)!'MSG D E1 G S3Z
S3C I 'X10 S R="K\22\3\"_$P($T(@("T4"_QT)),U,2)_"\1\\"".-""[K",X10=1 D R0 S FP=2203 W @F,@F1,$P($T(@("T1"_QT)),U,3) I K="-"!'$L(K) S OK=0 G S3Z
S3D I $L($P(X8,D)),$D(@("^"_QQ_"PR($P(X8,D),X7)")) K ^(X7)
S3E S X8=$P(@("^"_QQ_UGL_"($E(X7,2,99),0)"),D,8),X9="" F I=1:1:$L(X8) I $E(X8,I)'?1P S X9=X9_$E(X8,I)
S3F S X9=X9_" " K @("^"_QQ_Q1_"(I1,X7)"),@("^"_QQ_UGL_"($E(X7,2,99))"),@("^"_QQ_"PC(X9)") G S3A
S3Z K X7,X8,X9,X10 Q
 ;
R0 S R0=$P(R,D,5) I $L(R0),R0'["""" S $P(R,D,5)=R0_"^"_$T(+0)
R0A S R0=$P(R,D,7) I $L(R0),R0'="DCTR" S $P(R,D,7)="",R1=$P(R,D,8),R0=$P($T(@R0),U,2,99) S:$L(R1) R0=R0_"&("_R1_")" S $P(R,D,8)=R0
R0Z S $P(R,D,12)=$T(+0) K R0,R1 D ^cA100 Q  ; v11 30.05.94
 ;
F1 S R=250
F2 X ^cTXT(0,$E(QT_"N"),R) R K
FZ K R Q
 ;
Z X ^cZ Q
ZZ ; 05.02.01 - 16 u 23 * V7.84