KPE100 G 1 ;OPENEN PRODUKTEN ;;OVERLAY VAN KPE10 [ 11/06/2001  3:13 PM ]
T1 ;[] = ok
T2 ;[] = OPENING OK   ,[] = HERNEMEN   xx[] = WIJZIGEN RUBRIEK xx : 
 ;
1 S SW5=0,U1=SW2*100 L:SW2=1  G 15
 ;
13 S U1=U1-2 S:U1#100<3 K="" G 67:U1<-1
15 S U1=$N(A(U1)) G 67:U1=-1 S U1S=U1,U2=A(U1),U7=$P(U2,U,16),B(U7)="" S:K'="-" K=""
17 I $L($P(U2,U,4)),@$P(U2,U,4) S U3="" G 13:K="-" S X=1 G 33
19 I K'="-",$L($P(U2,U,7)),@$P(U2,U,14) X "S K="_$P(U2,U,7) G 55
21 I $L($P(U2,U,17)),@$P(U2,U,18) X $P(U2,U,17) S (U3,B(U7))=K G 51
23 I $L($P(U2,U,19)),@$P(U2,U,20) X $P(U2,U,19) G 55
25 S FP=2203+F60 W @F,@F1,$P(U2,U,1)," : ",$E(PNT,1,$P(U2,U,9)) W:$L($P(U2,U,10)) !,?2,$P(U2,U,10)
27 
 ;S FP=2200+F60+$L($P(U2,U,1))+6 W @F,@F0 R K G 25:K?.E1C.E I K="-" G YZ:U1=101,13
 S %R=22,%C=F60+($L($P(U2,U,1))+6),ln=$P(U2,U,9)
 K prompt
 S X=$P(B($P(U2,U,16)\100),D,$P(U2,U,16)#100)
 Do ^vhINP
 S K=X G 25:K?.E1C.E I K="-" G YZ:U1=101,13
29 I K="," S U1=SW2*100 G YZ
31 S X=$P(U2,U,11) S:'$L(X) X=1 S X=X_"&'(K[D)&($L(K)'>$P(U2,U,9))"
33 S:$L($P(U2,U,21)) X="("_X_")&("_$P($T(@$P(U2,U,21)),";",2,99)_")" G 25:$P(X,",",1)="$L(K)"&(K="")
 I @X S B(U7)=K,U3=K S:U7=101 PR=B(U7) G 73:U7=325,57:'(U7=101&(K'=""))
35 E  G 25
 ;
41 L (@Q0):2 E  X ^cTXT(0,"N",14) R K S U1=U1-1 G 15
43 I '$$CHECKKT^PRODUKT2(K) S U1=U1-1 G 15
 I '$$ValidateFromBNode^PRODUKT(,.B,K) S U1=U1-1 G 15
45 G 57
 ;
51 S FP=2203+F60 W @F,@F1,$P(U2,U,1)," : ",$E(PNT,1,$P(U2,U,9))
53 S FP=2200+F60+($L($P(U2,U,1))+6) W @F,K,!,?2,$P($T(T1),";",2) S FP=2206+F60+$L($P(U2,U,1)) W @F,@F0 R K G 51:K?.E1C.E,57:K=""
55 S (U3,B(U7))=K G 29:K="," I K="-" G YZ:U1=101,13
 ;
57 X:$L($P(U2,U,8)) "S U3="_$P(U2,U,8) 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
59 S X=U7\100,Y=U7#100 S:'$D(B(X)) B(X)=BS S:(Y-1) B(U7)=D_B(U7) S B(X)=$P(B(X),D,1,Y-1)_B(U7)_D_$P(B(X),D,Y+1,99)
 I $P(U2,U,16)=101 D KLEUR^KPE31
61 K B(U7) G 15:U1>0
 ;
67 S FP=2203+F60 W @F,@F1,$P($T(T2),";",2),@F0 R K
69 G 67:K?.E1C.E,29:K=",",71:K?.N&K,YZ:K="",67:K'="-" S U1=U1S-1 G 15
71 S K=SW2*100+K G 67:'$D(A(K)) S U2=A(K),U7=$P(U2,U,16),(B(U7),K)="" G 17:'(U7=101!(U7=325)),67
 ;
73 S PNC=$$TRIMIDENT^vhRtn1(K) ;[IDENT] CW
 S PNC=PNC_" "
 ;
77 I $D(@Q3) X ^cTXT(0,"N",12) R K S U1=U1-1 G 15
79 G 57
 ;
YZ S U4=K Q
 ;
BRCTR ;($E(K,1,5)#97*100000+$E(K,6,10)#97-$E(K,11,12)=0!($E(K,1,5)#97*100000+$E(K,6,10)#97-$E(K,11,12)=-97)&(K?12N))!(K="")!'($P(B(1),D,6)?4N)
 ;
BNCTR ;(97-($E(K,1,7)#97)=+$E(K,8,9)&(K?9N))!(K="")!(K="000000000")!'($P(B(1),D,6)?4N)
 ;
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)
 ;
Z X ^cZ Q
ZZ ; 21.04.88 - 12 u 32