KPE30 G 10 ;WIJZIGEN PRODUCTEN ;OVERLAY NAAR KPE31,KPE32,KPE33,KPE34,%PE35,KPE36,KPE01 [ 11/08/2002  11:22 AM ]
 ;
T2 ;ALGEMEEN;BESTELHOEVEELHEDEN;BESTELREFERENTIE;LEVERANCIER;KLASSIFIKATIE;EWMS;HALFFABRIKATEN
T3 ;WIJZIGEN VAN SCHERM NR : 
T4 ;x[] = scherm 1
T5 ;D[] = deelprodukten   
T6 ;6[] = klassifikaties
T7 ;5[] = leveranciers   
T8 ;O[] = OPENEN   
T9 ;W[] = WIJZIGEN   V[] = VERWIJDEREN   
T10 ;-[] = einde
T13 ;$P("KLASSIFIKATIE\LEVERANCIER",D,SW+1)
T14 ;  H[] = HOOFD
T15 ;$P("KLASSIFIKATIE\"_$P(MK,D,2),D,SW+1)
T16 ;$P("\  [] = VERVOLG",D,VVE+1)_"  "
T17 ;([] = vorig   )[] = volgend   
 ;
SC S PCC=$$COMPR^PRODUKT(PR)
SCZ Q
 ;
SA(U4) N R
 S R="Scherm "_U4_": "_$P($T(T2),U,$F("1235647",U4))
 S FP=250 W @F,@FMTB,$J(R,30),@FMTb
 Q
 ;
10 N OldValue
 K @("^HBPWP"_$J)
 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 SW69=$D(@("^"_Q_"PR(0,""PNR"")")),Y=$N(@("^"_Q_"PR(0,"" "")")),Y=" " S:$D(^(3)) X3=^(3)
17 S Y=$N(^(Y)) I Y'=-1 S @Y=^(Y) G 17
20 S U=";",X=100,PNT=".............................................",BS="\\\\\\\\\\\\\\\\\\\\\\\\\\"
30 S (SW1,SW10,Z)=0,(SW2,SW4,SW6)=1,Y=@("^"_Q_"PR(0,1)"),RVW=$P($P($T(+1),U,2)," ",1)
40 I ($N(^(SW4+1*100)))\100=(SW4+1) S SW4=SW4+1 G 40
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,OldValue D ^KPE01 G YZ:I1="-"
 D FETCHPR^UTILI(PR) M OldValue=B  K B
95 I $D(LElement) S Element=LElement
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)
 S I=$O(@("^"_Q_"PR(I1,""I"")")),R="" I $E(I)="I" S R=^(I)
 S SRTKEYKT=$P(R,D,5)
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 @F,@F5,": " S FP=$P(A(U1),U,2)*100+$P(A(U1),U,3)
140 W @F S U4=U4+1 W $J(U4,2),@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_"PR(I1)"):2 E  X ^cTXT(0,"N",163) R Y G 90
 I $D(Screen) S U5=Screen G 317
305 I $D(Aktie),$L(Aktie) D  G YZ:$D(EXTERN) D NEXT G YZ:I1="-",95
 . D:$D(X3) @X3
 . Do Gewijzigd^PRODUKT2(PR)
 . D:'$D(EXTERN) MailHaefele^PRODUKT(PR,"W",.OldValue),PRBS(PR,.OldValue)
 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),$P($T(T17),U,2),$P($T(T10),U,2),@F0
315 S FP=2228+F60 W @F R U5 S U5=$S(U5=6:"K",U5=5:"L",1:U5)
 I $L(U5)=1,"()"[U5 S Aktie=U5 S U5="-"
317 G 305:U5?.E1C.E,305:$L(U5)>1
 I U5="-" D  G YZ:$D(EXTERN),90:'$D(Aktie) D NEXT G 90:I1="-",95
 . D:$D(X3) @X3
 . Do Gewijzigd^PRODUKT2(PR)
 . D:'$D(EXTERN) MailHaefele^PRODUKT(PR,"W",.OldValue),PRBS(PR,.OldValue)
319 G 305:U5="",630:U5="D"&($P(^(0),D,25)),330:"KL"[U5,305:U5<1!(U5>SW4),305:U5'?1N
 I U5=2,'$$ASK^vhWACHTW("PRODUKT") K Element G 305
320 S Screen=U5 D ^KPE31 G 305
330 I U5="L",'$$ASK^vhWACHTW("PRODUKT") K Element G 305
 S Screen=U5,SW10=1,FP=2203+F60,HI2="I" S:U5="L" HI2="J"
 I $D(Element) S K="W" G 342
 D  G 342
 .I $E($O(@("^"_Q_"PR(I1,HI2)")))=HI2 S K="W"
 .E  S K="O"
 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
342 G 340:K="",330:K?.E1C.E,300:K="-",330:$L(K)>1!("OVW"'[K)!('$D(@("^"_Q_"PR(I1,HI2)"))&("O"'[K))
345 D SA($S(U5="L":5,1:6))
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)="*" " *"
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
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="-",266: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 G 305
400 I K="O" S LN=LN-1 D ^KPE32 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 ^KPE33 G 255:VVE!('VVE&($D(T(2)))),280
630 S Screen=U5 D ^KPE36 S SW10=0 G 305
 ;
 ;
YZ K @("^HBPWP"_$J) Q
 ;
NEXT 
 N I2
 S I2=$$NEXT^PRODUKT($S($P($G(sRef("SELPR")),D)="L":"L",1:"K"),PR,$S(Aktie="(":-1,1:1))
 I $L(I2) S (PR,I1,K1)=I2
 E  S I1="-"
 S KN=3,SW2=1,(A,SW8,SW9,SW10)=0
 L  S (U4,SW7)=0 K A,B,Aktie
 Q
 ;
 ; Herrekenen van de moeders indien PPL gewijzigd
PRBS(KPRNr,OldValue)
 Quit  ; Tijdelijk afgesloten
 New R,J,OldCifPPL,NewCifPPL,SortKey,Count,MPRNr,PRBS
 Do:$D(^PRBS("IP",KPRNr))
 . Set OldCifPPL=$J($P(OldValue("J"),D,23),0,2)
 . Set J=$O(^KPR(KPRNr,"J")),NewCifPPL=$J($P(^KPR(KPRNr,J),D,23),0,2)
 . Set OldCifPPL=$$EXTNUM^vhLib.DataTypes(OldCifPPL,0,".",2),NewCifPPL=$$EXTNUM^vhLib.DataTypes(NewCifPPL,0,".",2)
 . Quit:NewCifPPL=OldCifPPL
 . Do STORE^vhTERMINA()
 . Do PRBSLIST(KPRNr,.SortKey)
 . Set Count=0,SortKey=""
 . For  Set SortKey=$O(SortKey("S",SortKey)) Quit:SortKey=""  Do
 . . Set MPRNr=SortKey("S",SortKey)
 . . Set Count=Count+1,SortKey("L",Count)=MPRNr
 . Kill SortKey("P"),SortKey("S")
 . Do INIT^vhLIST("KPE30","PRBS",.PRBS)
 . Do:Count<15
 . . Set R=PRBS("POS")
 . . Set $P(R,";")=12-(Count\2),$P(R,";",3)=$P(R,";")-1+Count,PRBS("POS")=R
 . . Set $P(PRBS("SET"),"`")=R
 . Do WRITE^vhLIST(.PRBS)
 . For  Set Input=$$SCROLL^vhLIST(.PRBS) Quit:Input="A"
 . Do REFRESH^vhTERMINA()
 Quit
 ;
 ; Lijst van de moeders van een produkt
PRBSLIST(KPRNr,SortKey)
 New MPRNr
 Set MPRNr=""
 For  Set MPRNr=$O(^PRBS("IP",KPRNr,MPRNr)) Quit:'MPRNr  Do
 . Quit:'$D(^KPR(MPRNr))  Quit:$P(^KPR(MPRNr,1),D,25)  ; Onbekend of non-actief
 . Set SortKey=$$SORTKEY^PRODUKT(MPRNr),SortKey("S",SortKey)=MPRNr
 . If '$D(SortKey("P",KPRNr,MPRNr)) Set SortKey("P",KPRNr,MPRNr)="" Do PRBSLIST(MPRNr,.SortKey)
 Quit