cPE126 ;BEHEER INVENTARIS ;%PE126; Do naar %PE01 [ 03/06/2002  4:52 PM ]
 G 1
 ;
T1 ;INVENTARIS
T2 ;S T O C K  : 
T3 ;KEUZE
T4 ;[] = vervolg   
T5 ;W[] = wijzigen   V[] = verwijderen   .[] = nieuwe
T6 ;LIJNNUMMER
T7 ;VERWIJDEREN
T8 ;V[] = definitief verwijderen
T9 ;DATUM
T10 ;PRIJS
T11 ;GELEVERD
T12 ;STOCK
T13 ;KUMUL STOCK (;) NIET GELIJK AAN STOCK (;)  [] = ok 
T14 ;[] = 
 ;
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)),U,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),R8="",$P(R8,".",R6)="."
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,@F2,@R5 D:R5'["""" @R5
R0C S FP=R2*100+R0+F60 W @F,@F2,R8,@F,@F0 R K W @F2 I $L(K)'>R6,K'["""",K'[D,K'?.E1C.E,@R7 S @$P(R,D,1)=K
R0D E  G R0C
R0E S FP=$P(R,D,9)*100+$P(R,D,10) I FP W @F,$J("",R6),@F,K
R0Z K R,R0,R2,R3,R4,R5,R6,R7,R8 Q  ;V7 06.10.87
 ;
C1 W !?2,$P($T(T14),U,2),K Q
 ;
S1 S K4=$P(LDL,D,K3) G S1Z:'$L(K4)
S1A S K=$S('$P(K4,U,2):KX,1:$P(A,D,$P(K4,U,2))) D S2 S K3=K3+1 G S1
S1Z K K3,K4 Q
 ;
S2 S FP=LL*100+$P(K4,U,1) W @F,@$P(K4,U,3)
S2Z Q
 ;
S3 S R="K\23\3\"_$P($T(T9),U,2)_D,K=$P(A,D,2) S:$L(K) R=R_"C1",K=$E(K,6,7)_"."_$E(K,4,5)_"."_$E(K,2,3)
S3A S R=R_"\8\DCTR" D R0 G S3Z:K="-" I '$L(K),'$L($P(A,D,2)) G S3
S3B I $L(K) S K="L"_$P(K,".",3)_$P(K,".",2)_$P(K,".",1),$P(A,D,2)=K,K4=$P(LDL,D,1) D S2
S3C S R="K\23\3\"_$P($T(T10),U,2)_D,K=$P(A,D,6) S:$L(K) R=R_"C1"
S3D S R=R_D_+KPV_"\\("_$P(KPV,D,2)_")!(""-""[K)" D R0 G S3:K="-" I '$L(K),'$L($P(A,D,6)) G S3C
S3E I $L(K) S $P(A,D,6)=K,K4=$P(LDL,D,2) D S2
S3F S R="K\23\3\"_$P($T(T11),U,2)_D,K=$P(A,D,3) S:$L(K) R=R_"C1"
S3G S R=R_"\7\ACTR" D R0 G S3C:K="-" I '$L(K),'$L($P(A,D,3)) G S3F
S3H I $L(K) S $P(A,D,3)=K,K4=$P(LDL,D,3) D S2
S3I S R="K\23\3\"_$P($T(T12),U,2)_D,K=$P(A,D,5) S:$L(K) R=R_"C1"
S3J S R=R_"\7\ACTR" D R0 G S3F:K="-" I '$L(K),'$L($P(A,D,5)) G S3I
S3K I $L(K) S $P(A,D,5)=K,K4=$P(LDL,D,4) D S2
S3Z Q
 ;
S4 S K=""
S4A I $D(^($P(A,D,2)_K)) S K=K+1 G S4A
S4B S LL=+A,K=$P(A,D,2)_K,$P(A,D,2)=K,B(LNR)=A,A=$P(A,D,3,99),^(K)=A,K3=1,FP=LL*100+3 W @F,@F2
S4C S X=KX,KX=K D S1 S KX=X
S4Z Q
 ;
S5 S FP=2201+F60 W @F,@F1
S5Z 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
11 S X=$N(@("^"_Q_"PR(0,0)")),X=" "
13 S X=$N(^(X)) I X'=-1 S @X=^(X) G 13
15 S RVW=$P($T(T1),U,2) F I=20:1:24 I $D(^(I)) S K=I#10,@("L"_$S(K=0:"DL",K=1:"DL1",K=2:"TL",K=3:"WL",1:"WL1"))=^(I)
17 S KPV="6\K?.N&$L(K)",X=100 F I=1:1 S X=$N(^(X)) Q:X=-1!(X>999)  S K=^(X) I $P(K,U,16)=107 S KPV=$P(K,U,9)_D_$P(K,U,11) Q
19 S PD=0 S:$D(^(19)) PD=$P(^(19),D,1)
 ;
2 S @%Q1=1 K A,B D ^cPE01 G YZ:I1="-" S @%Q1=0,U1=100,X=$N(@("^"_Q_"PR(0,0)")),X=$N(^(100)),A(101)=^(X),X=$N(^(X)),A(102)=^(X)
21 S FP=301 W @F,@F1 S B(1)=@("^"_Q_"PR(I1,0)") F I=1:1:6 S $P(B(I+1),D,26)=D I $D(^(I)) S B(I+1)=^(I)
23 S U1=$N(A(U1)) G 3:U1=-1 S U2=A(U1),FP=$P(U2,U,5)*100+$P(U2,U,6)-3 W:'$P(U2,U,23) @F,@F5,":"
25 S FP=$P(U2,U,2)*100+$P(U2,U,3)+2 W @F W:'$P(U2,U,23) @F6,$P(U2,U,1),@F5
27 S X=$P(U2,U,16),(U3,K)=$P(B(X\100),D,X#100) X:$L($P(U2,U,8)) "S U3="_$P(U2,U,8)
29 S FP=$P(U2,U,5)*100+$P(U2,U,6) W @F,$J("",$P(U2,U,9)),$J("",$P(U2,U,13)),@F,U3 G 23
 ;
3 L @("^"_Q_"PR(I1)"):2 E  X ^cTXT(0,"N",163) R K G 2
31 S PST=$P(B(1),D,14),PA=$P(B(1),D,19),FP=455 W @F,$P($T(T2),U,2),PST K A,B
 ;
4 S KX="L",LT="" X LTL
41 S KX=$N(^(KX)) G 5:$E(KX,1)'="L" S A=^(KX)
43 S K3=1,LL=LL+1 G 5:LL=21 S LT=LT+1,B(LT)=LL_D_KX_D_A,FP=LL*100+1 W @F,$J(LT,2)
45 D S1 G 41
 ;
5 D S5 S R="KEU\22\3\"_$P($T(T3),U,2)_"\""" I $E(KX,1)="L" S R=R_$P($T(T4),U,2)
51 S R=R_$P($T(T5),U,2)_"""\1\\""-.WV""[K" D R0 G 9:K="-",8:K="."
53 I K="" K B X LWL D S5 G 4:$E(KX,1)'="L" X LTL G 43
 ;
6 G 5:'$D(B) S R="LNR\22\3\"_$P($T(T6),U,2)_"\\"_$L(LT)_"\\K=""-""!(K?.N&K)" D R0 G 5:K="-",6:'$D(B(K)),7:KEU="W"
61 S R="K\23\3\"_$P($T(T7),U,2)_"\"""_$P($T(T8),U,2)_"""\1\\""-V""[K&$L(K)" D R0 G 6:K="-"
63 S FP=+B(LNR)*100+5 W @F,@F2 K ^($P(B(LNR),D,2)),B(LNR) G 5
 ;
7 S A=B(LNR),LL=22,X=KX,KX=$P(A,D,2),A=$P(A,D,3,99),K3=1,FP=LL*100+1 W @F,@F1,$J(LNR,2) D S1 S KX=X
71 S A=B(LNR),$P(A,D,2)=$E($P(A,D,2),1,7) D S3 G 5:K="-" K ^($P(B(LNR),D,2)) D S4 G 5
 ;
8 S A="",$P(A,D,4)=PA_D,LL=22,K3=2 D S5,S1 S A=+B(LT)_D_D_A D S3 G 5:K="-" S LL=+A I LL>19 X LWL D S5 X LTL K B
81 S LL=LL+1,$P(A,D,1)=LL,(LT,LNR)=LT+1,FP=LL*100+1 W @F,$J(LT,2) D S4 G 5
 ;
9 S X=0,K="L"
91 S K=$N(^(K)) I $E(K,1)="L" S X=X+$P(^(K),D,3) G 91
93 G 2:X=PST S FP=2403+F60 W @F,@F2,@F4,$P($T(T13),U,2),X,$P($T(T13),U,3),PST,$P($T(T13),U,4),@F5,@F0 R K G 5
 ;
YZ Q
 ;
DCTR ;K?2N1"."2N1"."2N&($P(K,".",1)>0)&($P(K,".",2)>0)&($P(K,".",1)<32)&($P(K,".",2)<13)&'("04060911"[$P(K,".",2)&($P(K,".",1)=31))&'(+$P(K,".",2)=2&(('($P(K,".",3)#4)&($P(K,".",1)>29))!($P(K,".",3)#4&($P(K,".",1)>28))))!("-"[K)
ACTR ;K?@(".N1""."""_PD_"N")!(K?@(".N1""."""_PD_"N1""-"""))&PD!(K?.N)!(K?.N1"-")&K!("-"[K)
 ;