KPE10 G 1 ;OPENEN PRODUCTEN ;KPE10;DO naar KPE100 [ 03/07/2003  2:38 PM ]
 ;
T3 ;OP ELKE INGAVE KAN U MET  ,[] TERUG NAAR HET BEGIN
T4 ;-[] TERUG NAAR DE VORIGE RUBRIEK       [] = ok 
T6 ;[] = VOLGEND SCHERM   O[] = OPENEN 
T7 ;DEELPROD. 
T8 ;KLASSIF. LEVER. : 
 ;
S2 S FP=$P(U2,U,5)*100+$P(U2,U,6) W:'SW5!(SW5&SW6) @F,$J("",$P(U2,U,9)),$J("",$P(U2,U,13)) G S2Z:'SW5!(U1<103&SW6)
S2A I '$P(U2,U,23) S FP=FP-3 W @F,@F9,":"
S2B S FP=$P(U2,U,2)*100+$P(U2,U,3) W:$P(U2,U,22) @F,$J(U1#100,2) I '$P(U2,U,23) S FP=FP+2 W @F,@F6,$P(U2,U,1),@F9
S2Z Q
 ;
1 S @%Q1=1,PNT=".............................................",Q0="^"_Q_"PR(0,1)",Q2="^"_Q_"PR(PR,I-1)"
3 S Y=$N(@("^"_Q_"BA(18,-1)")) F Y=0:1:9 S:$D(^(Y)) PBTW(Y)=$P(^(Y),D,1) S:$D(^(Y+10)) PTXT(Y)=$P(^(Y+10),D,1)
5 S SW69=$D(@("^"_Q_"PR(0,""PNR"")")),Y=$N(@("^"_Q_"PR(0,"" "")")),Y=" " S:$D(^(2)) X3=^(2) S:SW69 Q3="^"_Q_"PR2(PNC)"
7 S Y=$N(^(Y)) G 11:Y=-1 S @Y=^(Y) G 7
11 S Y=100,U=";",BS="\\\\\\\\\\\\\\\\\\\\\\\\\\",(SW1,SW3,SW4,SW6)=0,(SW2,SW5)=1
13 I ($N(^(SW4+1*100)))\100=(SW4+1) S SW4=SW4+1 G 13
15 S Y=$N(^(Y)) I Y>0 S X=$P(^(Y),U,16)\100 S:X>SW3 SW3=X G 15
17 S K=$P($T(+1),";",2)_QN_" ",FP=203+$L(K) W @F61,@F11,@F1,@F,@F5 S FP=202 W @F,@F4,K,@F5
21 S FP=2203+F60 W @F,$P($T(T3),";",2)
23 S FP=2329+F60 W @F,$P($T(T4),";",2),@F0 R K G YZ:K="-"
25 K SRTKEYKT F X=1:1:SW3 S B(X)=BS
27 D S1,SA^KPE30(SW2)
29 S U1=$N(A(U1)) I U1>0 S U2=A(U1) D S2 G 29
31 S SW6=1 D ^KPE100 G YZ:K="-"
 S:'$$ValidateFromBNode^PRODUKT(,.B) K=","
 G 93:K=",",73
 ;
33 S (SW2,SW5)=1,FP=601 W @F,@F1 D S3 G 27
35 S SW5=1,SW2=SW2+1,FP=601 W @F,@F1 D S3 F X=1:1:SW3 S B(X)=@("^"_Q_"PR(PR,X-1)")
37 G 27
 ;
73 G 83:SW2>1
75 S PR=$$NEXTID^PRODUKT()
 D LOGPRNR^PRODUKT(PR,.B)
 S SRTKEYKT=$$ALFASRT^PRODUKT($P(B(1),D))_D_$P(B(2),D,20)
77 L @("^"_Q_"PR(PR)")
 ;
83 S @%Q1=0 F I=1:1:SW3 S @Q2=B(I)
 F I=SW3+1:1:9 I $TR($G(B(I)),D,"")'="" S @Q2=B(I)
 Do Gemaakt^PRODUKT2(PR)
85 S @%Q1=1
87 G 101:SW1 S FP=2203+F60 W @F,@F1,$P($T(T6),";",2) W:$P(B(1),D,25) $P($T(T7),";",2) W $P($T(T8),";",2),@F0 R K G 87:K?.E1C.E,35:K="",101:K="O",87:K'="."
89 F X=1:1:SW3 S B(X)=BS
91 G 95:SW2>1 S U1=101
93 S U1=$N(A(U1)) I U1>0 S U2=A(U1) D S2 G 93
95 G 31:SW2=1!(U4=","),33
 ;
101 K A,B S I=1 D:$P(@Q2,D,25)'="" ^KPE11
102 I $D(@("^"_Q_"PR(PR)")) D
 .D ^KPE12 D:$D(X3) @X3 
 .S I=$O(@("^"_Q_"PR(PR,""I"")"))
 .I $E(I)="I" S R=^(I)
 .E  S I="I1",R="",$P(R,D,36)=D
 .S $P(R,D,5)=$P(SRTKEYKT,D),^(I)=R
 .D MailHaefele^PRODUKT(PR,"N") ; Mail naar Haefele
103 S FP=301 W @F,@F1 S SW5=1,SW6=0,(K,X)=100,SW2=1 G 25
 ;
YZ Q
 ;
S1 S SW1=$N(@("^"_Q_"PR(0,SW2+1*100)")),SW1=(SW1=-1!(SW1>999))
 S Y=SW2+1*100
 I 'SW1 S X=$O(^(Y)) I X S X=^(X),SW1='$L(X)
 S (X,K)=SW2*100,K=SW2>1*2+K,U1=K
S1A S X=$N(^(X)) I X>0,X<Y S K=K+1,A(K)=^(X) G S1A
S1Z Q
 ;
S3 S X=102
S3A S X=$N(A(X)) I X>0 K A(X) G S3A
S3Z Q
 ;