KPE40 G 10 ;VERWIJDEREN PRODUCTEN ;OVERLAY NAAR KPE01 [ 11/08/2002  10:45 AM ]
 ;
T3 ;V[] = VERWIJDEREN              -[] = hernemen : 
T4 ;V[] = VERWIJDEREN DEFINITIEF   -[] = hernemen : 
T5 ;DIT PRODUKT KAN NIET VERWIJDERD WORDEN  [] = ok 
T6 ;T[] = TOCH VERWIJDEREN         -[] = hernemen : 
T7 ;N[] = naar raadplegen produkten
T8 ;AANVRAAG GEWEIGERD DOOR HET WMS  [] = ok
 ;
SPC S PNC=$$TRIMIDENT^vhRtn1(PNC) ;[IDENT] CW
 S PNC=PNC_" "
SPCZ Q
 ;
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 SW69=$D(@("^"_Q_"PR(0,""PNR"")")),Y=$N(@("^"_Q_"PR(0,"" "")")),Y=" " S:$D(^(4)) X3=^(4)
17 S Y=$N(^(Y)) G 20:Y=-1 S @Y=^(Y) G 17
20 S U=";",(SW2,SW4,SW5,SW6,U5)=1,(SW1,SW10,U4)=0,Y=@("^"_Q_"PR(0,1)"),RVW=$P($P($T(+1),U,2)," ",1)
 S BS="\\\\\\\\\\\\\\\\\\\\\\\\\\"
30 I ($N(^(SW4+1*100)))\100=(SW4+1) S SW4=SW4+1 G 30
 ;
60 D TITEL
90 S SW7=0 K A,B D ^KPE01 G YZ:I1="-"
91 S X=100
105 S 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)) S K=K+1,A(K)=^(X) G 110
115 S HI1=I1,SW1=1,U1=100,FP=601 W:SW5 @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)) I U1=103&(SW4>1)&('SW10)
 D SA^KPE30(SW2)
135 G 300:U1<0,150:'SW5,130:SW7&(U1'>102) 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
 ;
300 I SW69 S PNC=$P(B(3),D,25) D SPC
302 S U4=0,FP=2203+F60 W @F,@F1 S PC=$P(B(1),D,1),I1=HI1,IN2="E",X=$N(@("^"_Q_"PR(I1,IN2)")) K A F I=0,2,4:1:6 K B(I)
305 L @("^"_Q_"PR(I1)"):2 E  X ^cTXT(0,"N",163) R K G 90
310 I $E(X,1)=IN2 X ^cTXT(0,"N",113) R K G 460
 S ES=$S($P(B(1),D,23)="S":"",1:$$CHECKDEL^PRODUKT2(PR,"S"))
 S EH=$$CHECKDEL^PRODUKT2(PR,"H")
 S EO=$$CHECKDEL^PRODUKT2(PR,"O")
 S ET=$$CHECKDEL^PRODUKT2(PR,"T")
 S EP=$$CHECKDEL^PRODUKT2(PR,"P")
 S EU=$$CHECKDEL^PRODUKT2(PR,"U")
 S EZ=$$CHECKDEL^PRODUKT2(PR,"Z")
 S EB=$$CHECKDEL^PRODUKT2(PR,"B")
 S EK=$$CHECKDEL^PRODUKT2(PR,"K")
 S EW=$$CHECKDEL^PRODUKT2(PR,"W")
 S EM=$$CHECKDEL^PRODUKT2(PR,"M")
 S FP=2102 I $L(EO)!$L(ET)!$L(EP)!$L(EU)!$L(EZ)!$L(EB)!$L(EK)!$L(EW)!$L(EM) S FP=2202
 F I="S","H","O","T","P","U","Z","B","K","W","M" I $L(@("E"_I)) S FP=FP-100
 W @F,@F1
 F I="S","H","O","T","P","U","Z","B","K","W","M" I $L(@("E"_I)) S FP=FP+100 W @F,@("E"_I)
 K B(3)
 I $L(EO)!$L(ET)!$L(EP)!$L(EU)!$L(EZ)!$L(EB)!$L(EW)!$L(EM) S FP=2402 W @F,@F4,$P($T(T5),U,2),@F5 R K G 460
340 I '$L(ES),'$L(EH),'$L(EK) S FP=2303+F60 W @F,@F1,$P($T(T3),";",2),@F0 R K G 340:K?.E1C.E,460:K="-",350:K="V",340
 E  D  G 340:K?.E1C.E,460:K="-",350:K="T",340:K'="N" S K=$$RAADPL^PRODUKT(PR,1,1) D TITEL G 91
 .S FP=2303+F60 W @F,@F1,!?2,$P($T(T7),";",2),@F,$P($T(T6),";",2),@F0 R K
 .I K="T",$L(EK) D
 ..K Moeders
 ..S Moeders(PR)=$$CheckDelMoeders(PR,.Moeders)
 ..S:Moeders(PR)="A" K="-"
350 S FP=2403+F60 W @F,$P($T(T4),";",2),@F0 R K G 350:K?.E1C.E,460:K="-",360:K="V",350
 ;
360 ;I '$$CHKDEL^EWPR(PR) S FP=2402 W @F,@F4,$P($T(T8),U,2),@F5 R K G 460
 D ^KPE40B
 ;
362 D:$D(X3) @X3
 D MailHaefele^PRODUKT(PR,"X")
 ;
460 S SW1=0 L  G 90
 ;
YZ Q
 ;
TITEL S FP=226+$L(QN) W @F61,@F11,@F1,@F,@F5 S FP=202 W @F,@F4,$P($T(+1),U,2),QN," ",@F5
 Q
 ;
 ; Controle bij verwijderen en fusie van producten of de moeders verwijderd kunnen worden
CheckDelMoeders(PRNr,Moeders)
 New MPRNr,MNoDel,ES,EO,ET,EU,EK,EW,EM,CheckDel,MNoDel,PRCount,SortKey,DL,LD,Input,IsKind,IsHalfFabrikaat
 Do STORE^vhTERMINA()
 Set FP=2303 Write @F,@F1,@F4,"Controle van de moeders ",@F5
 Set FP=2403 Write @F,@F4,"Dit kan enkele seconden (minuten) duren ",@F5,@F0
 Set (MPRNr,Moeders(PRNr,"Count"))=0
 For  Set MPRNr=$O(^PRBS("IP",PRNr,MPRNr)) Quit:MPRNr=""  Set Moeders(PRNr,"Count")=Moeders(PRNr,"Count")+1
 Set FP=2449 Write @F,"Producten verwerkt: ","0/",Moeders(PRNr,"Count")
 Set (MPRNr,MNoDel,PRCount,IsKind,IsHalfFabrikaat)=0
 For  Set MPRNr=$O(^PRBS("IP",PRNr,MPRNr)) Quit:MPRNr=""  Do
 . Set:'IsKind IsKind=$e($o(^PRBS("IP",PRNr,MPRNr,"KIND.")),1,4)="KIND"
 . Set:'IsHalfFabrikaat IsHalfFabrikaat=$e($o(^PRBS("IP",PRNr,MPRNr,"PROD.")),1,4)="PROD"
 . Set ES=$$CHECKDEL^PRODUKT2(MPRNr,"S")
 . Set EO=$$CHECKDEL^PRODUKT2(MPRNr,"O")
 . Set ET=$$CHECKDEL^PRODUKT2(MPRNr,"T")
 . Set EU=$$CHECKDEL^PRODUKT2(MPRNr,"U")
 . Set EK=$$CHECKDEL^PRODUKT2(MPRNr,"K")
 . Set EW=$$CHECKDEL^PRODUKT2(MPRNr,"W")
 . Set EM=$$CHECKDEL^PRODUKT2(MPRNr,"M")
 . If $L(ES)!$L(EO)!$L(ET)!$L(EU)!$L(EK)!$L(EW)!$L(EM) Do
 . . Set MNoDel=MNoDel+1,SortKey=$$SORTKEY^PRODUKT(MPRNr),MNoDel(SortKey)=MPRNr_D_''$L(ES)_D_''$L(EO)_D_''$L(ET)_D_''$L(EU)_D_''$L(EK)_D_''$L(EW)_D_''$L(EM)
 . Set PRCount=PRCount+1
 . If '(PRCount#100) Set FP=2449 Write @F,"Producten verwerkt: ",PRCount,"/",Moeders(PRNr,"Count")
 Do REFRESH^vhTERMINA()
 If MNoDel Do
 . Do INIT^vhLIST("KPE40","CHKMDEL",.LD),RENUMBER^vhLIST(.LD),WRITE^vhLIST(.LD)
 . For  Do  Quit:Input="CANC"
 . . Set Input=$$SCROLL^vhLIST(.LD)
 . . Do:Input="COM" CALL^vhMenu("CHKMDEL")
 . . Do EXEC^vhMenu("CHKMDEL",.Input)
 . Set CheckDel="A"
 Else  Set CheckDel=$$^vhTXTPOP("KPE40","FUSIE","",$P(^KPR(PRNr,0),D),Moeders(PRNr,"Count"))
 Quit CheckDel
 ;