Index: BL/Legacy/FLOWTOE/AdHocSplitser.cls.xml
===================================================================
diff -u -r58886 -r58962
--- BL/Legacy/FLOWTOE/AdHocSplitser.cls.xml	(.../AdHocSplitser.cls.xml)	(revision 58886)
+++ BL/Legacy/FLOWTOE/AdHocSplitser.cls.xml	(.../AdHocSplitser.cls.xml)	(revision 58962)
@@ -9,11 +9,39 @@
 <Private>1</Private>
 </Property>
 
+<Property name="BatchService">
+<Type>APPS.Halux.common.BatchService</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="ToeleveringAPI">
+<Type>DOM.AKP.ToeleveringAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="MagUIVerderGaan">
+<Type>%Boolean</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>initvalue:%CacheString</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	set ..ToeleveringAPI = ##class(DOM.AKP.impl.DataM.DataMToeleveringAPI).%New()
+	Set ..BatchService = ##class(APPS.Halux.common.impl.BatchService).%New()
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
 <Method name="StelInMappingViaUI">
 <Description>
 Oproepen via : 
   Do ##class(BL.Legacy.FLOWTOE.AdHocSplitser).%New().StelInMappingViaUI(TOENr) </Description>
-<FormalSpec>ToeleveringId:%String</FormalSpec>
+<FormalSpec>ToeleveringId:%String=""</FormalSpec>
 <Implementation><![CDATA[
 	// Controle Toelevering bestaat
 	
@@ -22,6 +50,12 @@
 	// Controle Toelevering niet in Batch.
 	
 	
+	Set:(ToeleveringId = "") ToeleveringId = ..VraagToeleveringId()
+	Quit:($$$Not(..MagUIVerderGaan))
+	
+	Do ..ToonInfoEnControleer(ToeleveringId)
+	Quit:($$$Not(..MagUIVerderGaan))
+	
 	#dim TOENr As %String = ToeleveringId
 	#dim LEVNr As %String = $P(^KTO1(TOENr),"\",1)
 	#dim TLNr As %String = 100
@@ -121,8 +155,20 @@
 	
 	zw ^Lgc.FLOWTOE.SplitsToelevMapping(TOENr)
 	
-	Write !!,"Voer uit : "
-	Write !,"Do ##class(BL.Legacy.FLOWTOE.AdHocSplitser).%New().SimuleerToeleveringLijnenAdHocSplitsen(TOENr)"
+	Write !!!,"De simulatie van het splitsen geeft volgende resultaat : ",!
+	Do ##class(BL.Legacy.FLOWTOE.AdHocSplitser).%New().SimuleerToeleveringLijnenAdHocSplitsen(TOENr)
+
+	Write !!,"Druk op enter om voort te gaan ... "
+	Read KeuzeVolgendeStap
+	Write !
+
+	Write !!,"Voer nu de splitsing uit op het Order in Admin : Raadplegen klant - Openstaande Orders - F12 - Wijzig Order - Order sluiten. "
+	Write !!,"Druk op enter om voort te gaan ... "
+	Read KeuzeVolgendeStap
+	Write !
+
+	Write !!,"Voer uit nadat de splitsing gelukt is : "
+	Write !,"Do ##class(BL.Legacy.FLOWTOE.AdHocSplitser).%New().CleanUpMapping(TOENr)"
 	
 	/*
 	Splitser v2.1 : 
@@ -145,6 +191,61 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VraagToeleveringId">
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim ToeleveringId As %String = ""
+	While (ToeleveringId = "") {
+		Write !!,"Geef het Toeleveringsnummer (""X"" om af te breken)  : "
+		Read ToeleveringId
+		Write !
+	}
+	
+	Set ..MagUIVerderGaan = $$$Not( $$$UCase(ToeleveringId)="X" )
+	Quit ToeleveringId
+]]></Implementation>
+</Method>
+
+<Method name="ToonInfoEnControleer">
+<FormalSpec>ToeleveringId:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	// Controle Toelevering bestaat
+	If $$$Not(..ToeleveringAPI.BestaatToelevering(ToeleveringId)) {
+		Write !!,"Geen toelevering gevonden met ID: "_ToeleveringId
+		Write !,"Splits-tool wordt afgebroken. Begin opnieuw."
+		Write !
+		Set ..MagUIVerderGaan = $$$False
+	}
+	#dim Toelevering As DOM.AKP.Toelevering = ..ToeleveringAPI.GeefToelevering(ToeleveringId)
+
+	// Tonen klant en order 
+	#dim OrderId As %String = Toelevering.GeefOrderID()
+	#dim KlantId As %String = Toelevering.GeefKlantID()
+	#dim KlantNaam As %String = ##class(DOM.DomeinContext).Instance().GeefVerkoopAPI().GeefKlant(KlantId).GeefNaam()
+	Write !!,"Toelevering '"_ToeleveringId_"' is gekoppeld aan : "_$$$CRLF_" Order '"_OrderId_"' "_$$$CRLF_" Klant '"_KlantNaam_"' ("_KlantId_")."
+	
+	#dim KeuzeVolgendeStap As %String = "J"
+	Write !!,"Zijn deze gegevens correct [J/N] ? "
+	Read KeuzeVolgendeStap
+	Write !
+	If $$$UCase(KeuzeVolgendeStap) = "N" {
+		Set ..MagUIVerderGaan = $$$False
+	}
+	
+	// Controle Toelevering niet in Batch.
+	#dim BatchId As %String = ..BatchService.ZoekBijhorendeBatchIdVoorToelevering(ToeleveringId)
+	If $$$HasLength(BatchId) {
+		Write !!,"De toelevering '"_ToeleveringId_"' is reeds aanwezig in Batch '"_BatchId_"' en kan daarom niet gesplitst worden!"
+		Write !,"Gelieve de batch eerst te ontstarten en de toelevering eruit te halen."
+		Write !,"Splits-tool wordt afgebroken. Begin opnieuw."
+		Write !
+		Set ..MagUIVerderGaan = $$$False
+	}
+]]></Implementation>
+</Method>
+
 <Method name="FilterProductLijnViaGroepKey">
 <FormalSpec>lbProductLijnData:%List,FilterGroepKey:%String</FormalSpec>
 <Private>1</Private>
@@ -347,7 +448,7 @@
 
 	Set ProductieService = ##class(APPS.Halux.common.ProductieService).%New()
 	#dim ProductAPI As DOM.PM.ProductAPI = ##class(DOM.DomeinContext).Instance().GeefProductAPI()
-	#dim Toelevering As DOM.AKP.Toelevering = ##class(DOM.DomeinContext).Instance().GeefToeleveringAPI().GeefToelevering(TOENr)
+	#dim Toelevering As DOM.AKP.Toelevering = ..ToeleveringAPI.GeefToelevering(TOENr)
 	#dim KlantID As %String = Toelevering.GeefKlantID()
 	#dim Product As DOM.PM.Product