KPCAK G 1 ;MODULE COMMERCIEEL AKTIEF;KPCAK; [ 09/19/97  11:36 AM ]
 ;
T1 ;[] = ja   1[] = neen   2[] = beperkt
T2 ;HET PRODUKT IS NOG IN VOORRAAD
T3 ;HET PRODUKT IS NOG IN BESTELLING
T4 ;ER IS NOG GERESERVEERD OP DIT PRODUKT
T5 ;ER IS NOG GEBOEKT OP DIT PRODUKT
T6 ; DEFINITIEF
T7 ;[] = ja definitief   1[] = neen definitief
 ;
R0 S R7="K'[D&(K'?.E1C.E)" S:$P(R,D,8)'="" R7=R7_"&("_$P(R,D,8)_")" S:$P(R,D,7)'="" R7=R7_"&("_$P($T(@$P(R,D,7))," ",2,99)_")"
R0A S R2=$P(R,D,2),R3=$P(R,D,3),R4=$P(R,D,4),R5=$P(R,D,5),R6=$P(R,D,6)
R0B S R0=$L(R4)+R3+3 S FP=R2*100+R3+F60 W @F W:R3<4 @F1 W @F2,R4," : " I R5'="" W:R5["""" !,?2,@R5 D:R5'["""" @R5
R0C S FP=R2*100+R0+F60 W @F,@F2,$E("........................................",1,R6),@F,@F0
R0D R K W @F2 I $L(K)'>R6,@R7 S @$P(R,D,1)=K
R0E E  G R0C
R0F S FP=$P(R,D,9)*100+($P(R,D,10)*1) I FP W @F,$J("",R6),@F,K
R0Z K R,R0,R2,R3,R4,R5,R6,R7 Q  ;V4 03.10.84
 ;
S2 S U2=A(U1),X=$P(U2,U,16) S:'$D(B(X\100)) B(X\100)="\\\\\\\\\\\\\\\\\\\\\\\\\" S (K,U3)=$P(B(X\100),D,X#100) I $L($P(U2,U,8)) X "S U3="_$P(U2,U,8)
S2A 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
S2Z Q
 ;
M1 S MSG=$P($T(T2),U,2) G MY
M2 S MSG=$P($T(T3),U,2) G MY
M3 S MSG=$P($T(T4),U,2) G MY
M4 S MSG=$P($T(T5),U,2) G MY
M5 S MSG="" G MY
MY S FP=2403+F60 W @F,@F2,@F4,MSG W:$L(MSG) "  " W "[] = ok ",@F5,@F0 R K S K="-"
MZ K MSG Q
 ;
1 N ES,EO,ET,FPTemp
 S R="K\21\3\"_$P(U2,U,1)_"\"""_$P($T(T1),U,2)_"""\1\\""-12""[K" D R0
 G YZ:"\KP25\%PE23\KPE31\"'[(D_PROG_D)
 I K="",$P(B($P(U2,U,16)\100),D,$P(U2,U,16)#100) S R=$$^vhTXTPOP("PRODUKT","ACTIVATE")
 G YZ:"-2"[K
 S ES=$$CHECKDEL^PRODUKT2(PR,"S")
 S EO=$$CHECKDEL^PRODUKT2(PR,"O")
 S ET=$$CHECKDEL^PRODUKT2(PR,"T")
 I $L(ES)!$L(EO)!$L(ET) D  Q
 .S FP=2102 I $L(EO)!$L(ET) S FP=2202
 .F I="S","O","T" I $L(@("E"_I)) S FP=FP-100
 .S FPTemp=FP
 .W @F,@F1
 .F I="S","O","T" I $L(@("E"_I)) S FP=FP+100 W @F,@("E"_I)
 .D M5
 .S FP=FPTemp
 .W @F,@F1
11 G M2:+$P(B(1),D,17),M3:+$P(B(3),D,9),M4:$D(@("^"_Q_"PR(PR,""W"")"))
12 S R="K\22\3\"_$P(U2,U,1)_$P($T(T6),U,2)_"\"""_$P($T(T7),U,2)_"""\1\\""-1""[K" D R0
 I K="",$P(B($P(U2,U,16)\100),D,$P(U2,U,16)#100) S R=$$^vhTXTPOP("PRODUKT","ACTIVATE")
 G YZ ;:"-"[K
13 S SU2=U2,$P(B(2),D,25)=1,K=$P(B(3),D,25) I $E(K,$L(K))'="#" S K=K_"#",$P(B(3),D,25)=K
15 F I=102,111,122,125,212:1:222,302:1:308,421,423,501:1:503,601:1:603 S $P(B(I\100),D,I#100)=""
17 S U1=100
19 S U1=$N(A(U1)) I U1>0 D S2 G 19
2 S K=@("^"_Q_"PR(PR,0)"),K="J"
21 S K=$N(^(K)) G 25:$E(K,1)'="J" S U2=^(K) F I=6,7,9,14:1:17,19:1:21,23:1:28 S $P(U2,D,I)=""
23 S ^(K)=U2 G 21
25 S I="D"
27 S I=$N(@("^"_Q_"PR(PR,I)")) I $E(I,1)="D" K ^(I) S K="E"_PR K @("^"_Q_"PR($E(I,2,99),K)") K:$E($N(^("E")),1)'="E" ^("E") G 27
29 K:$E($N(^("D")),1)'="D" ^("D") S I="E"
3 S I=$N(@("^"_Q_"PR(PR,I)"))
31 I $E(I,1)="E" K ^(I) S K="D"_PR K @("^"_Q_"PR($E(I,2,99),K)") G 3:$E($N(^("D")),1)="D" K ^("D") S K=^(0),$P(K,D,25)="",^(0)=K G 3
33 K:$E($N(^("E")),1)'="E" ^("E") S U2=SU2,K=1 S:PROG="KPE31" K="-" K SU2
 ;
YZ K PROG Q
 ;
 ; De moeders commercieel niet-actief bij het verwijderen van een der kinderen
OnDeleteProduct(PRNr)
 New MPRNr
 Set MPRNr=""
 For  Set MPRNr=$O(^PRBS("IP",PRNr,MPRNr)) Quit:MPRNr=""  Do
 . Lock +^KPR(MPRNr)
 . Do DELIND^PRODUKT2(MPRNr)
 . Set $P(^KPR(MPRNr,1),D,25)=1
 . Do BLDIND^PRODUKT2(MPRNr)
 . Lock -^KPR(MPRNr)
 Quit