KPE31 G 10 ;WIJZIGEN PRODUKTEN - SCHERM 1-X ;OVERLAY VAN KPE30 [ 03/06/2003  10:45 AM ]
 ;
T4 ;WIJZIGEN VAN ELEMENT NR : 
T5 ;([] = vorig   )[] = volgend   
T6 ;W[] = HERREKENEN DEKKINGSBIJDRAGE
T7 ;-[] = einde
 ;
SC S PCC=$$COMPR^PRODUKT(PR)
SCZ Q
 ;
SPC S PNC=$$TRIMIDENT^vhRtn1(PNC) ;[IDENT] CW
 S PNC=PNC_" "
SPCZ 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)
 ;
10 S SW2=U5
 D SA^KPE30(SW2)
15 S I2=0,B(1)=@("^"_Q_"PR(I1,I2)")
 F I=1:1:5 I $D(^(I)) S B(I+1)=^(I)
 F I=6:1:15 S B(I+1)=$G(^(I))
 S occ=$$UPTRIMAN^vhRtn1($P(B(1),D))
20 K A S (X,K)=SW2*100,Y=$D(@("^"_Q_"PR(0,0)")) S FP=601 W @F,@F1 I SW2>1 S K=K+2
30 S X=$N(^(X)) G 40:X=-1!(X>((SW2+1)*100)) S K=K+1,A(K)=^(X) G 30
40 S SW7=0,U4=2,U1=SW2*100+2
50 S U1=$N(A(U1)) G 90:U1<0 S U2=A(U1),X=$P(U2,U,16) S:'$D(B(X\100)) B(X\100)=BS S U3=$P(B(X\100),D,X#100),K=U3 X:$L($P(U2,U,8)) "S U3="_$P(U2,U,8)
60 S FP=$P(U2,U,5)*100+$P(U2,U,6)-3 W:'$P(U2,U,23) @F,@F5,": "
 S FP=$P(U2,U,2)*100+$P(U2,U,3) S:'$P(U2,U,22) FP=FP+2
70 W @F S U4=U4+1 W:$P(U2,U,22) $J(U4,2) W:'$P(U2,U,23) @F6,$P(A(U1),U,1),@F5
80 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 50
90 I $D(Element) S U1=Element K Element G 100      
 S FP=2103+F60 W @F,@F1,$P($T(T4),U,2),!?2,$P($T(T5),U,2),$P($T(T7),U,2),@F0
 I SW2=2 W !?2,$P($T(T6),U,2)
 S FP=FP+$L($P($T(T4),U,2)) W @F R U1
 I $L(U1)=1,"()"[U1 S Aktie=U1 S U1="-"
 I SW2=2,U1="W" D WINST G 10
100 G 90:U1?.E1C.E!($L(U1)>2)
 G 190:U1="-",90:U1="",90:'$D(A(U1+(SW2*100)))
 S LScreen=Screen,LElement=U1,U2=A(U1+(SW2*100)),U7=$P(U2,U,16)
 I U7=101!(U7=220) S PC=$P(B(1),D,1),STNS=$P(B(2),D,20) D SC S OCC=PCC
105 I SW69&(U7=325) S PNC=$P(B(3),D,25) D SPC S OPNC=PNC
110 I $P(U2,U,12),@$P(U2,U,15) X ^cTXT(0,"N",69) R Y G 90
115 I $L($P(U2,U,19)),@$P(U2,U,20) D  G 90:K="-",190:$L($G(Aktie)),164:U7'=220 S X=1 G 150
 .X $P(U2,U,19)
 .S:$D(Aktie) Aktie=""
 .I $L(K),"()"[K S Aktie=K
120 S FP=2103+F60 W @F,@F1,$P(U2,U,1)," : " W:$L($P(U2,U,10)) !?2,$P(U2,U,10)
 W !?2,$P($T(T5),U,2)
130 
 S %R=21,%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)
 S:'ln ln=1,X=""
 Do ^vhINP
 S K=X G 130:K?.E1C.E,90:K="-"
 I $L(K)=1,"()"[K S Aktie=K G 190
133 S Y="1" S:$L($P(U2,U,21)) Y="("_$P($T(@$P(U2,U,21)),U,2,99)_")" G 120:$P(Y,",",1)="$L(K)"&(K="") I @Y G 140
135 E  G 120
140 S X=$P(U2,U,11) S:'$L(X) X=1 S X=X_"&'(K[D)&($L(K)'>$P(U2,U,9))"
150 I @X G 164:U7'=101&(U7'=220),120:K=""&(U7=101) D  G 170:U7'=101,170:occ=pcc,120:'$$CHECKKT^PRODUKT2(PC),120:'$$ValidateFromBNode^PRODUKT(PR,.B,PC),170
 .S PC=$P(B(1),D) S:U7=101 PC=K
 .S STNS=$P(B(2),D,20) S:U7=220 STNS=K
 .D SC
 .S pcc=$$UPTRIMAN^vhRtn1(PC)
 G 120
164 G 170:'(SW69&(U7=325)),120:K="" S PNC=K D SPC G 169:$D(@("^"_Q_"PR2(PNC)"))&(OPNC'=PNC) S @%Q1=0 K @("^"_Q_"PR2(OPNC)") S ^(PNC)=I1_D_K
166 G 168:'$D(@("^"_Q_"PR(PR,""J5005"")")) S PLF=^("J5005"),^("J5005")=$P(PLF,D,1,2)_D_$P(K,".",2,99)_D_$P(PLF,D,4,99)
167 S PLR=$P(PLF,D,1)_" ",PLM=$P(PLF,D,2)_" ",PLF=$P(PLF,D,3)_" ",@("^"_Q_"PL(PLR,PLM,$P(K,""."",2,99)_"" "",PCC)")=PR K @("^"_Q_"PL(PLR,PLM,PLF,PCC)"),PLR,PLM,PLF
168 S @%Q1=1 G 170
169 X ^cTXT(0,"N",12) R Y G 120
170 S U3=K 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
180 S X=$P(U2,U,16)\100,Y=$P(U2,U,16)#100,$P(B(X),D,Y)=K
 I $P(U2,U,16)=101 D KLEUR
 S U2=""
 G 90
190 N C
 M C=B D LOGPRNR^PRODUKT(PR,.C)
 K U1,U2,U3,U7 S @%Q1=0 D DELIND^PRODUKT2(PR)
 S I2=0,X="^"_Q_"PR(I1,I2)=B(1)",@X
 F I=1:1:5 S ^(I)=B(I+1)
 F I=6:1:15 D
 .I $TR(B(I+1),D,"")'="" S ^(I)=B(I+1)
 .E  K ^(I)
 D BLDIND^PRODUKT2(PR)
 S @%Q1=1
YZ K A,occ,pcc Q
 ;
SCALC 
 N B
 D ONE^PRSCALC(I1,1)
 Q
 ;
WINST 
 N A
 S (@%Q1,I2)=0,X="^"_Q_"PR(I1,I2)=B(1)",@X F I=1:1:6 I $D(^(I)) S ^(I)=B(I+1)
 S @%Q1=1
 S Locals("I1")=I1
 D DO^vhPROGRAM("SCALC^KPE31")
 S I2=0,X="B(1)=^"_Q_"PR(I1,I2)",@X F I=1:1:6 I $D(^(I)) S B(I+1)=^(I)
 S (X,K)=100,U4=0,Y=$D(@("^"_Q_"PR(0,0)"))
 F  S X=$N(^(X)) Q:X'?.N!(K=102)  S K=K+1,A(K)=^(X)
 S U1=100,FP=301 W @F,@F1
 F  S U1=$N(A(U1)) Q:U1=-1  D
 .S FP=$P(A(U1),U,5)*100+$P(A(U1),U,6)-3 W @F,@F5,": " S FP=$P(A(U1),U,2)*100+$P(A(U1),U,3)
 .W @F S U4=U4+1 W $J(U4,2),@F6,$P(A(U1),U,1),@F5
 .S U2=A(U1),X=$P(U2,U,16),U3=$P(B(X\100),D,X#100),K=U3 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
 Q
 ;
KLEUR 
 New K,PR,U1,U2,U3
 Set U1=""
 For  Set U1=$O(A(U1)) Quit:U1=""  Do
 .Set U2=A(U1)
 .Quit:$P(U2,U,8)'["OMSCHR^PRKLEUR"
 .Set K=""
 .Xecute "Set U3="_$P(U2,U,8)
 .Set FP=$P(U2,U,5)*100+$P(U2,U,6)
 .Write @F,$J("",$P(U2,U,9)+$P(U2,U,13)),@F,U3
 Q
 ;