Index: ORGALUX.mac.rou
===================================================================
diff -u -r919 -r1134
--- ORGALUX.mac.rou	(.../ORGALUX.mac.rou)	(revision 919)
+++ ORGALUX.mac.rou	(.../ORGALUX.mac.rou)	(revision 1134)
@@ -2,10 +2,7 @@
 ORGALUX ;Verwerking Orgalux [ 12/27/2003  12:40 PM ]
  ;
 ISORGAL(PRNr) ; Is het een orgalux product
- New Key
- Set Key=$O(^KPR(PRNr,"I"))
- Quit:$E(Key)'="I" 0
- Quit $P(^KPR(PRNr,Key),"\",1)["OL"
+ Quit $$ISORGAL^PRODUKT2(PRNr)
  
 IsIntivo(PRNr)
 	Quit $P($G(^KPR(PRNr,0)),"\")?1(1"OL.I",1"OL.TI",1"OL.FW").E
@@ -142,6 +139,65 @@
  ;
  ; Stockupdate van een moeder met stock overkinderen
 STOCKUPDMoeder(MPRNr) 
+ New R,ScanTyp,MFysSt,KFysSt,Reserv,Faktor,KPRNr,QtyOld,QtyNew,Sleutel
+ ; Fysstock toekennen aan de moeders vertrekkend van de min. stock van de kinderen
+ Quit:$$$ProductGet(MPRNr,$$$LinkType)'="S"  ; Stock over kinderen
+ 
+ ;Quit:'$$ISORGAL^PRODUKT2(MPRNr)
+ Set R=^KPR(MPRNr,0),ScanTyp=$P(R,D,24)
+ ;Quit:ScanTyp=""
+ Kill MFysSt
+ Set KPRNr=""
+ /* [PRA 2011-05-05] Niet nodig wegens geen update van de reservaties op de kinderen.
+ . Set Reserv=+$P(^KPR(MPRNr,2),D,9) ; Reservatie van de moeder
+ */
+ 
+ ;Fysische stock bepalen dmv fysische stock van de kindproducten.
+	Set MoederProduct = ##class(DOM.PM.Bouwstenen.Product).%OpenId(MPRNr)
+	Set KindIterator = ##class(TECH.ListIterator).%New(MoederProduct.Bouwstenen)
+	While(KindIterator.HasNext())
+	{
+		Set KindBouwsteen = KindIterator.Next()
+		
+		#define BouwsteenTypeKind "K"
+		Quit:$$$BouwsteenTypeKind'=KindBouwsteen.Type
+		Set KPRNr = KindBouwsteen.KindProduct.ProductNr
+		#define OpslagzoneManueel 9
+		Quit:$$OPSLZONE^PRODUKT2()=$$$OpslagzoneManueel
+		
+ 	 	Set Faktor=KindBouwsteen.Aantal
+ 	 	Set KFysSt=$$GETSTOCK^PRODUKT4(KPRNr,"F")/$S('Faktor:1,1:Faktor)\1
+ 		Set MFysSt=$G(MFysSt,KFysSt)
+ 	 	Set:KFysSt<MFysSt MFysSt=KFysSt
+ 	 	/* [PRA 2011-05-05] Niet nodig wegens geen update van de reservaties op de kinderen.
+ 	 	Set KPRNr(KPRNr)=$G(KPRNr(KPRNr))+(Reserv*$S('Faktor:1,1:Faktor))
+ 	 	*/
+ 	}
+ Quit:'$D(MFysSt)
+ 
+ ;Set:ScanTyp<MFysSt MFysSt=ScanTyp
+ ;Fysische stock persisteren.
+ Lock +^KPR(MPRNr)
+ Set R=^KPR(MPRNr,0),$P(R,D,14)=MFysSt,^KPR(MPRNr,0)=R
+ Set R=$G(^PRSTOCK("D",MPRNr)),$P(R,D)=MFysSt,^PRSTOCK("D",MPRNr)=R
+ Lock -^KPR(MPRNr)
+ 
+ ;Reservatie vanuit moeder vervangen door de nieuwe reservatie
+ /* [PRA 2011-05-05] Deze code is niet volledig, omdat niet alle moeders overlopen worden.
+  * Dus geen update van de kind-reservaties op moment van receptie.
+ . Set KPRNr=""
+ . For  Set KPRNr=$O(KPRNr(KPRNr)) Quit:KPRNr=""  Do
+ . . Lock +^KPR(KPRNr)
+ . . Set QtyOld=$P(^PRSTOCK("D",KPRNr),D,9) ; oud aantal in reservatie door moeder
+ . . Set QtyNew=KPRNr(KPRNr)
+ . . Set $P(^PRSTOCK("D",KPRNr),D,6)=$P($G(^PRSTOCK("D",KPRNr)),D,6)-QtyOld+QtyNew ; oude aantal in reservatie door moeder weghalen en nieuwe bijtellen bij de werkvloer reservatie (truuk)
+ . . Set $P(^PRSTOCK("D",KPRNr),D,9)=QtyNew
+ . . Lock -^KPR(KPRNr)
+ */
+ Quit
+ 
+ /* [PRA 2011-05-05] OUDE VERSIE, MET PRLINK:
+ STOCKUPDMoeder(MPRNr) 
  New R,ScanTyp,MFysSt,KFysSt,Reserv,Faktor,KPRNr,QtyOld,QtyNew
  ; Fysstock toekennen aan de moeders vertrekkend van de min. stock van de kinderen
  Do:$$$ProductGet(MPRNr,$$$LinkType)="S"  ; Stock over kinderen
@@ -174,6 +230,8 @@
  . . Set $P(^PRSTOCK("D",KPRNr),D,9)=QtyNew
  . . Lock -^KPR(KPRNr)
  Quit
+ */
+ 
  ;
  ; Stockupdate van de moeders van een kind
 STOCKUPDKind(KPRNr)