Index: zTryout/WV/FPV1/DOM/impl/FlatpackV1Service.cls.xml
===================================================================
diff -u -r29477 -r29495
--- zTryout/WV/FPV1/DOM/impl/FlatpackV1Service.cls.xml	(.../FlatpackV1Service.cls.xml)	(revision 29477)
+++ zTryout/WV/FPV1/DOM/impl/FlatpackV1Service.cls.xml	(.../FlatpackV1Service.cls.xml)	(revision 29495)
@@ -15,6 +15,47 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefWikkelFolieProductID">
+<ReturnType>DOM.common.ProductID</ReturnType>
+<Implementation><![CDATA[	Quit "485641"   // ProductID nog aan te passen, voorlopig een Opvullijst gekozen omdat BewerkingsInfo moet aanwezig zijn voor HFBerekening.
+]]></Implementation>
+</Method>
+
+<Method name="GeefWikkelFolieLengteInM">
+<FormalSpec>DraagPlaat:zTryout.WV.FPV1.DOM.dto.DraagPlaat</FormalSpec>
+<ReturnType>%Numeric</ReturnType>
+<Implementation><![CDATA[
+	;#dim PrijsPerLopendeMeter As %Numeric = 0.283   ; = Prijs * Gewicht / Lengte 
+	#dim GewichtPerRolInKg = 10
+	#dim AantalMeterPerRol = 100
+
+	#dim FolieGewichtInGram As %Numeric = ..GeefWikkelFolieGewichtInGram(DraagPlaat)
+	#dim WikkelFolieLengteInM As %Numeric = (FolieGewichtInGram / 1000) * (AantalMeterPerRol / GewichtPerRolInKg)
+	Quit WikkelFolieLengteInM
+]]></Implementation>
+</Method>
+
+<Method name="GeefWikkelFolieGewichtInGram">
+<FormalSpec>DraagPlaat:zTryout.WV.FPV1.DOM.dto.DraagPlaat</FormalSpec>
+<ReturnType>%Numeric</ReturnType>
+<Implementation><![CDATA[
+	#dim GewichtInGram As %Numeric = ""
+	If DraagPlaat.Lengte = 700 {
+		Set GewichtInGram = $S(DraagPlaat.Breedte=190:35, 1:37.5)
+	}
+	ElseIf DraagPlaat.Lengte = 1060 {
+		Set GewichtInGram = $S(DraagPlaat.Breedte=190:50, 1:55)
+	}
+	ElseIf DraagPlaat.Lengte = 1260 {
+		Set GewichtInGram = $S(DraagPlaat.Breedte=190:70, 1:75)
+	}
+	Else {
+		;Exception TO DO 
+	}
+	Quit GewichtInGram
+]]></Implementation>
+</Method>
+
 <Method name="GeefSlicedBodemInfo">
 <FormalSpec>NettoAfgewerkteBodemBreedte:%Numeric,Lade:DOM.PM.Maatwerk.LadeInfo.Lade</FormalSpec>
 <ReturnType>DOM.PM.Maatwerk.Calc.HF.impl.TAOR.HalffabItem.BodemPlaat.SlicedBodemInfo</ReturnType>