Index: APPS/Halux/Planning/impl/Queries.cls.xml
===================================================================
diff -u -r2433 -r2645
--- APPS/Halux/Planning/impl/Queries.cls.xml	(.../Queries.cls.xml)	(revision 2433)
+++ APPS/Halux/Planning/impl/Queries.cls.xml	(.../Queries.cls.xml)	(revision 2645)
@@ -14,7 +14,7 @@
 <Query name="qGeefPlanningOverzicht">
 <Type>%SQLQuery</Type>
 <FormalSpec>Van:%Date,Tot:%Date</FormalSpec>
-<SqlQuery><![CDATA[	SELECT CAST(TI.Gepland As DATE) As Gepland, PI.Categorie, APPS_Halux_Planning_impl.Queries_AantalProductenOpVoor(TI.Gepland,PI.Categorie) As Aantal,
+<SqlQuery><![CDATA[	SELECT CAST(TI.Gepland As DATE) As Gepland, PI.Categorie, APPS_Halux_Planning_impl.Queries_AantalProductenOpVoor(TI.Gepland,PI.Categorie) As Aantal, APPS_Halux_Planning_impl.Queries_AantalProductenOpVoormiddagVoor(TI.Gepland,PI.Categorie) As Aantal_VM,
 	 COALESCE(Sum(CASE WHEN {fn HOUR(TI.Gepland)} < 13 THEN ResourceGebruik_ALUFrees_Hoeveelheid*PI.Aantal ELSE 0 END),0) As ALUFrees_VM,
 	 COALESCE(Sum(ResourceGebruik_ALUFrees_Hoeveelheid*PI.Aantal),0) As ALUFrees,
 	 COALESCE(Sum(CASE WHEN {fn HOUR(TI.Gepland)} < 13 THEN ResourceGebruik_ALUTeam_Hoeveelheid*PI.Aantal ELSE 0 END),0) As ALUTeam_VM,
@@ -186,5 +186,21 @@
  	Quit Aantal
 ]]></Implementation>
 </Method>
+
+<Method name="AantalProductenOpVoormiddagVoor">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>Datum:%TimeStamp,Categorie:APPS.Halux.Planning.enu.Categorie</FormalSpec>
+<ReturnType>%Integer</ReturnType>
+<SqlProc>1</SqlProc>
+<Implementation><![CDATA[
+	Set Aantal = 0
+	&SQL(SELECT Sum(CASE WHEN {fn HOUR(TI.Gepland)} < 13 THEN PI.Aantal ELSE 0 END) INTO :Aantal
+	FROM APPS_Halux_Planning_impl.ToeleveringInfo TI
+ 	 JOIN APPS_Halux_Planning_impl.ProductInfo PI ON TI.ID = PI.ToeleveringInfoID
+ 	 WHERE CAST(TI.Gepland As DATE) = CAST(:Datum As Date) AND Categorie = :Categorie
+ 	 GROUP BY CAST(TI.Gepland As DATE))
+ 	Quit Aantal
+]]></Implementation>
+</Method>
 </Class>
 </Export>