cA271 ;UITGESTELD VERWIJDEREN ;%A270 ;do naar %A27* ;
 G 1
 ;
T0 ;Uitgesteld verwijderen ;
T1 ;Nr.;x1;opmerking;magazijn;
T2 ;Keuze\".[] = uitvoeren   vx[] = verwijderen   P[] = drukken   D[] = detail";
T3 ;Laatst uitgevoerd op ;
T4 ;Er werd niets klaargesteld om te verwijderen ! ;
T5 ;Keuze\"[] = vervolg   -[] = keuzemogelijkheden";
T6 ;Verwijderen ;"V[] = definitief verwijderen";
T7 ;Alles werd verwijderd ! ;
 ;
T0F ;Annulations différées ;
T1F ;N°;x1;remarque;magasin;
T2F ;Choix\".[] = démarrer   vx[] = annulation ligne x   P[] = éditer   D[] = détail";
T3F ;Dernière annulation ;
T4F ;Rien prêt pour annuler !;
T5F ;Choix\"[] = suite   -[] = retour à sélection";
T6F ;Annulation ;"V[] = annulation définitive";
T7F ;Tout a été annulé ! ;
 ;
T0E ;Uitgesteld verwijderen ;
T1E ;Nr.;x1;opmerking;magazijn;
T2E ;Keuze\".[] = uitvoeren   vx[] = verwijderen   P[] = drukken   D[] = detail";
T3E ;Laatst uitgevoerd op ;
T4E ;Er werd niets klaargesteld om te verwijderen ! ;
T5E ;Keuze\"[] = vervolg   -[] = keuzemogelijkheden";
T6E ;Verwijderen ;"V[] = definitief verwijderen";
T7E ;Alles werd verwijderd ! ;
 ;
1 S K=$P($T(@("T0"_QT)),U,2)_$P(@("^"_Q_Q1_"(0,0)"),U)_" "_QN_" ",FP=203+$L(K) W @F61,@F11,@F1,@F,@F5 S FP=202 W @F,@F4,K,@F5 
10 D S8 I '$L($O(^HULP(Q1,Q,0))) D E1 S K="-" G YZ
11 D S1 S R="401\1879",RH="601#679",RV="405#1805" S:V2 RV=RV_D_(406+V2)_"#"_(1806+V2) S:V4 RV=RV_D_(407+V2+V3)_"#"_(1807+V2+V3) D ^cA319
13 F I=1:1 Q:'$L($P($T(@("T1"_QT)),U,I+1))  S @("I"_I)=$S(I=2:X1,1:$P($T(@("T1"_QT)),U,I+1))
15 S J=4,I=1 D S3 L ^HULP(Q1,Q):2 E  S R=14 D F2 S K="-" G YZ
 ;
2 S QQ=Q,T=1,XQ=MAG K UTA
21 S PR=0 I $D(^HULP(Q1,QQ,0)) S FP=302 W @F,@F2,$P($T(@("T3"_QT)),U,2),^(0)
23 S PR=$O(^HULP(Q1,QQ,PR)) G 3:'$L(PR) S X=""
25 I T=12 D S4 G 4:K="-" K UTA S T=1,Y=X,Y=$O(^HULP(Q1,QQ,PR,Y)) G 23:'$L(Y)
27 S X=$O(^HULP(Q1,QQ,PR,X)),UTA(T)=QQ_D_PR_D_PR_D_$S($L(X):^(X),1:""),T=T+1
28 I Q1="PR" S $P(UTA(T-1),D,3)=$P(@("^"_QQ_Q1_"(PR,0)"),D)
29 I T<12 G 27:$L($O(^HULP(Q1,QQ,PR,X))),23
 ;
3 I $L(XQ) S QQ=$P(XQ,D),XQ=$P(XQ,D,2,999),PR=0 G 23:$L(QQ),3
31 S J=6 F I=1:1:11 D S6:$D(UTA(I)) I '$D(UTA(I)) S (I1,I2,I3,I4,PR)="" D S3
33 G 25:T=12
 ;
4 S R="K\22\3\"_$P($T(@("T2"_QT)),U,2)_"\3\\""-,.PD""[K!(K?1""V""1N.N)&$L(K)" D R0 G YZ:K="-"!(K=","),2:K="D"
41 I $E(K)="V" S I=+$E(K,2,3) G 4:'$D(UTA(I)) S X=UTA(I) D  G 4:$D(UTA),10
410 .S R="K\22\3\"_$P($T(@("T6"_QT)),U,2)_I_" => "_$P(X,D,3)_D_$P($T(@("T6"_QT)),U,3)_"\1\\""V-""[K&$L(K)" D R0
411 .I K="V" K ^HULP(Q1,$P(X,D),$P(X,D,2)) S (I,I1,I2,I3,I4)="",J=6 F  S I=$O(UTA(I)) Q:I=""  I $P(UTA(I),D,2)=$P(X,D,2) K UTA(I) D S3
43 I K="." D ^cA272 G 11:$L($O(^HULP(Q1,Q,0))) D E2 G YZ
45 I K="P" D ^cA273
 ;
YZ K I,I1,I2,I3,I4,J,PR,QQ,T,UTA,V1,V2,V3,V4,X,Y L  Q
 ;
S1 S V1=3,(V2,V4)=0,MAG=$G(@("^"_Q_Q1_"(0,""MAG"")")) F S1=1:1 S QQ=$P(MAG,D,S1) Q:'$L(QQ)  D S2 I $D(^(0)) S S3=$L($P(^(0),U)) I S3>V4 S V4=S3
S1A S QQ=Q D S2 S V3=V1+3+$S(V2:V2+1,1:0),V3=79-V3-$S(V4:V4+1,1:0)
S1Z K S1,S3 Q
 ;
S2 S S2=$O(@("^"_QQ_Q1_"(0,$G(S2,99))")) I $E(S2)=1,$P(^(S2),U,16)'=101 G S2
S2A I $E(S2)=1 S X1=$P(^(S2),U) S:$P(^(S2),U,9)>V2 V2=$P(^(S2),U,9) S:$L(X1)>V2 V2=$L(X1)
S2Z K S2 Q
 ;
S3 S FP=J+I*100+2 W @F,$J(I1,V1) S FP=FP+V1+1 W:V2 @F,I2,$J("",V2-$L(I2)) S:V2 FP=FP+V2+1 W @F,$E(I3,1,V3),$J("",V3-$L(I3))
S3A S FP=FP+V3+1 W:V4 @F,$S('$L(I4):$J(I4,V4),'$D(@("^"_I4_Q1_"(0,0)")):$E(I4,1,V4),1:$E($P(@("^"_I4_Q1_"(0,0)"),U),1,V4))
S3Z Q
 ;
S4 I '$L($O(^HULP(Q1,QQ,PR,X))),'$L($O(^HULP(Q1,QQ,PR))) S K="-"
S4A E  S R="K\22\3\"_$P($T(@("T5"_QT)),U,2)_"\1\\""-""[K" D R0
S4Z Q
 ;
S6 I $P(UTA(I),D)=I4&($P(UTA(I),D,2)=PR) S (I2,I4)="" G S6B
S6A S I2=$P(UTA(I),D,3),I4=$P(UTA(I),D)
S6B S I1=I,PR=$P(UTA(I),D,2),I3=$P(UTA(I),D,4) D S3 S I4=$P(UTA(I),D)
S6Z Q
 ;
S8 S S1=$O(^HULP(Q1,Q,$G(S1,0))) G S8Z:S1=""
S8A I Q1="AR"!(Q1="ARA")!(Q1="BL") K:'$D(@("^"_Q_Q1_"(S1_"" "",0)")) ^HULP(Q1,Q,S1) G S8
S8B I Q1="PR"!($E(Q1,1,2)="PW") K:'$D(@("^"_Q_Q1_"(S1,0)")) ^HULP(Q1,Q,S1) G S8
S8C K:'$D(@("^"_Q_Q2_"(S1)")) ^HULP(Q1,Q,S1) G S8
S8Z K S1 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
 ;
E1 S K=$P($T(@("T4"_QT)),U,2) D F1 Q
E2 S K=$P($T(@("T7"_QT)),U,2) D F1 Q
 ;
Z X ^cZ Q
ZZ ; 05.02.01 - 16 u 23 * V7.84