Index: APPS/Halux/Planning/PlanningService.cls.xml
===================================================================
diff -u -r994 -r1012
--- APPS/Halux/Planning/PlanningService.cls.xml	(.../PlanningService.cls.xml)	(revision 994)
+++ APPS/Halux/Planning/PlanningService.cls.xml	(.../PlanningService.cls.xml)	(revision 1012)
@@ -1,12 +1,12 @@
 <?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-06 15:46:36">
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-04-18 16:00:25">
 <Class name="APPS.Halux.Planning.PlanningService">
 <Description>
 Service voor de Halux planningstool.
 Ondersteunt het visulaliseren van het resourcegebruik voor alle toeleveringen die reeds ingegeven zijn.</Description>
 <ProcedureBlock>1</ProcedureBlock>
 <Super>%RegisteredObject</Super>
-<TimeChanged>62187,56801.852768</TimeChanged>
+<TimeChanged>62199,57640.655921</TimeChanged>
 <ClassDefinitionError>0</ClassDefinitionError>
 
 <Parameter name="ApplicatieNaam">
@@ -97,6 +97,19 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefPlanningDetailToelevering">
+<Description>
+Geeft de planningsdetails voor een bepaalde datum en een bepaalde categorie specifiek voor het toeleveringsscherm.
+De categorie mag leeg zijn ("") in welk geval de details voor alle categorieen getoond worden.</Description>
+<FormalSpec>Dag:%Date,Categorie:APPS.Halux.Planning.enu.Categorie</FormalSpec>
+<ReturnType>%XML.DataSet</ReturnType>
+<Implementation><![CDATA[
+	Set DataSet = ##class(%XML.DataSet).%New("APPS.Halux.Planning.impl.Queries:qGeefPlanningDetailToelevering")
+	Do DataSet.SetArgs(Dag, Categorie)
+	Quit DataSet
+]]></Implementation>
+</Method>
+
 <Method name="GeefPlanningOverzicht">
 <Description>
 Geeft de overzichtsinfo terug van de gevraagde dagen.
@@ -120,6 +133,29 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefToeleveringDetail">
+<FormalSpec>ToeleveringNummer:%Integer</FormalSpec>
+<ReturnType>APPS.Halux.Planning.dto.ToeleveringDetail</ReturnType>
+<Implementation><![CDATA[
+	Set ToeleveringDetail = ##class(APPS.Halux.Planning.dto.ToeleveringDetail).%New()
+	
+	Set ToeleveringDetail.ToeleveringNummer = ToeleveringNummer
+	
+	Set ResultSet = ##class(%ResultSet).%New("APPS.Halux.Planning.impl.Queries:qGeefStockProblemen")
+	Do ResultSet.Execute(ToeleveringNummer)
+	While (ResultSet.Next())
+	{
+		Set StockProbleemInfo = ##class(APPS.Halux.Planning.dto.StockProbleemInfo).%New()
+		
+		Set StockProbleemInfo.ProductCode = ResultSet.Data("ProductCode")
+		
+		Do ToeleveringDetail.StockProbleemInfoLijst.Insert(StockProbleemInfo)
+	}
+	
+	Quit ToeleveringDetail
+]]></Implementation>
+</Method>
+
 <Method name="GeefDueOutAlternatieven">
 <FormalSpec>AantalWeken:%Integer,ToeleveringNummers:%ListOfDataTypes</FormalSpec>
 <ReturnType>APPS.Halux.Planning.dto.DueOutAlternatiefResultaat</ReturnType>
@@ -282,6 +318,100 @@
 ]]></Implementation>
 </Method>
 
+<Method name="SplitsToelevering">
+<FormalSpec>ToeleveringNummer:%Integer,AantalToeleveringen:%Integer,DrempelAantalProducten:%Integer</FormalSpec>
+<ReturnType>APPS.Halux.Planning.dto.SplitsToeleveringResultaat</ReturnType>
+<Implementation><![CDATA[
+	Set Resultaat = ##class(APPS.Halux.Planning.dto.SplitsToeleveringResultaat).%New()
+	Set Resultaat.Wijzigingen = ##class(%XML.DataSet).%New()
+	
+	Set NieuwLijnNummer = 102
+	Set ToeleveringAPI = ##class(DOM.DomeinContext).Instance().GeefToeleveringAPI()
+	Set Toelevering = ToeleveringAPI.GeefToelevering(ToeleveringNummer)
+	
+	If $IsObject(Toelevering)
+	{
+		Set ProductToeleveringLijnIterator = Toelevering.GeefTypeToeleveringLijnIterator(##class(DOM.LEV.enu.ToeleveringLijnType).Product())
+		
+		Set NieuweLijnenPerLijn = ##class(%ListOfObjects).%New()
+		
+		TSTART
+		
+		While (ProductToeleveringLijnIterator.HasNext())
+		{
+			Set ProductToeleveringLijn = ProductToeleveringLijnIterator.Next()
+			If (ProductToeleveringLijn.GeefAantal() > DrempelAantalProducten)
+			{
+				Set Aantal = ProductToeleveringLijn.GeefAantal()
+				Set AantalPerToelevering = ##class(TECH.Math).Floor(Aantal / AantalToeleveringen)
+				If ((Aantal/AantalToeleveringen) '= AantalPerToelevering) { Set AantalPerToelevering = AantalPerToelevering + 1 }
+				//w Aantal_" "_AantalPerToelevering,!
+				Set NieuweLijnNummers = ##class(%ListOfDataTypes).%New()
+				While (Aantal > AantalPerToelevering)
+				{
+					Set Aantal = Aantal - AantalPerToelevering
+					Set $ZTRAP="SplitsFout"
+					//w "SplitsLijn("_ToeleveringNummer_" As %Integer, "_ProductToeleveringLijn.GeefLijnNr()_" As %Integer, "_Aantal_" As %Integer) As %Integer",!
+					Set $ZTRAP = ""
+					Do NieuweLijnNummers.Insert(NieuwLijnNummer)
+					Set NieuwLijnNummer = NieuwLijnNummer + 1
+				}
+				
+				If (NieuweLijnNummers.Count() > 0) { Do NieuweLijnenPerLijn.Insert(NieuweLijnNummers) }
+			}
+		}
+		
+		For i = 1:1:AantalToeleveringen-1
+		{
+			Set AfTeSplitsenLijnen = ##class(%ListOfDataTypes).%New()
+			//w "Splits toelevering "
+			For j = 1:1:NieuweLijnenPerLijn.Count()
+			{
+				If (NieuweLijnenPerLijn.GetAt(j).Count() '< i)
+				{
+					Do AfTeSplitsenLijnen.Insert(NieuweLijnenPerLijn.GetAt(j).GetAt(i))
+					//w NieuweLijnenPerLijn.GetAt(j).GetAt(i)_" "
+				}
+			}
+			//w !
+			Set $ZTRAP="SplitsFout"
+			// Splits toelevering en gooi event voor nieuwe toelevering
+			Set $ZTRAP=""
+		}
+		
+		TCOMMIT
+		
+		// Gooi event voor gewijzigde toelevering
+		
+		Set GewijzigdeToeleveringen = ##class(%ListOfObjects).%New()
+		If (NieuweLijnenPerLijn.Count() > 0)
+		{
+			Do GewijzigdeToeleveringen.Insert(Toelevering)
+		}
+		
+	
+		Set DataSet = ##class(%XML.DataSet).%New()
+		Do DataSet.Prepare(##class(APPS.Halux.Planning.impl.Queries).GeefPlanningDetailVoor(GewijzigdeToeleveringen))
+		Set Resultaat.Wijzigingen = DataSet
+		
+		Set Resultaat.Boodschap = "Splitsen van toelevering "_ToeleveringNummer_" geslaagd"
+		
+	}
+	Else
+	{
+		Set Resultaat.Boodschap = ToeleveringNummer_" bestaat niet"
+	}
+		
+	Quit Resultaat
+	
+SplitsFout
+	Set $ZTRAP = ""
+	TROLLBACK
+	Set Resultaat.Boodschap = ##class(TECH.ExceptionHandler).Catch().ToString()
+	Quit Resultaat
+]]></Implementation>
+</Method>
+
 <Method name="VerplaatsToeleveringen">
 <FormalSpec>Gebruiker:%String,Opmerking:%String,Datum:%Date,ToeleveringNummers:%ListOfDataTypes</FormalSpec>
 <ReturnType>APPS.Halux.Planning.dto.VerplaatsToeleveringenResultaat</ReturnType>
@@ -374,7 +504,7 @@
 	Set ToeleveringAPI = ##class(DOM.DomeinContext).Instance().GeefToeleveringAPI()
 	
 	Set GlobalToeleveringen = ##class(%ListOfObjects).%New()
-	Set ToeIterator = ToeleveringAPI.GeefLeverancierToeleveringIt(6332)
+	Set ToeIterator = ToeleveringAPI.GeefLeverancierHalux().GeefToeleveringIterator()
 	While (ToeIterator.HasNext()) { Do GlobalToeleveringen.Insert(ToeIterator.Next()) }
 	
 	Set Index = 0
@@ -441,5 +571,5 @@
 ]]></Implementation>
 </Method>
 </Class>
-<Checksum value="2299715001"/>
+<Checksum value="3671732665"/>
 </Export>