Index: BL/PPS/TBX/DocsV1.cls.xml
===================================================================
diff -u -r2037 -r2039
--- BL/PPS/TBX/DocsV1.cls.xml	(.../DocsV1.cls.xml)	(revision 2037)
+++ BL/PPS/TBX/DocsV1.cls.xml	(.../DocsV1.cls.xml)	(revision 2039)
@@ -1684,19 +1684,8 @@
 <ClassMethod>1</ClassMethod>
 <FormalSpec>PRNr</FormalSpec>
 <Implementation><![CDATA[
-	Set BodemPRNr=$P($G(^PRBS("BS",PRNr,"PRBDHO.001")),"\",1) ; meest voorkomend
-	Set:BodemPRNr'?4.7N BodemPRNr=$P($G(^PRBS("BS",PRNr,"PRBDHZ.001")),"\",1) ; reeds op maat
-	;w BodemPRNr
-	If BodemPRNr'?4.7N Do ; Niet gevonden zoeken naar bodem
-	. Set BSKey=""  
-	. For  Set BSKey=$O(^PRBS("BS",PRNr,BSKey)) Quit:BSKey=""  Do
-	. . Set TempPRNr=$P($G(^PRBS("BS",PRNr,BSKey)),"\")
-	. . Quit:'TempPRNr
-	. . ;w ^KPR(TempPRNr,0)
-	. . Set:$P($G(^KPR(TempPRNr,0)),"\")?1"SPP"1E1"B"1.E BodemPRNr=TempPRNr
-	Set MetInkeeping=0
-	Set:BodemPRNr&&($LG(##class(Prod.Kenmerk.DataDefinitie).Get("TB",BodemPRNr,"Opties"))="INKEPING") MetInkeeping=1
-	Quit $G(MetInkeeping)
+	Set TBXLade = ##class(DOM.DomeinContext).Instance().GeefProductAPI().GeefProduct(PRNr)
+	Quit TBXLade.BevatBodem() && TBXLade.GeefBodem().HeeftInkeping()
 ]]></Implementation>
 </Method>
 
Index: BL/PPS/TBX/DocsProPlus.cls.xml
===================================================================
diff -u -r2025 -r2039
--- BL/PPS/TBX/DocsProPlus.cls.xml	(.../DocsProPlus.cls.xml)	(revision 2025)
+++ BL/PPS/TBX/DocsProPlus.cls.xml	(.../DocsProPlus.cls.xml)	(revision 2039)
@@ -547,27 +547,25 @@
 	Set rs=##class(%ResultSet).%New("BL.PPS.TBX.Sequencer:GetSequence")
 	Set sc=rs.Execute(..BatchID)
 	Set Count=0
-	For  Quit:'rs.Next()  Do
-	. Quit:rs.Data("Status")="PB" ; sequencelijnen met status "PB" worden overgeslagen
-	. Set PRNr=rs.Data("Product")
-	. Set UnitNr=+rs.Data("UnitNr")
-	. Set Klas=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"KLAS")) ; klasse
-	. Quit:Klas="SP2" ; geen spoelbak
-	. Set PlaatMat=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"MATKL")) ; Materiaal gezaagd
-	. Set IB=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"IB")) ; Intern breedte
-	. Set BodemPRNr=..BodemPRNr(PRNr)
-	. Set MetInkeeping = 0
-	. Set:BodemPRNr'="" MetInkeeping=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TB",BodemPRNr,"Opties"))="INKEPING" ; Opties
-	. If ReedsGezaagdOnly Quit:(PlaatMat'?1(1"HZ",1"HA",1"KZ",1"KA"))&&('MetInkeeping)
-	. Set Sort(UnitNr,$I(Sort(UnitNr)))=$LB(rs.Data("ID"),$I(Count),BodemPRNr,IB)
-	;k %Sort m %Sort=Sort zw %Sort r k
+	While (rs.Next())
+	{
+		If (rs.Data("Status") '= "PB")
+		{
+			Set TBXLade=ProductAPI.GeefProduct(rs.Data("Product"))
+			If (TBXLade.BevatBodem()) && ('TBXLade.IsSpoelbakLade()) && (('ReedsGezaagdOnly) || TBXLade.BevatVoorgezaagdeBodem() || TBXLade.GeefBodem().HeeftInkeping())
+			{
+				Set UnitNr=+rs.Data("UnitNr")
+				Set Sort(UnitNr,$I(Sort(UnitNr)))=$LB(rs.Data("ID"),$I(Count),TBXLade.GeefBodem().GeefPRNr(),TBXLade.GeefInterneBreedte())
+			}
+		}
+	}
+	
 	; splitsen in pickinglijst en zaaglijst voor uitzonderlijke afmetingen
 	Set VHossNr=""
 	For  Set VHossNr=$O(Sort(VHossNr),..VHOSSOrder) Quit:VHossNr=""  Do
 	. Set QtyVHoss=Sort(VHossNr)
 	. Set NbrKar=(QtyVHoss+..#BodemsPerKar-1)\..#BodemsPerKar
 	. Set QtyKar=(QtyVHoss+NbrKar-1)\NbrKar
-	. ;r k Write "QtyKar",QtyKar," NbrKar",NbrKar," QtyVhoss",QtyVHoss,!
 	. For Kar=1:1:NbrKar Do ; opdelen per bodemkar
 	. . Set KarMin=Kar-1*(QtyKar)
 	. . Set KarMax=Kar*QtyKar
@@ -576,47 +574,35 @@
 	. . ;Write "KarMin",KarMin,"KarMax",KarMax,!
 	. . For  Set VolgNr=$O(Sort(VHossNr,VolgNr),-1) Quit:VolgNr=""  Quit:VolgNr'>KarMin  Do ; bodems per kar
 	. . . Set oQ=##class(DS.PPS.TBX.Queue).%OpenId($LI(Sort(VHossNr,VolgNr)))
-	. . . Set PRNr=oQ.ProductGetObjectId()
-	. . . Set TBXLade=ProductAPI.GeefProduct(PRNr)   ; Voorlopig alleen gebruikt voor het opvragen van de Ruggen
-	. . . Set Klas=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"KLAS")) ; klasse
-	. . . Set MatKl=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"MATKL")) ; Materiaal klant
-	. . . Set LC=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"LC")) ; frontType
-	. . . Set KB=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"KB")) ; bodem kleur
-	. . . Set IB=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"IB")) ; Intern breedte
-	. . . Set LD=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"LD")) ; Ladediepte
-	. . . Set IsSR=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"IsSR")) ; Stalenrug
-	. . . Set BodemPRNr=$LI(Sort(VHossNr,VolgNr),3)
-	. . . Quit:'BodemPRNr
-	. . . Set TeZagen=MatKl="HS" ; Te zagen
+	. . . Set TBXLade=ProductAPI.GeefProduct(oQ.ProductGetObjectId())
+	. . . Set Bodem = TBXLade.GeefBodem()
+	. . . Set TeZagen = ((TBXLade.GeefPlaatMateriaal()="HS") || (Bodem.HeeftInkeping()))
 	. . . Set MetHoutenRug=(TBXLade.GeefRugMateriaal()=##class(DOM.PM.enu.TBXRugMateriaal).Hout())   ; Added by WimV on 18/03/2011 
-	. . . Set MetInkeeping=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TB",BodemPRNr,"Opties"))="INKEPING" ; Opties
-	. . . Set:MetInkeeping TeZagen=1
 	. . . ; Toevoegen aan BODEM PERS lijst voor picking 
 	. . . Set VHoss=oQ.WPVerpak.UnitNr_"."_$C(64+oQ.WPVerpak.SubNr)_"."_oQ.WPVerpak.SlotNr
-	. . . Set Oms2=$S(MetInkeeping:"INK",1:"")_$S(MetHoutenRug:"+RUG", 1:"")
+	. . . Set HeeftTipon = (TBXLade.GeefBlumotion() = ##class(DOM.PM.enu.TBXBlumotion).TipOn())
+	. . . Set Oms2=$S(Bodem.HeeftInkeping():"INK",1:"")_$S(MetHoutenRug:"+RUG", 1:"")_$S(HeeftTipon:"TIP-ON",1:"")
 	. . . Set Oms1=$S(TeZagen:"ZAAG",1:"")
-	. . . Set KT=$P(^KPR(BodemPRNr,0),"\")
-	. . . Set BodemBreedte=IB-75
-	. . . Set BodemDiepte=LD-$S(IsSR:22,1:24)
+	. . . Set IB = TBXLade.GeefInbouwBreedte()
+	. . . Set BodemBreedte = TBXLade.GeefBodemBreedte()
+	. . . Set BodemDiepte = TBXLade.GeefLadeDiepte()-$S(TBXLade.GeefRugMateriaal()=##class(DOM.PM.enu.TBXRugMateriaal).Staal():22,1:24)
 	. . . Set BodemCount=""
-	. . . If (PrevBodem'=BodemPRNr) || (PrevIB '= IB) Do
+	. . . If (PrevBodem'=Bodem.GeefPRNr()) || (PrevIB '= IB) Do
 	. . . . Set VolgNr2=VolgNr
 	. . . . Set BodemCount=1
-	. . . . For  Set VolgNr2=$O(Sort(VHossNr,VolgNr2),-1) Quit:VolgNr2=""  Quit:VolgNr2'>KarMin  Quit:(BodemPRNr'=$LI(Sort(VHossNr,VolgNr2),3)||(IB'=$LI(Sort(VHossNr,VolgNr2),4)))  Set BodemCount=BodemCount+1
-	. . . . Set PrevBodem=BodemPRNr
+	. . . . For  Set VolgNr2=$O(Sort(VHossNr,VolgNr2),-1) Quit:VolgNr2=""  Quit:VolgNr2'>KarMin  Quit:(Bodem.GeefPRNr()'=$LI(Sort(VHossNr,VolgNr2),3)||(IB'=$LI(Sort(VHossNr,VolgNr2),4)))  Set BodemCount=BodemCount+1
+	. . . . Set PrevBodem=Bodem.GeefPRNr()
 	. . . . Set PrevIB = IB
-	. . . Set ^HULP(%J,"P",$I(^HULP(%J,"P")))=oQ.Sequence_"\"_oQ.%Id()_"\"_BodemPRNr_"\"_oQ.TOENr_"\"_oQ.DOSNr_"\"_KT_"\"_KB_"\"_BodemDiepte_"\"_BodemBreedte_"\"_"\"_VHoss_"\"_Oms1_"\"_Oms2_"\"_oQ.WPVerpak.UnitNr_"\"_Kar
+	. . . Set ^HULP(%J,"P",$I(^HULP(%J,"P")))=oQ.Sequence_"\"_oQ.%Id()_"\"_Bodem.GeefPRNr()_"\"_oQ.TOENr_"\"_oQ.DOSNr_"\"_Bodem.GeefKorttekst()_"\"_TBXLade.GeefBodemKleur()_"\"_BodemDiepte_"\"_BodemBreedte_"\"_"\"_VHoss_"\"_Oms1_"\"_Oms2_"\"_oQ.WPVerpak.UnitNr_"\"_Kar
 	. . . Set $P(^HULP(%J,"P",^HULP(%J,"P")),"\",20)=BodemCount
 	. . . ;Set Index("P",PRNr)=$G(Index("P",PRNr))+1
 	. . . ; Toevoegen aan BODEM ZAAG lijst
 	. . . If TeZagen Do
-	. . . . If MetInkeeping Do
-	. . . . . Set BodemIB=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TB",BodemPRNr,"BreedteIntern")) ; BodemInterneBreedte
-	. . . . . ;w $P(^KPR(BodemPRNr,0),"\")," Bodem",BodemIB," IB",IB,!
-	. . . . . If BodemIB=IB Do
+	. . . . If Bodem.HeeftInkeping() Do
+	. . . . . If Bodem.GeefBreedte()=IB Do
 	. . . . . . Set (ZaagBreedte1,BodemBreedte)=""
 	. . . . . Else  Do
-	. . . . . . Set ZaagBreedte1=(BodemIB-IB)/2-5 ; -5 toegevoegd : PV 27/11/08
+	. . . . . . Set ZaagBreedte1=(Bodem.GeefBreedte()-IB)/2-5 ; -5 toegevoegd : PV 27/11/08
 	. . . . Else  Do ; zonder inkeeping uit stroken
 	. . . . . Set ZaagBreedte1=""
 	. . . . 
@@ -629,10 +615,10 @@
 	. . . . . Set RugBreedte=TBXLade.GeefRugBreedte()
 	. . . . . Set OmsRug="RUG"
 	. . . . . Set RugKT=TBXRug.GeefKorttekst()
-	. . . . . Set ^HULP(%J,"ZT",$I(^HULP(%J,"ZT")))=oQ.Sequence_"\"_oQ.%Id()_"\"_RugPRNr_"\"_oQ.TOENr_"\"_oQ.DOSNr_"\"_RugKT_"\"_KB_"\"_RugHoogte  _"\"_RugBreedte  _"\"_ZaagBreedte1_"\"_VHoss_"\"_OmsRug_"\\"_oQ.WPVerpak.UnitNr_"\"_Kar
+	. . . . . Set ^HULP(%J,"ZT",$I(^HULP(%J,"ZT")))=oQ.Sequence_"\"_oQ.%Id()_"\"_RugPRNr_"\"_oQ.TOENr_"\"_oQ.DOSNr_"\"_RugKT_"\"_TBXLade.GeefBodemKleur()_"\"_RugHoogte  _"\"_RugBreedte  _"\"_ZaagBreedte1_"\"_VHoss_"\"_OmsRug_"\\"_oQ.WPVerpak.UnitNr_"\"_Kar
 	. . . . 
-	. . . . Set Oms=$S(MetInkeeping:"INK",1:"")
-	. . . . Set ^HULP(%J,"ZT",$I(^HULP(%J,"ZT")))=oQ.Sequence_"\"_oQ.%Id()_"\"_BodemPRNr_"\"_oQ.TOENr_"\"_oQ.DOSNr_"\"_KT_"\"_KB_"\"_BodemDiepte_"\"_BodemBreedte_"\"_ZaagBreedte1_"\"_VHoss_"\"_Oms_"\\"_oQ.WPVerpak.UnitNr_"\"_Kar
+	. . . . Set Oms=$S(Bodem.HeeftInkeping():"INK",1:"")
+	. . . . Set ^HULP(%J,"ZT",$I(^HULP(%J,"ZT")))=oQ.Sequence_"\"_oQ.%Id()_"\"_Bodem.GeefPRNr()_"\"_oQ.TOENr_"\"_oQ.DOSNr_"\"_Bodem.GeefKorttekst()_"\"_TBXLade.GeefBodemKleur()_"\"_BodemDiepte_"\"_BodemBreedte_"\"_ZaagBreedte1_"\"_VHoss_"\"_Oms_"\\"_oQ.WPVerpak.UnitNr_"\"_Kar
 	. . . 
 	. . . If $G(KlantOrdRef)="" Do
 	. . . . Do ..GetKlantRef(oQ,.KlantOrdRef,.KlantProdRef,.TransRef)
@@ -699,23 +685,6 @@
 ]]></Implementation>
 </Method>
 
-<Method name="BodemPRNr">
-<FormalSpec>PRNr</FormalSpec>
-<Private>1</Private>
-<Implementation><![CDATA[
-	Set HFPRNr=$P($G(^PRBS("BS",PRNr,"PRBDHZ.001")),"\")
-	Set:'HFPRNr HFPRNr=$P($G(^PRBS("BS",PRNr,"PRBDHO.001")),"\")
-	If 'HFPRNr Do
-	. Set BSKey=""  
-	. For  Set BSKey=$O(^PRBS("BS",PRNr,BSKey)) Quit:BSKey=""  Do
-	. . Set TempPRNr=$P($G(^PRBS("BS",PRNr,BSKey)),"\")
-	. . Quit:'TempPRNr
-	. . Set:$E($P(^KPR(TempPRNr,0),"\"),1,3)?1(1"SPP",1"SPF") HFPRNr=TempPRNr
-	Quit:'HFPRNr ""
-	Quit HFPRNr
-]]></Implementation>
-</Method>
-
 <UDLText name="T">
 <Content><![CDATA[
 /************