Index: BL/PPS/TBX/Sequencer.cls.xml
===================================================================
diff -u -r2050 -r2258
--- BL/PPS/TBX/Sequencer.cls.xml	(.../Sequencer.cls.xml)	(revision 2050)
+++ BL/PPS/TBX/Sequencer.cls.xml	(.../Sequencer.cls.xml)	(revision 2258)
@@ -55,6 +55,7 @@
 <example> s bl=##class(BL.PPS.TBX.Sequencer).Instantiate() d bl.Init(2168),bl.BldLeanV1SequenceNew() </example>]]></Description>
 <FormalSpec><![CDATA[&QtyLade:%Integer]]></FormalSpec>
 <Implementation><![CDATA[
+	Set ProductAPI = ##class(DOM.DomeinContext).Instance().GeefProductAPI()
 	#define LeftPad4(%v)    (10000-%v)
 	Set D="\"
 	Do ..DeleteBatch()
@@ -76,6 +77,7 @@
 	. . Quit:$P(LRec,D,3)<1
 	. . Set SortKey=..SequenceKey(PRNr)
 	. . Quit:SortKey=""
+	. . Quit:'ProductAPI.GeefProduct(PRNr).%Extends("DOM.PM.TBXProduct.TBXLade")
 	. . ;Quit:(KLNr=..#Assenti)&&((..IsSpoel(PRNr))||($P(^KPR(PRNr,0),"\")[("*"_..#Assenti_"*"))) ;klant Assenti -> zonder spoelbak
 	. . Set SortKey=SortKey_"-"_TOENr_"-"_TLUNr
 	. . Set $P(LRec,D)=TLUNr