cPE30 G 10 ;WIJZIGEN PRODUKTEN ;OVERLAY NAAR %P31,%P32,%P33,%P34,%P35,%P36,%P0 [ 03/11/2002   4:37 PM ]
 ;
T1 ;ER BESTAAN 
T2 ;SCHERMEN.
T3 ;WIJZIGEN : 
T4 ;x[] = scherm 1
T5 ;D[] = deelprodukten   
T6 ;K[] = klassifikaties
T7 ;L[] = leveranciers   -[] = einde
T8 ;O[] = openen   
T9 ;W[] = wijzigen   V[] = verwijderen   
T10 ;-[] = einde : 
T11 ;OPENEN\VERWIJDEREN\WIJZIGEN
T12 ;KLASSIF.\LEVERANC.
T13 ;$P("klassifikatie\leverancier",D,SW+1)
T14 ;  H[] = hoofd
T15 ;$P("klassifikatie\"_$P(MK,D,4),D,SW+1)
T16 ;$P("\  [] = vervolg",D,VVE+1)_"  "
 ;
SC S SI="",T=0 F SX=1:1:99 S SX1=$E($P(B(1),D,1),SX) G SCZ:SX1="" I SX1'?1P S SI=SI_SX1
SCZ S PCC=SI_" " K SI,SX,SX1 Q
 ;
ER K @("^HBPWP"_$J) G:$ZE["<INTERRUPT>" ^II G ^cER
 ;
10 S 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)
13 S Y=$N(@("^"_Q_"PR(0,"" "")")),Y=" " S:$D(^(3)) X3=^(3)
17 S Y=$N(^(Y)) G 20:Y=-1 S @Y=^(Y) G 17
20 S U=";",X=100,PNT="........................................",BS="\\\\\\\\\\\\\\\\\\\\\\\\\\"
40 S (SW1,SW10,Z)=0,(SW2,SW4,SW6)=1,Y=@("^"_Q_"PR(0,1)"),RVW=$P($P($T(+1),U,2)," ",1)
45 I ($N(^(SW4+1*100)))\100=(SW4+1) S SW4=SW4+1 G 45
50 S FP=223+$L(QN) W @F61,@F11,@F1,@F,@F5 S FP=202 W @F,@F4,$P($T(+1),U,2),QN," ",@F5
90 L  S (U4,SW7)=0 K A,B D ^cPE01 G YZ:I1="-"
95 I SW4>1 S FP=269 W @F,@F5 S FP=255 W @F,$P($T(T1),U,2),@F4,SW4," ",@F5,$P($T(T2),U,2)
105 S (X,K)=100,Y=$D(@("^"_Q_"PR(0,0)")) S:SW2>1 K=K+2
 ;
110 S X=$N(^(X)) G 115:X'?.N!(X>((SW2+1)*100))!(K=102) S K=K+1,A(K)=^(X) G 110
115 S HI1=I1,SW1=1,U1=100,FP=501 W @F,@F1
120 G 130:SW10 S B(1)=@("^"_Q_"PR(I1,0)") F I=1:1:6 I $D(^(I)) S B(I+1)=^(I)
130 S U1=$N(A(U1))
135 G 160:U1=-1 S FP=$P(A(U1),U,5)*100+$P(A(U1),U,6)-3 W:'$P(A(U1),U,23) @F,@F5,": " S FP=$P(A(U1),U,2)*100+$P(A(U1),U,3)
140 W @F S U4=U4+1 W:$P(A(U1),U,22) $J(U4,2) W:'$P(A(U1),U,23) @F6,$P(A(U1),U,1),@F5
150 G 130:SW10&(U1'>102) 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)
155 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 130
160 S SW1=1,U4=0
 ;
300 S B(1)=@("^"_Q_"PR(I1,0)") D SC L (@("^"_Q_"PR1(PCC)"),@("^"_Q_"PR(I1)")):2 E  X ^cTXT(0,"N",163) R Y G 90
305 S FP=2103+F60 W @F,@F1,!?2,$P($T(T3),U,2)
310 K A,B W !?2,$P($T(T4),U,2) W:SW4>1 "-",SW4 W:SW4=1 "  " W $J("",5) W:$P(@("^"_Q_"PR(I1,0)"),D,25) $P($T(T5),U,2) W $P($T(T6),U,2),!?2,$P($T(T7),U,2),@F0
315 S FP=2214+F60 W @F R U5 G 305:U5?.E1C.E,305:$L(U5)>1,90:U5="-",315:U5="",630:U5="D"&($P(^(0),D,25)),330:"KL"[U5,305:U5<1!(U5>SW4),320:U5?1N,305
320 D ^cPE31 G 305
330 S SW10=1,FP=2203+F60,HI2="I" S:U5="L" HI2="J" W @F,@F1,$P($T(T8),U,2) W:$D(@("^"_Q_"PR(I1,HI2)")) $P($T(T9),U,2) W $P($T(T10),U,2),@F0
340 R K G 330:K="",330:K?.E1C.E,300:K="-",330:$L(K)>1!("OVW"'[K)!('$D(@("^"_Q_"PR(I1,HI2)"))&("O"'[K))
345 S FP=255 W @F,@F2 S FP=479 W @F,@F5 S FP=455 W @F,@F4,$P($P($T(T11),U,2),D,$F("OVW",K)-1)," ",$P($P($T(T12),U,2),D,$F("KL",U5)-1)," ",@F5,@F2
350 S X=0,HI2="I" I $D(@("^"_Q_"PR(I1,HI2)")) S X="I" G 370
360 S HI2="J" I $D(@("^"_Q_"PR(I1,HI2)")) S X="J"
370 G 380:"IJ"'[X S @("^HBPWP"_$J_"(X)")="" F Y=1:1 S X=$N(@("^"_Q_"PR(I1,X)")) G 380:X=-1!("IJ"'[$E(X,1)) S A=^(X) S @("^HBPWP"_$J_"(X)")=A
380 K A,B,T S U4=2,I2="I",(SW,C)=0 S:U5="L" I2="J",C=100,SW=1 S HI2=I2
250 G 255:K'="W" S VVE=1,X=I2,X=$N(@("^"_Q_"PR(HI1,X)")) G 330:$E(X,1)'=I2 S T(1)=X,X=$N(^(X)) G 255:$E(X,1)=I2,264
255 S FP=601 W @F,@F1 S IX=HI2,FP=$P(L,D,2)*100+4 I 'SW F I="HG","GR","SG" S (X,FP)=FP+$P(@I,D,3)+3 S:I'="HG" (X,FP)=FP+2 W @F,@F5 S FP=FP-$P(@I,D,3)-3 W @F,@F4,$P(@I,D,2),$J("",($P(@I,D,3)-$L($P(@I,D,2))+1)),@F5 S FP=X
257 I SW F I="LE","MK","LP" S (X,FP)=FP+$P(@I,D,3)+3 S:I'="LE" (X,FP)=FP+2 W @F,@F5 S FP=FP-$P(@I,D,3)-3 W @F,@F4,$P(@I,D,2),$J("",($P(@I,D,3)-$L($P(@I,D,2))+1)),@F5 S FP=X
258 K T S LN=$P(L,D,2)+1,VN=0,VVE=1,FP=LN*100+2 W @F,@F1
259 S LN=LN+1 G 264:LN=21!(K="O"&(LN=(L-1))) S VN=VN+1,IX=$N(@("^"_Q_"PR(HI1,IX)")) G 264:$E(IX,1)'=HI2 S U7=^(IX),T(VN)=IX,X=4 S FP=LN*100+1 W @F,VN
260 W:$P(U7,D,35)="*" " *" I 'SW F I=1:1:3 S FP=LN*100+X W @F,$P(U7,D,I) S X=X+$P(@($P("HG\GR\SG",D,I)),D,3)+5
262 I SW F I=1:1:3 S FP=LN*100+X W @F W:I'=1 $P(U7,D,I) W:I=1 $P(@("^"_Q_"LE(@(""^""_Q_""L1($P(U7,D,I))""),0)"),D,2) S X=X+$P(@($P("LE\MK\LP",D,I)),D,3)+5
263 G 259
264 I $D(T(1))&('$D(T(2))) S UX=1,VVE=0 G 270
265 S:$E(IX,1)'=HI2 VVE=0 G 400:K="O",280:'$D(T(2))&(K'="V")
266 S FP=2203+F60 W @F,@F1,"x[] = ",@$P($T(T13),U,2) W:K="W"&($D(T(2))) $P($T(T14),U,2),@$P($T(T15),U,2) W @$P($T(T16),U,2),$P($T(T10),U,2),@F0 R UX G 265:UX?.E1C.E,266:UX=""&'VVE,258:UX=""&VVE
267 G 500^cPE300:UX="H"&($D(T(2)))&(K="W"),266:UX="H",258:VVE&(K="O"),258:VVE&(UX=""),400:'VVE&(K="O"),280:UX="-",265:'$D(T(UX))
270 S I2=T(UX),B(1)=@("^"_Q_"PR(HI1,I2)") G 400:K'="W" S X=$D(@("^"_Q_"PR(0,0)")),X=SW4*100+100,X=$N(^(X))+C-1,K=X+2,SW2=X\100 G 400
280 S SW5=1 D:K="V" 100^cPE35 D ^cPE34 G 305
400 I K="O" S LN=LN-1 D ^cPE32,^cPE34 D 100^cPE300:'$D(T(2)) G 305
410 I K="V" D ^cPE35 G 265:VVE!('VVE&($D(T(2)))),280
420 S FP=601 W @F,@F1 D ^cPE33 G 255:VVE!('VVE&($D(T(2)))),280
630 D ^cPE36 S SW10=0 G 305
 ;
 ;
YZ Q:'$D(ESW)  D ^cPE89:ESW Q
 ;
Z X ^cZ Q
ZZ ; 27.08.85 - 15 u 30