cA610 ;OPENEN GELDLADE ; [ 02/21/00  3:21 PM ]
 ;
T0 ;Openen geldlade ;
 ;
T0F ;Ouverture tiroir de caisse ;
 ;
T0E ;Openen geldlade ;
 ;
1 S RZR=$ZR G YZ:'$L(KSR),YZ:$P(@("^"_Q_"BA(19,VC)"),D,2)=""
11 S K=$P(^(VC),D,2)
12 X:K="B" F111 X:K="C" F112 X:K="P" F113 G YZ:"BCP"[K
13 S POORT=$P(@("^"_Q_"BA(19,0)"),D,$P(K,"O",2))
14 I '(POORT#1*10),KSR="K2" O POORT U POORT W $C(0),$C(1) H 1 W $C(0) C POORT G YZ
140 I '(POORT#1*10),KSR="K3" O POORT U POORT W "O" C POORT G YZ
15 S N=POORT#1*10,NN=1 F I=1:1:N-1 S NN=NN*2
17 I KSR="K2" O (POORT\1) U (POORT\1) W $C(NN) H 1 W $C(0) C (POORT\1)
19 I KSR="K3" S X="",$P(X,$C(NN),128)=$C(NN) O (POORT\1) U (POORT\1) W X,$C(0) C (POORT\1)
 ;
YZ S K=$D(@RZR) K K,RZR,POORT,NN,N Q
 ;
Z X ^cZ Q
ZZ ; 05.02.01 - 16 u 23 * V7.84