cPE45 G 1 ;INBOEKEN BEGINSTOCK ;%PE45; OVERLAY NAAR %P01
 ;
T1 ;"[] = idem als vorige verkoopprijs"
T2 ;"[] = idem als vorige aankoopprijs"
T3 ;NIEUWE AANKOOPPRIJS
T4 ;NIEUWE VERKOOPPRIJS
T5 ;GEEF DE TOTALE BEGINSTOCK
T6 ;EVEN GEDULD, A.U.B. 
T7 ;[] = REGISTRATIE OK   ,[] = HERNEMEN
T8 ;PRODUKTNUMMER   
T9 ;OMSCHRIJVING    
T10 ;LIGGING         
T11 ;AANKOOPPRIJS    
T12 ;VERKOOPPRIJS    
T13 ;OUDE TOT. STOCK 
T14 ;PROMOTIE        
T15 ;BEGINSTOCK      
T16 ;NIEUWE TOT.STOCK
T17 ;PROMOTIE PRIJS  
T18 ;PROMOTIE STOCK  
T19 ;"[] = nee   1[] = ja"
T20 ;PROMOTIE
T21 ;GEEF DE PROMOTIEPRIJS
T22 ;GEEF DE PROMOTIESTOCK
T23 ;"[] = alle   xxx[] = aantal"
T24 ;"[] = oude stock"
T25 ;HET PRODUKT IS VERVANGEN DOOR PRODUKT 
T26 ; [] = ok 
 ;
ER G ^II:$ZE["<INTERRUPT>",^cER
 ;
R0 S R7="K'[D&(K'?.E1C.E)" 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 W $E("........................................",1,R6),@F,@F0
R0D R K W @F2 I $L(K)'>R6,@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  ;V4 03.10.84
 ;
PR I $L($P(C(J),U,8)) X "S U3="_$P(C(J),U,8) S K=U3
PR1 W K
PRZ Q
 ;
 ;
SC3 W !,?2,$P($T(T1),U,2) Q
SC4 W !,?2,$P($T(T2),U,2) Q
 ;
1 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
13 S DAG=DJ\10_(DM\10)_DD_(DM#10)_(DJ#10),X=$N(@("^"_Q_"BA(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)
15 S Y=$N(@("^"_Q_"PR(0,"" "")")),Y=" ",(SPRM,PRM)=0 I $D(^(10)) S SPRM=+$P(^(10),D,1)
16 D 100
17 S Y=$N(^(Y)) G 19:Y=-1 S @Y=^(Y) G 17
 ;
19 S Y=99
21 S Y=$N(^(Y)) G 23: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 21
23 F I=106,107,119,208 I '$D(C(I)) S C(I)=";;;;;;;;6;;1;"
 ;
3 S FP=1601,UL=15,UD=D_17 W @F,@F1 D ^cPE120 G YZ:PR="-" S FP=1601,SW=0 W @F,@F1
30 S Q0="^"_Q_"PR(PR)",Q1="^"_Q_"PR(PR,0)"
31 I '$D(@Q0) X ^cTXT(0,"N",88) R K G 3
35 L @(Q0):2 E  X ^cTXT(0,"N",108) H 3 G 3
37 S B0=@Q1 S 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)
38 S PRV=$P(B0,D,23) I '$L(PRV) G 40
39 S FP=2403+F60 W @F,@F4,$P($T(T25),U,2),$P(@("^"_Q_"PR(PRV,0)"),D,1),$P($T(T26),U,2),@F5,@F0 R K S PR=PRV G 31
40 S FP=422 W @F,@F2,$P(B0,D,1) S FP=522 W @F,@F2,$P(B0,D,2) S FP=622 W @F,@F2 S K=$P(B0,D,6),J=106 D PR S FP=822 W @F,@F2 S K=AKP,J=119 D PR S FP=922 W @F,@F2 S K=VKP,J=107 D PR
42 I SPRM S FP=1161 W @F,$J("",18),@F,$P("NEE\JA",D,$P(B1,D,7)+1) S FP=1261 W @F,$J("",18),@F S K=$P(B1,D,8),J=208 D PR S FP=1361 W @F,$J("",18),@F,$P(B1,D,9)
46 S FP=1122 W @F,$J("",18),@F,+STK
48 S (PRP,PRS)=0 F FP=1222:100:1422 W @F,$J("",18)
5 S R="AKPX\22\3\"_$P($T(T3),U,2)_D_$P($T(T2),U,2)_D_$P(C(119),U,9)_D_D_"("_$P(C(119),U,11)_")!(K="""")!(K=""-"")"_D D R0
51 G 3:K="-" S:K="" AKPX=AKP S FP=822 W @F,@F2 S K=AKPX,J=119 D PR
53 S R="VKPX\22\3\"_$P($T(T4),U,2)_D_$P($T(T1),U,2)_D_$P(C(107),U,9)_D_D_"("_$P(C(107),U,11)_")!(K="""")!(K=""-"")"_D D R0 G 5:K="-" S:K'=VKP&(K'="") SW=1 S:K="" VKPX=VKP S FP=922 W @F,@F2 S K=VKPX,J=107 D PR G 6:'SPRM
55 S R="PRM\22\3\"_$P($T(T20),U,2)_D_$P($T(T19),U,2)_"\1\\""1-""[K\" D R0 G 53:K="-" S FP=1161 W @F,@F2,$P("NEE\JA",D,K+1) I 'K S FP=1261 W @F,@F2 S FP=1361 W @F,@F2 G 6
57 S R="PRP\22\3\"_$P($T(T21),U,2)_D_D_$P(C(208),U,9)_D_D_"("_$P(C(208),U,11)_")!(K="""")!(K=""-"")"_D D R0 G 55:K="-" S FP=1261 W @F,@F2 S J=208 D PR
6 S R="ATLX\22\3\"_$P($T(T5),U,2)_D_$P($T(T24),U,2)_"\7\\K?.N!(K=""-"")\" D R0 G 57:K="-"&PRM,53:K="-"&'PRM,55:K="-" S:K="" (ATLX,K)=STK S FP=1222 W @F,$J("",18),@F,+K S FP=1322 W @F,$J("",18),@F,+K
60 I PRM,SPRM S R="PRS\22\3\"_$P($T(T22),U,2)_D_$P($T(T23),U,2)_"\4\\K?.N!(K=""-"")\" D R0 G 6:K="-" S:K="" PRS=ATLX S FP=1361 W @F,@F2,+PRS
61 S R="K\22\3\"_$P($T(T7),U,2)_"\\1\\""-,""[K\" D R0 G 3:K=",",6:K="-"
63 S @%Q1=0,X=$D(@Q1) K ^("H")
65 S ^(0)=$P(^(0),D,1,6)_D_VKPX_D_$P(^(0),D,8,11)_D_ATLX_D_DT_D_ATLX_D_$P(^(0),D,15,18)_D_AKPX_D_$P(^(0),D,20,99)
67 S ^(1)=$P(^(1),D,1,6)_D_PRM_D_PRP_D_PRS_D_$P(^(1),D,10,23)_D_$S(SW:DT,1:$P(^(1),D,24))_D_$P(^(1),D,25,99)
69 S X=$N(^("H")) I $E(X,1)="H" K ^(X) G 69
71 S X=$N(^("L")) I $E(X,1)="L" K ^(X) G 71
73 S ^("L"_(DJ#100)_DM_DD)=ATLX_D_+VKPX_D_ATLX_D_+AKPX_D
75 L  S S="*" I VKPX=VKP S S=""
205 L @("^"_Q_"PE"):2 E  S FP=2403 W @F,@F4,$P($T(T6),U,2),@F5,@F0 H 3 G 205
210 S ENR=0 S:$D(@("^"_Q_"PE(0)")) ENR=^(0)
212 I '$P(B1,D,2) S ENR=ENR+1,@("^"_Q_"PE(ENR)")=$P(B0,D,1)_D_MRK_D_$P(B0,D,2)_D_VKPX_D_1_D_S_D_$E(DAG,3,8),^(0)=ENR
215 I $P(B1,D,2),ATLX>0 S ENR=ENR+1,@("^"_Q_"PE(ENR)")=$P(B0,D,1)_D_MRK_D_$P(B0,D,2)_D_VKPX_D_(+ATLX)_D_S_D_$E(DAG,3,8),^(0)=ENR ;-PRS
217 ;I $P(B1,D,2),PRM S ENR=ENR+1,@("^"_Q_"PE(ENR)")=$P(B0,D,1)_D_MRK_D_$P(B0,D,2)_D_"P"_VKPX_D_+PRS_D_"P"_D_$E(DAG,3,8),^(0)=ENR
218 I $D(@("^"_Q_"PR(0,11)")) X ^(11)
220 S @%Q1=1 L  G 3
 ;
YZ Q
 ;
100 F FP=419:100:1591,1058:100:1558 W @F,@F5
101 S FP=402 W @F,@F4,$P($T(T8),U,2),@F5,":"
102 W !,?1,@F4,$P($T(T9),U,2),@F5,":"
103 W !,?1,@F4,$P($T(T10),U,2),@F5,":"
104 W !!,?1,@F6,$P($T(T11),U,2),@F9,":"
105 W !,?1,@F6,$P($T(T12),U,2),@F9,":"
108 W !!,?1,@F6,$P($T(T13),U,2),@F9,":",$J("",20) I SPRM W @F6,$P($T(T14),U,2),@F9,":"
111 W !,?1,@F92,$P($T(T15),U,2),@F93,":",$J("",20) I SPRM W @F6,$P($T(T17),U,2),@F9,":"
112 W !,?1,@F6,$P($T(T16),U,2),@F9,":",$J("",20) I SPRM W @F6,$P($T(T18),U,2),@F9,":" Q
113 Q
 ;
Z X ^cZ Q
ZZ ; 26.05.86 - 18 u 20