Index: APPS/Halux/Planning/impl/ResourceGebruikCalculator.cls.xml
===================================================================
diff -u -r1012 -r1019
--- APPS/Halux/Planning/impl/ResourceGebruikCalculator.cls.xml	(.../ResourceGebruikCalculator.cls.xml)	(revision 1012)
+++ APPS/Halux/Planning/impl/ResourceGebruikCalculator.cls.xml	(.../ResourceGebruikCalculator.cls.xml)	(revision 1019)
@@ -1,9 +1,9 @@
 <?xml version="1.0" encoding="UTF-8"?>
-<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-04-18 09:01:18">
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-04-19 15:46:38">
 <Class name="APPS.Halux.Planning.impl.ResourceGebruikCalculator">
 <ProcedureBlock>1</ProcedureBlock>
 <Super>%RegisteredObject</Super>
-<TimeChanged>62199,32494.401175</TimeChanged>
+<TimeChanged>62200,56814.472411</TimeChanged>
 <ClassDefinitionError>0</ClassDefinitionError>
 
 <Property name="Toelevering">
@@ -116,6 +116,7 @@
 			
 			Set ProductInfo.Aantal = ProductLijn.GeefAantal()
 			Set ProductInfo.ProductCode = ProductLijn.GeefProduct().GeefKorttekst()
+			Set ProductInfo.ProductNummer = ProductLijn.GeefProduct().GeefPRNr()
 			Set ProductInfo.ToeleveringLijnNr = ProductLijn.GeefLijnNr()
 			If (ProductLijn.HeeftFysiekStockProbleem())
 			{
@@ -129,7 +130,7 @@
 			}
 
 			Set Status = ProductInfo.%Save()
-			If ($$$ISERR(Status)) { Do ##class(vhLib.Logger).%New("Halux planningstool").Error("Kon ProductInfo niet opslaan!","Toelevering: "_..Toelevering.GeefToeNr()_$c(10)_$c(13)_"Status: "_$$ParseStatus^vhLib(Status)) }
+			If ($$$ISERR(Status)) { Do ##class(vhLib.Logger).%New("Halux planningstool").Error("Kon ProductInfo niet opslaan!","Toelevering: "_..Toelevering.GeefToeNr()_$C(13,10)_"Status: "_$$ParseStatus^vhLib(Status)) }
 			
 			Set ActiviteitInfoIterator = ##class(TECH.ListIterator).%New(ActiviteitInfoLijst)
 			While (ActiviteitInfoIterator.HasNext())
@@ -138,7 +139,7 @@
 				Set ActiviteitInfoClone = ActiviteitInfo.%ConstructClone(1)
 				Set ActiviteitInfoClone.ProductInfoID = ProductInfo.%Id()
 				Set Status = ActiviteitInfoClone.%Save()
-				If ($$$ISERR(Status)) { Do ##class(vhLib.Logger).%New("Halux planningstool").Error("Kon ActiviteitInfo niet opslaan!","Toelevering: "_..Toelevering.GeefToeNr()_$c(10)_$c(13)_"Status: "_$$ParseStatus^vhLib(Status)) }
+				If ($$$ISERR(Status)) { Do ##class(vhLib.Logger).%New("Halux planningstool").Error("Kon ActiviteitInfo niet opslaan!","Toelevering: "_..Toelevering.GeefToeNr()_$C(13,10)_"Status: "_$$ParseStatus^vhLib(Status)) }
 			}
 		}
 	}
@@ -173,5 +174,5 @@
 ]]></Implementation>
 </Method>
 </Class>
-<Checksum value="907019415"/>
+<Checksum value="766785133"/>
 </Export>