Index: zTryout/WV/PM/KAD/FrezingOverzicht.cls.xml
===================================================================
diff -u -r1475 -r1490
--- zTryout/WV/PM/KAD/FrezingOverzicht.cls.xml	(.../FrezingOverzicht.cls.xml)	(revision 1475)
+++ zTryout/WV/PM/KAD/FrezingOverzicht.cls.xml	(.../FrezingOverzicht.cls.xml)	(revision 1490)
@@ -1,7 +1,7 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="9">
 <Class name="zTryout.WV.PM.KAD.FrezingOverzicht">
-<IncludeCode>vhLib.Macro</IncludeCode>
+<IncludeCode>vhLib.Macro,Prod.Product</IncludeCode>
 <ProcedureBlock>1</ProcedureBlock>
 <Super>%RegisteredObject</Super>
 <ClassDefinitionError>0</ClassDefinitionError>
@@ -55,7 +55,8 @@
  /*   * / 
 		; Temporary skip most Kaderdeuren,  testing only with limited KadID's 
 		;if KadID?1(1"108119") {
-		if $$$ValIsBetween(KadID,108119,110200) {
+		;if $$$ValIsBetween(KadID,108119,110200) {
+		if $$$ValIsBetween(KadID,310000,310200) {
 			Set Kaderdeur = ##class(Prod.GADef.KaderDeur).%OpenId(KadID)
 			Set PRNr = Kaderdeur.ProductGetObjectId()
 		}
@@ -74,26 +75,66 @@
 			Set Product = ##class(Prod.Product).%OpenId(PRNr)
 			If ($IsObject(Product) && ('Product.NONAktief))
 			{
-				If (..IsValidKaderdeur(Kaderdeur)) {
-					Do ..MaakKaderDetails(Kaderdeur,ErrorLijst)
-				}
-				Else {
-					// Add to ErrorLijst 
-					Do ErrorLijst.Insert("Invalid Kaderdeur  (KadID="_KadID_")")
-				}
-	
-				Set i = i + 1
-				  d:(i<10)||(i#100=0) WLIP^vhDBG(97,"KadID: "_KadID_" exported.   (# : "_i_")")
+				Set HistoriekAfnameLijst=..GeefHistoriekAfnameLijst(PRNr)
+				
+				Set HistoriekAfnamesIterator = ##class(TECH.ListIterator).%New(HistoriekAfnameLijst)
+				While (HistoriekAfnamesIterator.HasNext())
+				{
+					Set lbHistoriekAfname=HistoriekAfnamesIterator.Next()
+					If (..IsValidKaderdeur(Kaderdeur)) {
+						Do ..MaakKaderDetails(Kaderdeur,lbHistoriekAfname,ErrorLijst)
+					}
+					Else {
+						// Add to ErrorLijst 
+						Do ErrorLijst.Insert("Invalid Kaderdeur  (KadID="_KadID_")")
+					}
+		
+					Set i = i + 1
+					  d:(i<10)||(i#100=0) WLIP^vhDBG(97,"KadID: "_KadID_" exported.   (# : "_i_")")
+					;
+				}		
 			}
 		}
 	}
 	d WLIP^vhDBG(97,"# verwerkt: "_i)
 	d WLIP^vhDBG(97,"# in ErrorLijst : "_ErrorLijst.Count())
+	d:($$$ValIsBetween(ErrorLijst.Count(),1,10)) WLIP^vhDBG(97,"ErrorLijst : "_($$$LCVT(##class(TECH.ListUtils).ListToListbuild(ErrorLijst))))
 	
 	Quit
 ]]></Implementation>
 </Method>
 
+<Method name="GeefHistoriekAfnameLijst">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>PRNr:%String,Begin:%String,Einde:%String</FormalSpec>
+<ReturnType>%List</ReturnType>
+<Implementation><![CDATA[
+	Set Begin=$H-(365*3)
+	Set Einde=$H
+	
+	Set Magazijn="M"
+	Set Actie="I"
+	Set HistoriekAfnameLijst=##class(%ListOfDataTypes).%New()
+	
+	Set Key=""
+	For { 
+		Set Key=$O(^PRHIST(PRNr,Key)) 
+		Quit:Key=""
+		
+		Set Rec=^PRHIST(PRNr,Key)
+		Continue:(+$P(Rec,"\")<Begin)||(+$P(Rec,"\")>Einde)
+		Continue:($P(Rec,"\",4)'=Actie)||($P(Rec,"\",5)'=Magazijn)
+		
+		Set Datum=$P(Rec,"\",1)
+		Set Aantal=$P(Rec,"\",2)
+		Set ToelevNr=$P(Rec,"\",7)
+		Do HistoriekAfnameLijst.Insert($LB(PRNr,Aantal,Datum,ToelevNr))
+	}
+	
+	Quit HistoriekAfnameLijst
+]]></Implementation>
+</Method>
+
 <Method name="IsValidKaderdeur">
 <ClassMethod>1</ClassMethod>
 <FormalSpec>Kaderdeur</FormalSpec>
@@ -123,31 +164,35 @@
 	Set lbHeaders=lbHeaders_$LB("Toepassing", "Hoogte", "Breedte", "ProfType", "ProfAfw")
 	Set lbHeaders=lbHeaders_ ..GeefFreesDetailHeader()
 	Set lbHeaders=lbHeaders_$LB("|")
-	Set lbHeaders=lbHeaders_$LB("Order/Toelev Ref", "Qty lev", "KadID")
+	Set lbHeaders=lbHeaders_$LB("Datum", "Qty lev", "Toelev Ref", "KadID")
 	Quit lbHeaders
 ]]></Implementation>
 </Method>
 
 <Method name="MaakKaderDetails">
 <ClassMethod>1</ClassMethod>
-<FormalSpec>Kaderdeur:Prod.GADef.KaderDeur,ErrorLijst:%ListOfObjects</FormalSpec>
+<FormalSpec>Kaderdeur:Prod.GADef.KaderDeur,lbHistoriekAfname:%List="",ErrorLijst:%ListOfObjects</FormalSpec>
 <Implementation><![CDATA[
-	Set KortTekst="KTxt"
-	Set ToelevRef="ToeRef"
-	Set QtyLev="99"
+	Set PRNr=Kaderdeur.ProductGetObjectId()
+	Set KortTekst=$$$PRGet($$$KortTekst)
+	Set ToelevAantal=$LG(lbHistoriekAfname,2,"?99?")
+	Set ToelevDatum=$LG(lbHistoriekAfname,3,"?Datum?")
+	Set ToelevRef=$LG(lbHistoriekAfname,4,"?ToeRef?")
 	
-	Set FreesDetailsIterator=##class(TECH.ListIterator).%New(..GeefFreesDetailsLijst(Kaderdeur,ErrorLijst))
+	Set:(+ToelevDatum>0) ToelevDatum=$ZD(ToelevDatum,4)
+	
+	Set FreesDetailsIterator=##class(TECH.ListIterator).%New(..GeefFreesDetailsLijst(Kaderdeur,+ToelevAantal,ErrorLijst))
 	While (FreesDetailsIterator.HasNext()) 
 	{
 		Set lbFreesDetails=FreesDetailsIterator.Next()
 	
 		Set lbDetails=""
-		Set lbDetails=lbDetails_$LB(Kaderdeur.ProductGetObjectId(), KortTekst, Kaderdeur.Dossier)
+		Set lbDetails=lbDetails_$LB(PRNr, KortTekst, Kaderdeur.Dossier)
 		Set lbDetails=lbDetails_$LB("")
 		Set lbDetails=lbDetails_$LB(Kaderdeur.Toepassing.ItemID, Kaderdeur.Hoogte, Kaderdeur.Breedte, Kaderdeur.ProfType.ItemID, Kaderdeur.ProfAfw.ItemID)
 		Set lbDetails=lbDetails_lbFreesDetails 
 		Set lbDetails=lbDetails_$LB("")
-		Set lbDetails=lbDetails_$LB(ToelevRef, QtyLev, "KadID: "_Kaderdeur.%Id() )
+		Set lbDetails=lbDetails_$LB(ToelevDatum, ToelevAantal, ToelevRef, "KadID: "_Kaderdeur.%Id() )
 		
 		Write $$LCVTSimple^vhLib(lbDetails,$$$TAB),!
 		;d WLIP^vhDBG(97,$$LCVTSimple^vhLib(lbDetails,$$$TAB))
@@ -161,15 +206,15 @@
 <ReturnType>%List</ReturnType>
 <Implementation><![CDATA[
 	Set lbHeaders=""
-	Set lbHeaders=lbHeaders_$LB("DataType", "BeslagID", "VML-ID", "Aantal/Beslag")
-	Set lbHeaders=lbHeaders_$LB("ProfPlaats", "ProfZijkant", "ToolNaam", "CNCProg", "Aantal/CNCProg")
+	Set lbHeaders=lbHeaders_$LB("DataType", "BeslagID", "Aantal/Beslag", "VML-ID")
+	Set lbHeaders=lbHeaders_$LB("ProfPlaats", "ProfZijkant", "ToolNaam", "CNCProg", "AantalFrz/Toelev")
 	Quit lbHeaders
 ]]></Implementation>
 </Method>
 
 <Method name="GeefFreesDetailsLijst">
 <ClassMethod>1</ClassMethod>
-<FormalSpec>Kaderdeur:Prod.GADef.KaderDeur,ErrorLijst:%ListOfObjects</FormalSpec>
+<FormalSpec>Kaderdeur:Prod.GADef.KaderDeur,ToelevAantal:%Integer,ErrorLijst:%ListOfObjects</FormalSpec>
 <ReturnType>%ListOfDataTypes</ReturnType>
 <Implementation><![CDATA[
 	Set FreesDetailsLijst=##class(%ListOfDataTypes).%New()
@@ -185,7 +230,7 @@
 		Set BeslagAantal=Beslag.Positie.Count()
 		
 		Set lbFreesDetails=""
-		Set lbFreesDetails=lbFreesDetails_$LB(DataType, BeslagID, VmlID, BeslagAantal)
+		Set lbFreesDetails=lbFreesDetails_$LB(DataType, BeslagID, BeslagAantal, VmlID)
 		Set lbFreesDetails=lbFreesDetails_$LB("", "", "", "", "")
 
 		Do FreesDetailsLijst.Insert(lbFreesDetails)
@@ -218,7 +263,7 @@
 				Set CNCProg=$O(arSomVanFrezingen(ToolNaam,CNCProg))
 				Quit:(CNCProg="")
 				
-				Set AantalFrezing=arSomVanFrezingen(ToolNaam,CNCProg)
+				Set AantalFrezing=arSomVanFrezingen(ToolNaam,CNCProg) * $S(ToelevAantal>0:ToelevAantal, 1:1)
 				;Set ToolOms=$G(arSomVanFrezingen(ToolNaam))
 				
 				Set lbFreesDetails=""