Index: BL/MB/UGLYPicking/Receptie.cls.xml
===================================================================
diff -u -r38234 -r38999
--- BL/MB/UGLYPicking/Receptie.cls.xml	(.../Receptie.cls.xml)	(revision 38234)
+++ BL/MB/UGLYPicking/Receptie.cls.xml	(.../Receptie.cls.xml)	(revision 38999)
@@ -1409,12 +1409,7 @@
 <SoapBindingStyle>document</SoapBindingStyle>
 <SoapBodyUse>literal</SoapBodyUse>
 <Implementation><![CDATA[
-	Set AssocToelevering=..GetCommonAssocToelev(bfrRGID , bfrVolgNr)
-	If AssocToelevering { 
-		Set IsDirectLevering= ##class(BL.MB.UGLYPicking.VerzendDirectControleur).%New().ControleViaToelevering(AssocToelevering)=""
-	} Else { 
-		Set IsDirectLevering=0
-	}
+	Set IsDirectLevering= ##class(BL.MB.UGLYPicking.VerzendDirectControleur).%New().ControleViaReceptieBuffer(bfrRGID , bfrVolgNr)=""
 	Quit IsDirectLevering
 ]]></Implementation>
 </Method>
Index: BL/MB/UGLYPicking/VerzendDirectControleur.cls.xml
===================================================================
diff -u -r38943 -r38999
--- BL/MB/UGLYPicking/VerzendDirectControleur.cls.xml	(.../VerzendDirectControleur.cls.xml)	(revision 38943)
+++ BL/MB/UGLYPicking/VerzendDirectControleur.cls.xml	(.../VerzendDirectControleur.cls.xml)	(revision 38999)
@@ -19,54 +19,61 @@
 <Default>DI1</Default>
 </Parameter>
 
-<Method name="Create">
+<Method name="ControleViaReceptieBuffer">
 <Description>
-d ##class(BL.MB.UGLYPicking.Receptie).IsDirectLevering("TB",4)
-d ##class(BL.MB.UGLYPicking.VerzendDirectControleur).Create()</Description>
-<ClassMethod>1</ClassMethod>
+w ##class(BL.MB.UGLYPicking.VerzendDirectControleur).%New().ControleViaReceptieBuffer("TB",5)</Description>
+<FormalSpec>bfrRGID:%String,bfrVolgNr:%String</FormalSpec>
+<ReturnType>%Library.String</ReturnType>
 <Implementation><![CDATA[
-	s ^UPRCP("B","TB",4)	=	"64254,41554\1\OVE\1"
-	s ^UPRCP("B","TB",4,1)	=	"1549631\T.P7.JY.5\TBX19975\04020101\1\64254,41552\OVE\247299"
-	s ^UPRCP("B","TB",5)	=	"64254,41554\1\OVE\1"
-	s ^UPRCP("B","TB",5,1)	=	"1549677\T.P7.JY.5\TBX19975\04020101\6\64254,41552\OVE\247305"
-	s ^UPRCP("B","TB",5,2)	=	"1549678\T.P7.JY.5\TBX19975\04020101\4\64254,41552\OVE\247305"
+	Set TOENr=..GeefGemeenschappelijkeToelev(bfrRGID,bfrVolgNr)
+	Quit:TOENr="" "GEEN GEMEENSCHAPPELIJKE TOELEV"
+	Quit ..ControleViaToelevering(TOENr)
 ]]></Implementation>
 </Method>
 
-<Method name="CheckAll">
-<Description>
-d ##class(BL.MB.UGLYPicking.VerzendDirectControleur).%New().CheckAll()</Description>
+<Method name="GeefGemeenschappelijkeToelev">
+<FormalSpec>bfrRGID:%String,bfrVolgNr:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Library.String</ReturnType>
 <Implementation><![CDATA[
-	s Dev=0 ;$$OPEN^vhDEV(,"test.txt","W","T")
-	u Dev
-	Set KTONr=""
-	For  Set KTONr=$O(^KTO(6332,KTONr)) Quit:KTONr=""  Do
-	. Write KTONr, *9,..ControleViaToelevering(KTONr),!
-	Do CLOSE^vhDEV(Dev)
+ 
+	Set GemeenschappelijkeToelev=""
+	Set LijnNrLoop=""
+	Set EarlyQuit=0
+	For  Set LijnNrLoop=$O(^UPRCP("B",bfrRGID,bfrVolgNr,LijnNrLoop)) Quit:((LijnNrLoop="") || EarlyQuit)  Do
+	. Set Rec=^UPRCP("B",bfrRGID,bfrVolgNr,LijnNrLoop)
+	. Set BufferLijnToelev=$P(Rec,"\",8) ; Indien bufferlijn gekoppeld aan toelevering
+	. If BufferLijnToelev="" Set BufferLijnToelev=..GeefToeleveringVoorProduct($P(Rec,"\",1))
+	. 
+	. If BufferLijnToelev="" Do ; Geen toelevering gevonden voor de bufferlijn
+	. .   Set GemeenschappelijkeToelev=""
+	. .   Set EarlyQuit=1
+	. Else  If (GemeenschappelijkeToelev="") Do
+	. .   Set GemeenschappelijkeToelev=BufferLijnToelev   ;Eerste maal, AssocToelev onthouden
+	. Else  If (BufferLijnToelev'=GemeenschappelijkeToelev)
+	...   Set EarlyQuit=1                       ;Tweede maal, geen gemeenschappelijke AssocToelev...
+	...   Set GemeenschappelijkeToelev=""
+	
+	Quit GemeenschappelijkeToelev
 ]]></Implementation>
 </Method>
 
-<Method name="CheckAllBevatMaatwerk">
-<FormalSpec>KLNr,ORDNr</FormalSpec>
+<Method name="GeefToeleveringVoorProduct">
+<FormalSpec>ProductNr:%String</FormalSpec>
 <Private>1</Private>
+<ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
-	Set OLNr=$O(^KOD(KLNr,"F",ORDNr,99)) 
-	Set MemGenTyp=""
-	While (OLNr'="") 
-	{
-		Set Lijn=$G(^KOD(KLNr,"F",ORDNr,OLNr))
-		If $P($P(Lijn,"\",17),"#")'="KF11" ; geen tekstlijn
-		{
-			If $P($P(Lijn,"\",17),"#")="KF0"
-			{
-				Set PRNr=$P(Lijn,"\",2)
-				Set GenTyp=$P($$GENTYP^HAD(PRNr),"\",1)
-				Set:MemGenTyp="" MemGenTyp=GenTyp
-			}
-		}
-		Set OLNr=$O(^KOD(KLNr,"F",ORDNr,OLNr)) 
-	}
-	Quit MemGenTyp
+ 	;Check of er minstens een toelevering gekoppeld is aan het productnr
+	Quit:('$D(^TO("IP",ProductNr))) ""
+ 
+	New TOENr
+	Set TOENr=""
+	Set TOENr=$O(^TO("IP",ProductNr,TOENr))
+ 
+	;Check of er slechts één toelevering gekoppeld
+	Quit:($O(^TO("IP",ProductNr,TOENr))'="") ""
+ 
+	Quit TOENr
 ]]></Implementation>
 </Method>