Index: ORGALUX.mac.rou
===================================================================
diff -u -r1287 -r1451
--- ORGALUX.mac.rou	(.../ORGALUX.mac.rou)	(revision 1287)
+++ ORGALUX.mac.rou	(.../ORGALUX.mac.rou)	(revision 1451)
@@ -75,7 +75,7 @@
  ;
  ; Stockupdate van de moeders met stock overkinderen
 STOCKUPD(Night) 
- Set Night=$G(Night)
+ Set Night=$G(Night,0)
  If Night Do
  .New Night
  .Set Q="K"
@@ -93,30 +93,15 @@
  
  ; Fysstock toekennen aan de moeders vertrekkend van de min. stock van de kinderen
  Set MPRNr=""
- For  Set MPRNr=$O(^PRLINK("D",MPRNr)) Quit:MPRNr=""  Do
- .Quit:$$$ProductGet(MPRNr,$$$LinkType)'="S" ; Geen stock over kinderen
- .;Quit:'$$ISORGAL^PRODUKT2(MPRNr)
- .Set R=^KPR(MPRNr,0),ScanTyp=$P(R,D,24)
- .;Quit:ScanTyp=""
- .Kill MFysSt
- .Set KPRNr=""
- .Set Reserv=+$P(^KPR(MPRNr,2),D,9) ; Reservatie van de moeder
- .For  Set KPRNr=$O(^PRLINK("D",MPRNr,KPRNr)) Quit:KPRNr=""  Do
- ..Quit:$$OPSLZONE^PRODUKT2(KPRNr)=9 ; Geen manuele producten zoals verpakking
- ..Set Faktor=$P(^PRLINK("D",MPRNr,KPRNr),D)
- ..Quit:'Faktor
- ..Set KFysSt=$$GETSTOCK^PRODUKT4(KPRNr,"F")/Faktor\1
- ..Set MFysSt=$G(MFysSt,KFysSt)
- ..Set:KFysSt<MFysSt MFysSt=KFysSt
- ..Set ^HULP(%J,KPRNr)=$G(^HULP(%J,KPRNr))+(Reserv*Faktor)
- .Quit:'$D(MFysSt)
- .;Set:ScanTyp<MFysSt MFysSt=ScanTyp
- .Do:'Night DISPLAY^vhScherm("ORGSTCKUPD","","","","MOEDER;STOCK")
- .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)
- 
+ For  
+ {
+	Set MPRNr=$O(^PRBS("BS",MPRNr))
+ 	Quit:'MPRNr
+  	If $$$ProductGet(MPRNr,$$$LinkType)="S" ; Geen stock over kinderen
+ 	{
+	 	Do STOCKUPDMoeder(MPRNr,%J,Night)
+ 	}
+ }
  ; Reservatie vanuit moeder wissen
  Set PRNr=""
  For  Set PRNr=$O(^PRSTOCK("D",PRNr)) Quit:PRNr=""  Do
@@ -139,47 +124,52 @@
  Quit
  ;
  ; 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
+STOCKUPDMoeder(MPRNr,%J,Night)
+ ; OPTIONEEL :%J, alleen te gebruiken als opgeroepen door STOCKUPD van alle producten
+ ; OPTIONEEL :Night, alleen te gebruiken als opgeroepen door STOCKUPD van alle producten
  
- ;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
- */
+	New R,ScanTyp,MFysSt,KFysSt,Reserv,Faktor,KPRNr,QtyOld,QtyNew,Sleutel
+	; Fysstock toekennen aan de moeders vertrekkend van de min. stock van de kinderen
+	#define StockOverKinderen "S"
+	Quit:$$$ProductGet(MPRNr,$$$LinkType)'=$$$StockOverKinderen 
  
- ;Fysische stock bepalen dmv fysische stock van de kindproducten.
+	Set R=^KPR(MPRNr,0)
+	Set KPRNr=""
+ 
+ 	;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
- 	 	Quit:'Faktor
- 	 	Set KFysSt=$$GETSTOCK^PRODUKT4(KPRNr,"F")/Faktor\1
- 		Set MFysSt=$G(MFysSt,KFysSt)
- 	 	Set:KFysSt<MFysSt MFysSt=KFysSt
- 	}
- Quit:'$D(MFysSt)
+	 	While(KindIterator.HasNext())
+		{
+			Set KindBouwsteen = KindIterator.Next()
+			#define BouwsteenTypeKind "K"
+		 	If ($$$BouwsteenTypeKind=KindBouwsteen.Type)
+			{
+				Set KPRNr = KindBouwsteen.KindProduct.ProductNr
+				#define OpslagzoneManueel 9
+			 	Set Faktor=KindBouwsteen.Aantal
+		 		If KPRNr && ($$OPSLZONE^PRODUKT2(KPRNr)'=$$$OpslagzoneManueel) && (Faktor)
+		 		{
+		 	 		Set KFysSt=$$GETSTOCK^PRODUKT4(KPRNr,"F")/Faktor\1
+		 			Set MFysSt=$G(MFysSt,KFysSt)
+		 	 		Set:KFysSt<MFysSt MFysSt=KFysSt
+			 	 	If $L($G(%J)) ; backwards compatible voor STOCKUPD (alle producten)
+			 	 	{
+				 	 	Set Reserv=+$P(^KPR(MPRNr,2),D,9) ; Reservatie van de moeder
+ 						Set ^HULP(%J,KPRNr)=$G(^HULP(%J,KPRNr))+(Reserv*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)
+	;Fysische stock persisteren.
+	Do:'$G(Night,1) DISPLAY^vhScherm("ORGSTCKUPD","","","","MOEDER;STOCK")
+	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)
  
  Quit
  
@@ -199,13 +189,16 @@
  S Ok=$$^vhTXTPOP("ORGALUX","STOCKNUL")
  Quit:'Ok
  Set FP=201 Write @F
- For  Set MPRNr=$O(^PRLINK("D",MPRNr)) Quit:MPRNr=""  Do
- .Quit:'$$ISORGAL^PRODUKT2(MPRNr)
+ For  Set MPRNr=$O(^PRBS("BS",MPRNr)) Quit:MPRNr=""  Do
+ .Quit:$$$ProductGet(MPRNr,$$$LinkType)'=$$$StockOverKinderen 
  .Set Voorraad=0
- .Set KPRNr=""
- .For  Set KPRNr=$O(^PRLINK("D",MPRNr,KPRNr)) Quit:KPRNr=""  Do
- ..Quit:$$OPSLZONE^PRODUKT2(KPRNr)=9
- ..Set Voorraad=1
+ .Set BSKey=""
+ .For  Set BSKey=$O(^PRBS("BS",MPRNr,BSKey)) Quit:BSKey=""  Do
+ .. Quit:$P(^PRBS("BS",MPRNr,BSKey),D,3)'=$$$BouwsteenTypeKind
+ .. Set KPRNr=$P(^PRBS("BS",MPRNr,BSKey),D,1)
+ .. Quit:'KPRNr
+ .. Quit:$$OPSLZONE^PRODUKT2(KPRNr)=9
+ .. Set Voorraad=1
  .;Alleen moeders met kinderen die echte voorraad producten zijn
  .Quit:'Voorraad
  .Write $P(^KPR(MPRNr,0),D,1)," ",$P(^KPR(MPRNr,0),D,14),!