Index: WV HALUXFrees.prj.xml
===================================================================
diff -u -r1459 -r1475
--- WV HALUXFrees.prj.xml	(.../WV HALUXFrees.prj.xml)	(revision 1459)
+++ WV HALUXFrees.prj.xml	(.../WV HALUXFrees.prj.xml)	(revision 1475)
@@ -1,6 +1,6 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="9">
-<Project name="WV HALUXFrees" LastModified="2011-06-16 15:19:56">
+<Project name="WV HALUXFrees" LastModified="2011-06-16 18:49:21">
   <Items>
     <ProjectItem name="Fabr.Frees.BedDef" type="CLS"/>
     <ProjectItem name="Fabr.Frees.BedLijst" type="CLS"/>
@@ -37,6 +37,7 @@
     <ProjectItem name="Res.PI.Beslag.tmpDev.MAC" type="MAC"/>
     <ProjectItem name="Res.PI.FreesTools.tmpDev.MAC" type="MAC"/>
     <ProjectItem name="VHSys.Library.VMLLib.MAC" type="MAC"/>
+    <ProjectItem name="zTryout.WV.PM.KAD.FrezingOverzicht" type="CLS"/>
   </Items>
 </Project>
 </Export>
Index: zTryout/WV/PM/KAD/FrezingOverzicht.cls.xml
===================================================================
diff -u
--- zTryout/WV/PM/KAD/FrezingOverzicht.cls.xml	(revision 0)
+++ zTryout/WV/PM/KAD/FrezingOverzicht.cls.xml	(revision 1475)
@@ -0,0 +1,283 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="zTryout.WV.PM.KAD.FrezingOverzicht">
+<IncludeCode>vhLib.Macro</IncludeCode>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%RegisteredObject</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Method name="CreateFile">
+<Description>
+Oproepen via 
+  set sc=##class(zTryout.WV.PM.KAD.FrezingOverzicht).CreateFile()   w sc,!</Description>
+<ClassMethod>1</ClassMethod>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set sc=$$$OK
+	
+	Do ##class(vhLib.OldSchool).InitVars()
+	
+	Set FName="KAD_FrezingOverzicht_"_$P($H,",",2)_".txt"
+	
+	// Open File 
+	Set:$G(Dir)="" Dir=$$DIRUSER^vhDEV
+	 write !,"Output to file : "
+	Set Dev=$$OPEN^vhDEV(Dir,FName,"W","T")
+	If Dev=0 Write !,"Error while trying to open file",!   Quit $$$ERROR($$$GeneralError,"Error while trying to open file")
+	Use Dev
+	
+	Do ..LoopKaderdeuren()
+
+	// Close File 
+	Do CLOSE^vhDEV(Dev)
+	
+	Quit sc
+]]></Implementation>
+</Method>
+
+<Method name="LoopKaderdeuren">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	Set i = 0
+	Set ErrorLijst = ##class(%ListOfDataTypes).%New()
+	
+	Set lbHeaders=..GeefKaderDetailHeader()
+	Write $$LCVTSimple^vhLib(lbHeaders,$$$TAB),!
+	
+	  d WLIP^vhDBG(97,"Preparing resultset ... ")
+	Set ResultSet=##class(%ResultSet).%New("APPS.PM.Maatwerk.KenmerkConversie:qKaderdeurIDs")
+	Do ResultSet.Execute()
+	  d WLIP^vhDBG(97,"Start Fetching resultset ... ")
+	While ResultSet.Next()
+	{
+		Set KadID = ResultSet.Data("ID")
+
+ /*   * / 
+		; Temporary skip most Kaderdeuren,  testing only with limited KadID's 
+		;if KadID?1(1"108119") {
+		if $$$ValIsBetween(KadID,108119,110200) {
+			Set Kaderdeur = ##class(Prod.GADef.KaderDeur).%OpenId(KadID)
+			Set PRNr = Kaderdeur.ProductGetObjectId()
+		}
+		else {
+			set PRNr=""
+		}
+ /*  */
+		; definitive code, voor alle KadID's 
+		
+		Set Kaderdeur = ##class(Prod.GADef.KaderDeur).%OpenId(KadID)
+		Set PRNr = Kaderdeur.ProductGetObjectId()
+ /*  */
+
+		If (PRNr '= "")
+		{
+			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_")")
+			}
+		}
+	}
+	d WLIP^vhDBG(97,"# verwerkt: "_i)
+	d WLIP^vhDBG(97,"# in ErrorLijst : "_ErrorLijst.Count())
+	
+	Quit
+]]></Implementation>
+</Method>
+
+<Method name="IsValidKaderdeur">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>Kaderdeur</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	Set IsValid=1
+	If (Kaderdeur.Toepassing.ItemID = "KLC") { Set IsValid=0 }
+	Else {
+		// Beslag controleren op niet-bestaande objecten 
+		Set BeslagIterator = ##class(TECH.ListIterator).%New(Kaderdeur.Beslag)
+		While (BeslagIterator.HasNext())&&(IsValid)
+		{
+			Set:('$IsObject(BeslagIterator.Next().Beslag)) IsValid=0
+		}		
+	}
+	Quit IsValid
+]]></Implementation>
+</Method>
+
+<Method name="GeefKaderDetailHeader">
+<ClassMethod>1</ClassMethod>
+<ReturnType>%List</ReturnType>
+<Implementation><![CDATA[
+	Set lbHeaders=""
+	Set lbHeaders=lbHeaders_$LB("PRNr", "KortTekst", "DosNr")
+	Set lbHeaders=lbHeaders_$LB("|")
+	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")
+	Quit lbHeaders
+]]></Implementation>
+</Method>
+
+<Method name="MaakKaderDetails">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>Kaderdeur:Prod.GADef.KaderDeur,ErrorLijst:%ListOfObjects</FormalSpec>
+<Implementation><![CDATA[
+	Set KortTekst="KTxt"
+	Set ToelevRef="ToeRef"
+	Set QtyLev="99"
+	
+	Set FreesDetailsIterator=##class(TECH.ListIterator).%New(..GeefFreesDetailsLijst(Kaderdeur,ErrorLijst))
+	While (FreesDetailsIterator.HasNext()) 
+	{
+		Set lbFreesDetails=FreesDetailsIterator.Next()
+	
+		Set lbDetails=""
+		Set lbDetails=lbDetails_$LB(Kaderdeur.ProductGetObjectId(), 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() )
+		
+		Write $$LCVTSimple^vhLib(lbDetails,$$$TAB),!
+		;d WLIP^vhDBG(97,$$LCVTSimple^vhLib(lbDetails,$$$TAB))
+	}
+	Quit
+]]></Implementation>
+</Method>
+
+<Method name="GeefFreesDetailHeader">
+<ClassMethod>1</ClassMethod>
+<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")
+	Quit lbHeaders
+]]></Implementation>
+</Method>
+
+<Method name="GeefFreesDetailsLijst">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>Kaderdeur:Prod.GADef.KaderDeur,ErrorLijst:%ListOfObjects</FormalSpec>
+<ReturnType>%ListOfDataTypes</ReturnType>
+<Implementation><![CDATA[
+	Set FreesDetailsLijst=##class(%ListOfDataTypes).%New()
+	
+	/*  BESLAG INFO  */
+	Set DataType="BSL"
+	Set BeslagIterator = ##class(TECH.ListIterator).%New(Kaderdeur.Beslag)
+	While (BeslagIterator.HasNext())
+	{
+		Set Beslag = BeslagIterator.Next()
+		Set BeslagID=Beslag.Beslag.ItemID
+		Set VmlID=..GeefBeslagVmlID(Beslag.Beslag)
+		Set BeslagAantal=Beslag.Positie.Count()
+		
+		Set lbFreesDetails=""
+		Set lbFreesDetails=lbFreesDetails_$LB(DataType, BeslagID, VmlID, BeslagAantal)
+		Set lbFreesDetails=lbFreesDetails_$LB("", "", "", "", "")
+
+		Do FreesDetailsLijst.Insert(lbFreesDetails)
+	}
+	
+	/*  FREZINGEN  INFO  */
+	Set DataType="FRZ"
+	Set ProfielLijst=##class(Fabr.Frees.ProfielLijst).%New()
+	Do ProfielLijst.AddKaderDeur(Kaderdeur,1,"","")
+	Set ProfielenIterator=##class(TECH.ListIterator).%New(ProfielLijst.Profielen)
+	While (ProfielenIterator.HasNext())
+	{
+		Set ProfielLijstElement=ProfielenIterator.Next()
+		Set Profiel=ProfielLijstElement.Profiel
+		  ;d WLIP^vhDBG(97,Profiel.FrezingenOverzichtCalc())
+
+		Set ProfPlaats=Profiel.ProfPlaats
+		Set ProfZijkant=Profiel.ProfZijkant
+
+		Kill arSomVanFrezingen
+		Do ..SommeerFreesDetails(Profiel, .arSomVanFrezingen)
+		
+		Set ToolNaam=""
+		For {
+			Set ToolNaam=$O(arSomVanFrezingen(ToolNaam))
+			Quit:(ToolNaam="")
+			
+			Set CNCProg=""
+			For {
+				Set CNCProg=$O(arSomVanFrezingen(ToolNaam,CNCProg))
+				Quit:(CNCProg="")
+				
+				Set AantalFrezing=arSomVanFrezingen(ToolNaam,CNCProg)
+				;Set ToolOms=$G(arSomVanFrezingen(ToolNaam))
+				
+				Set lbFreesDetails=""
+				Set lbFreesDetails=lbFreesDetails_$LB(DataType, "", "", "")
+				Set lbFreesDetails=lbFreesDetails_$LB(ProfPlaats, ProfZijkant, ToolNaam, CNCProg, AantalFrezing)
+				
+				Do FreesDetailsLijst.Insert(lbFreesDetails)
+			}
+		}
+	}
+		
+	Quit FreesDetailsLijst
+]]></Implementation>
+</Method>
+
+<Method name="GeefBeslagVmlID">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>Beslag:Res.PI.Beslag</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	Set VmlID=""
+	If ($IsObject(Beslag))&&($IsObject(Beslag.Boringen)) {
+		Set BeslagBoringenIterator=##class(TECH.ListIterator).%New(Beslag.Boringen)
+		While (BeslagBoringenIterator.HasNext())&&(VmlID="")
+		{
+			Set BeslagBoring=BeslagBoringenIterator.Next()
+			Set VmlID=BeslagBoring.VmlID
+		}
+	}
+	Quit VmlID
+]]></Implementation>
+</Method>
+
+<Method name="SommeerFreesDetails">
+<Description>
+arSomVanFrezingen als .local doorgeven </Description>
+<ClassMethod>1</ClassMethod>
+<FormalSpec><![CDATA[Profiel:Fabr.Frees.emProfiel,&arSomVanFrezingen:%String]]></FormalSpec>
+<Implementation><![CDATA[
+	Set FrezingenIterator=##class(TECH.ListIterator).%New(Profiel.Frezingen)
+	While (FrezingenIterator.HasNext())
+	{
+		Set Frezing=FrezingenIterator.Next()
+		
+		Set ToolNaam=""
+		Set CNCProg=Frezing.CNCProg
+		;Set ToolOms=""
+		If $IsObject(Frezing.FreesTool) {
+			Set ToolNaam=Frezing.FreesTool.ToolNaam
+			;Set ToolOms=Frezing.FreesTool.Omschrijving
+		}
+		Set:(ToolNaam="") ToolNaam="?"
+		Set:(CNCProg="") CNCProg="?"
+		
+		; Sommeren van gelijke frezingen 
+		Set dummy=$I(arSomVanFrezingen(ToolNaam,CNCProg))
+		;Set arSomVanFrezingen(ToolNaam)=ToolOms
+	}
+]]></Implementation>
+</Method>
+</Class>
+</Export>