cPE49 G 1 ; STOCKWIJZIGINGEN ; OVERLAY NAAR %PE46
 ;
T1 ;REFERTE : ......
T2 ;$P("NEEN\JA",D,$P(B1,D,7)+1)
T3 ;GEEF HET CORRECTIE AANTAL
T4 ;"aantal[] = in   of   aantal-[] = uit"
T5 ;NEEN
T6 ;WIJZIGEN CUMUL : .
T7 ; [] = ja   N[] = neen
T8 ;[] = REGISTRATIE OK   ,[] = HERNEMEN
T9 ;EVEN GEDULD, A.U.B.
T10 ;PRODUKTNUMMER 
T11 ;PRODUKTOMSCHR.
T12 ;LIGGING       
T13 ;AANKOOPPRIJS  
T14 ;VERKOOPPRIJS  
T15 ;PROMOTIE      
T16 ;OUDE STOCK    
T17 ;PROMOTIEPRIJS 
T18 ;CORRECT. AANT.
T19 ;PROMOTIESTOCK 
T20 ;NIEUWE STOCK  
T21 ;HET PRODUKT IS VERVANGEN DOOR PRODUKT 
T22 ; [] = OK 
T23 ;KEUZE
T24 ;"[] = correctie in   .[] = aankoop";"[] = correctie uit   .[] = verkoop"
T25 ;AANKOOP;VERKOOP;CORRECTIE IN;CORRECTIE UIT
 ;
ER G:$ZE["<INTERRUPT>" ^II G ^cER
 ;
R0 S R7=1 S:$P(R,D,8)'="" R7=R7_"&("_$P(R,D,8)_")" S:$P(R,D,7)'="" R7=R7_"&("_$P($T(@$P(R,D,7))," ",2,99)_")"
R0A S R2=$P(R,D,2),R3=$P(R,D,3),R4=$P(R,D,4),R5=$P(R,D,5),R6=$P(R,D,6)
R0B S R0=$L(R4)+R3+3 S FP=R2*100+R3+F60 W @F W:R3<4 @F1 W @F2,R4," : " I R5'="" W:R5["""" !,?2,@R5 D:R5'["""" @R5
R0C S FP=R2*100+R0+F60 W @F,@F2,$E("........................................",1,R6),@F,@F0
R0D R K W @F2 I $L(K)'>R6,K'[D&(K'?.E1C.E),@R7 S @$P(R,D,1)=K
R0E E  G R0C
R0F S FP=$P(R,D,9)*100+($P(R,D,10)*1) I FP W @F,$J("",R6),@F,K
R0Z K R,R0,R2,R3,R4,R5,R6,R7 Q  ;V5 02.01.86
 ;
PR I $L($P(C(J),U,8)) X "S U3="_$P(C(J),U,8) S K=U3
PRZ W K Q
 ;
1 S DAG=DJ\10_(DM\10)_DD_(DM#10)_(DJ#10),Y=$D(@("^"_Q_"PR(0,"" "")")),Y=" ",SPRM=0 I $D(^(10)) S SPRM=+$P(^(10),D,1)
3 S Y=$N(^(Y)) G 300:Y=-1 S @Y=^(Y) G 3
300 S Y=99
310 S Y=$N(^(Y)) G 320:Y=-1!(Y>999) S I=$P(^(Y),U,16) S:I=106 C(I)=^(Y) S:I=107 C(I)=^(Y) S:I=119 C(I)=^(Y) S:I=208 C(I)=^(Y) G 310
320 F I=106,107,119,208 I '$D(C(I)) S C(I)=";;;;;;;;6;;1;"
4 S X=$D(@("^"_Q_"BA(18)"))
5 S X=$N(^(18,-1)) F X=0:1:9 S:$D(^(X)) PBTW(X)=$P(^(X),D,1) S:$D(^(X+10)) PTXT(X)=$P(^(X+10),D,1)
 ;
6 S K=$P($T(+1),U,2)_QN_" ",FP=203+$L(K) W @F61,@F11,@F1,@F,@F5 S FP=202 W @F,@F4,K,@F5
7 S FP=502 W @F,@F1,$P($T(T1),U,2),@F0 S FP=512 W @F R UIN G 7:UIN?.E1C.E!(UIN="") Q:"-,"[UIN  G 7:$L(UIN)>6
10 S (UL,UD)="15\17",DAI=$E(DJ,1,2)_$P(DT,".",3)_$P(DT,".",2)_$P(DT,".",1),FP=402 W @F,@F1 D 100
 ;
12 D ^cPE120 G YZ:PR="-" S FP=1601 W @F,@F1 S Q0="^"_Q_"PR(PR)",Q1="^"_Q_"PR(PR,0)"
14 I '$D(@Q0) X ^cTXT(0,"N",88) R K G 12
16 L @Q0:2 E  X ^cTXT(0,"N",108) H 3 G 12
18 S B0=@Q1,B1="\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\" S:$D(^(1)) B1=^(1) S AKP=$P(B0,D,19),VKP=$P(B0,D,7),STK=$P(B0,D,14),BTW=$P(B0,D,5),MRK=" " I $D(^("J")) S X="J" F Y=1:1 S X=$N(^(X)) Q:$E(X,1)'="J"  S:$P(^(X),D,35)="*" MRK=$P(^(X),D,2)
180 S PRM=$P(B1,D,7),PRV=$P(B0,D,23) I '$L(PRV) G 19
181 S FP=2403+F60 W @F,@F4,$P($T(T21),U,2),$P(@("^"_Q_"PR(PRV,0)"),D,1),$P($T(T22),U,2),@F5,@F0 R K S PR=PRV G 14
19 S FP=420 W @F,@F2,$P(B0,D,1) S FP=520 W @F,@F2,$P(B0,D,2) S FP=620 W @F,@F2 S K=$P(B0,D,6),J=106 D PR S FP=820 W @F,@F2 S K=AKP,J=119 D PR S FP=920 W @F,@F2 S K=VKP,J=107 D PR
190 I SPRM S FP=1157 W @F,@F2,@$P($T(T2),U,2) S FP=1257 W @F,@F2 S K=$P(B1,D,8),J=208 D PR S FP=1357 W @F,@F2,$P(B1,D,9)
191 S FP=1120 W @F,$J("",18),@F,+STK F FP=1220:100:1420 W @F,$J("",18)
24 S R="ATLX\22\3\"_$P($T(T3),U,2)_D_$P($T(T4),U,2)_"\7\\K?.N!(K?.N1""-"")&K!(K=""-"")\" D R0 G 12:K="-" S:ATLX["-" ATLX=-ATLX S FP=1220 W @F,$J("",18),@F,ATLX S FP=1320 W @F,$J("",18),@F,STK+ATLX
25 S FP=1701,R="UAV\22\3\"_$P($T(T23),U,2)_D_$P($T(T24),U,ATLX<0+2)_"\1\\"",-.""[K" W @F,@F1 D R0 G 24:K="-"!(K=",")
250 S FP=1703 W @F,$P($T(T25),U,UAV=""*2+(ATLX<0)+2),@F2
26 I SPRM S FP=1157 W @F,@F2,$P($T(T5),U,2) S FP=1257 W @F,@F2,0 S FP=1357 W @F,@F2 S K=0,J=208 D PR
8 S FP=2203 W @F,@F1,$P($T(T6),U,2),!,?1,$P($T(T7),U,2),@F0 S FP=2220 W @F R UWC G 8:UWC?.E1C.E,9:"N"[UWC,24:UWC=",",25:UWC="-" G 8
9 S:UWC="" UWC=1 S:UWC="N" UWC=0
28 S R="K\22\3\"_$P($T(T8),U,2)_"\\1\\"",-""[K\\" D R0 G 26:K="-",12:K=","
30 I ATLX>0 S R=DAI_(UAV=""*2+(ATLX<0)+1)_D_ATLX_D_AKP_D_UWC_D_VKP_D_D_D_UIN_D_D_D D R20^cPE48 G 75
32 S K=PBTW(BTW#10) S:BTW>10 K=K+PTXT(BTW\10) S K=$J(-ATLX*VKP/(K/100+1),0,0),R=DAI_(UAV=""*2+(ATLX<0)+1)_D_(-ATLX)_D_D_UWC_D_K_D_D_D_UIN_D_D_D_DT_D D R10^cPE48
33 S @Q1=$P(@Q1,D,1,6)_D_VKP_D_$P(^(0),D,8,18)_D_AKP_D_$P(^(0),D,20,99),^(1)=$P(^(1),D,1,6)_D_D_0_D_0_D_$P(^(1),D,10,99)
75 L  S S="*" I PRM S S="P"
77 I ATLX<0 G 218
205 L @("^"_Q_"PE"):2 E  S FP=2403 W @F,@F4,$P($T(T9),U,2),@F5,@F0 H 3 G 205
210 S ENR=0 S:$D(@("^"_Q_"PE(0)")) ENR=^(0)
215 I $P(B1,D,2) S ENR=ENR+1,@("^"_Q_"PE(ENR)")=$P(B0,D,1)_D_MRK_D_$P(B0,D,2)_D_VKP_D_(STK+ATLX)_D_S_D_$E(DAG,3,8),^(0)=ENR
217 I '$P(B1,D,2) S ENR=ENR+1,@("^"_Q_"PE(ENR)")=$P(B0,D,1)_D_MRK_D_$P(B0,D,2)_D_VKP_D_1_D_S_D_$E(DAG,3,8),^(0)=ENR
218 I $D(@("^"_Q_"PR(0,11)")) X ^(11)
220 S @%Q1=1 L  G 12
 ;
YZ Q
 ;
100 F FP=417:100:1517,1056:100:1556 W @F,@F5
101 S FP=402 W @F,@F4,$P($T(T10),U,2),@F5,":"
102 W !,?1,@F4,$P($T(T11),U,2),@F5,":"
103 W !,?1,@F4,$P($T(T12),U,2),@F5,":"
104 W !!,?1,@F6,$P($T(T13),U,2),@F9,":"
105 W !,?1,@F6,$P($T(T14),U,2),@F9,":"
106 W !!,?1,@F6,$P($T(T16),U,2),@F9,":",$J("",20) I SPRM W @F6,$P($T(T15),U,2),@F9,":"
107 W !,?1,@F92,$P($T(T18),U,2),@F93,":",$J("",20) I SPRM W @F6,$P($T(T17),U,2),@F9,":"
108 W !,?1,@F6,$P($T(T20),U,2),@F9,":",$J("",20) I SPRM W @F6,$P($T(T19),U,2),@F9,":"
 ;
199 Q
 ;
Z X ^cZ Q
ZZ ; 07.08.86 - 14 u 24