Index: APPS/Halux/Planning/impl/Queries.cls.xml
===================================================================
diff -u -r1019 -r1073
--- APPS/Halux/Planning/impl/Queries.cls.xml	(.../Queries.cls.xml)	(revision 1019)
+++ APPS/Halux/Planning/impl/Queries.cls.xml	(.../Queries.cls.xml)	(revision 1073)
@@ -1,15 +1,14 @@
 <?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 16:10:14">
+<Export generator="Cache" version="9">
 <Class name="APPS.Halux.Planning.impl.Queries">
 <ProcedureBlock>1</ProcedureBlock>
 <Super>%RegisteredObject</Super>
-<TimeChanged>62199,58229.83601</TimeChanged>
 <ClassDefinitionError>0</ClassDefinitionError>
 
 <Query name="qGeefStockProblemen">
 <Type>%SQLQuery</Type>
 <FormalSpec>ToeleveringNummer:%Integer</FormalSpec>
-<SqlQuery>	SELECT ProductCode, ProductNummer FROM APPS_Halux_Planning_impl.ProductInfo WHERE ToeleveringInfoID = :ToeleveringNummer AND StockProbleem is not null</SqlQuery>
+<SqlQuery>	SELECT ProductCode, ProductNummer, ToeleveringLijnNr, Aantal FROM APPS_Halux_Planning_impl.ProductInfo WHERE ToeleveringInfoID = :ToeleveringNummer AND StockProbleem is not null</SqlQuery>
 </Query>
 
 <Query name="qGeefPlanningOverzicht">
@@ -93,7 +92,7 @@
 <Query name="qGeefPlanningDetailToelevering">
 <Type>%SQLQuery</Type>
 <FormalSpec>Datum:%Date,Categorie:APPS.Halux.Planning.enu.Categorie</FormalSpec>
-<SqlQuery><![CDATA[	SELECT PI.Categorie, CAST(TI.Gepland As DATE) As Gepland, TI.DueOut, TI.GeplandStatus, TI.IngegevenDoor, Max(TI.IsASAP) As IsAsap, Max(CASE WHEN StockProbleem is not null OR GeplandStatus <> 'Impliciet' THEN 1 ELSE 0 END) As IsInfoBeschikbaar, TI.Klant, TI.LeverImpact, TI.ProductieStatus, TI.ToeleveringNummer, SUM(PI.Aantal) As Aantal, PI.ProductCode, max(PI.StockProbleem) As StockProbleem, PI.VerpakkingType,
+<SqlQuery><![CDATA[	SELECT PI.Categorie, CAST(TI.Gepland As DATE) As Gepland, TI.DueOut, TI.GeplandStatus, TI.IngegevenDoor, Max(TI.IsASAP) As IsAsap, Max(CASE WHEN StockProbleem is not null OR GeplandStatus <> 'Impliciet' THEN 1 ELSE 0 END) As IsInfoBeschikbaar, TI.Klant, TI.LeverImpact, TI.ProductieStatus, TI.ToeleveringNummer, APPS_Halux_Planning_impl.Queries_AantalProductenInToelevering(TI.ToeleveringNummer) As Aantal, PI.ProductCode, max(PI.StockProbleem) As StockProbleem, PI.VerpakkingType,
  	 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_ALUOperator_Hoeveelheid*PI.Aantal ELSE 0 END),0) As ALUOperator_VM,
@@ -190,6 +189,18 @@
 <Type>%SQLQuery</Type>
 <SqlQuery>	SELECT DISTINCT ToeleveringNummer FROM APPS_Halux_Planning_impl.ToeleveringInfo ORDER BY ToeleveringNummer ASC</SqlQuery>
 </Query>
+
+<Method name="AantalProductenInToelevering">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>ToeleveringNummer:%Integer</FormalSpec>
+<ReturnType>%Integer</ReturnType>
+<SqlProc>1</SqlProc>
+<Implementation><![CDATA[
+	Set Aantal = 0
+	&SQL(SELECT SUM(Aantal) INTO :Aantal FROM APPS_Halux_Planning_impl.ProductInfo WHERE ToeleveringInfoID = :ToeleveringNummer
+ 		GROUP BY ToeleveringInfoID)
+ 	Quit Aantal
+]]></Implementation>
+</Method>
 </Class>
-<Checksum value="959687345"/>
 </Export>