Index: APPS/Halux/PPS/TBXZaag/impl/BeschadigingHelper.cls.xml
===================================================================
diff -u -r2761 -r2785
--- APPS/Halux/PPS/TBXZaag/impl/BeschadigingHelper.cls.xml	(.../BeschadigingHelper.cls.xml)	(revision 2761)
+++ APPS/Halux/PPS/TBXZaag/impl/BeschadigingHelper.cls.xml	(.../BeschadigingHelper.cls.xml)	(revision 2785)
@@ -26,10 +26,10 @@
 <Method name="AddIntern">
 <Implementation><![CDATA[
 	Set Grp="Intern"
-	Do ..Voegtoe(Grp,"Zaag","I:Zaag")
-	Do ..Voegtoe(Grp,"Rugwand","I:Rugwand")
-	Do ..Voegtoe(Grp,"Montage","I:Montage")
-	Do ..Voegtoe(Grp,"Verpakking","I:Verpakking")
+	Do ..Voegtoe(Grp,"Zaag","I;Zaag")
+	Do ..Voegtoe(Grp,"Rugwand","I;Rugwand")
+	Do ..Voegtoe(Grp,"Montage","I;Montage")
+	Do ..Voegtoe(Grp,"Verpakking","I;Verpakking")
 ]]></Implementation>
 </Method>
 </Class>
Index: APPS/Halux/PPS/TBXZaag/impl/OpdrachtHelper.cls.xml
===================================================================
diff -u -r2466 -r2785
--- APPS/Halux/PPS/TBXZaag/impl/OpdrachtHelper.cls.xml	(.../OpdrachtHelper.cls.xml)	(revision 2466)
+++ APPS/Halux/PPS/TBXZaag/impl/OpdrachtHelper.cls.xml	(.../OpdrachtHelper.cls.xml)	(revision 2785)
@@ -26,14 +26,14 @@
 <Query name="qActieveBatchLijst">
 <Type>%SQLQuery</Type>
 <FormalSpec>LijnNr</FormalSpec>
-<SqlQuery><![CDATA[	Select DISTINCT Batch || "||" || isnull(SubBatch,"") as BatchKey, Batch || " " || isnull(SubBatch,"") as BatchOms from APPS_Halux_TBX.ZaagOpdrachten --where isnull(Batch->NotActive,0)=0
+<SqlQuery><![CDATA[	Select DISTINCT Batch || '||' || isnull(SubBatch,'') as BatchKey, Batch || ' ' || isnull(SubBatch,'') as BatchOms from APPS_Halux_PPS_TBXZaag.Opdrachten --where isnull(Batch->NotActive,0)=0
 	order by Batch,SubBatch]]></SqlQuery>
 <Parameter name="CONTAINID" value="0"/>
 </Query>
 
 <Query name="qZaagLijst">
 <Type>%Query</Type>
-<FormalSpec>BatchID:%Integer,SubBatch:APPS.Halux.TBX.enu.SubBatch</FormalSpec>
+<FormalSpec>BatchID:%Integer,SubBatch:APPS.Halux.PPS.TBXZaag.enu.SubBatch</FormalSpec>
 <SqlProc>1</SqlProc>
 <Parameter name="CONTAINID" value="1"/>
 <Parameter name="ROWSPEC" value="ZaagID:%Integer,PRNr:%Integer,KortTekst:%String,BatchID:%Integer,SubBatch:%String,KlantNaam:%String,TOENr:%Integer,DossierCode:%String,VolgNr:%Integer,SubNr:%Integer,Totaal:%Integer,Status:%String,Transferlijn:%String,Mode:%String,ModeTitel:%String,Opmerking1:%String,Opmerking2:%String,PrintXML:%String,OpmetenBodem:%Boolean,BodemAanslagSensor:%Boolean,BodemBewerking:%String,BodemChangeAfter:%Integer,BodemLengteUntilChange:%Float,BodemChangeHoogte:%Boolean,BodemChangeKleur:%Boolean,BodemBreedte:%Float,BodemHoogte:%Integer,BodemHoogteOms:%String,BodemHoogteSensor:%Boolean,BodemKleur2de:%String,BodemKleurZichtbaar:%String,BodemReturnsAfter:%Integer,BodemProductID:%Integer,BodemImageURL:%String,RugAanslagSensor:%Boolean,RugBewerking:%String,RugChangeAfter:%Integer,RugLengteUntilChange:%Float,RugChangeHoogte:%Boolean,RugChangeKleur:%Boolean,RugBreedte:%Float,RugHoogte:%Integer,RugHoogteOms:%String,RugHoogteSensor:%Boolean,RugKleur2de:%String,RugKleurZichtbaar:%String,RugReturnsAfter:%Integer,RugProductID:%Integer,RugImageURL:%String"/>
@@ -272,9 +272,9 @@
 
 <Query name="qZaagLijstHelper">
 <Type>%SQLQuery</Type>
-<FormalSpec>BatchID:%Integer,SubBatch:APPS.Halux.TBX.enu.SubBatch</FormalSpec>
+<FormalSpec>BatchID:%Integer,SubBatch:APPS.Halux.PPS.TBXZaag.enu.SubBatch</FormalSpec>
 <SqlQuery>	
-	Select ID from APPS_Halux_TBX.ZaagOpdrachten where Batch = :BatchID and isnull(SubBatch,"*")=isnull(:SubBatch,"*")</SqlQuery>
+	Select ID from APPS_Halux_PPS_TBXZaag.Opdrachten where Batch = :BatchID and isnull(SubBatch,'*')=isnull(:SubBatch,'*')</SqlQuery>
 <Parameter name="CONTAINID" value="1"/>
 </Query>
 </Class>
Index: APPS/Halux/PPS/TBXZaag/impl/Werkpost.cls.xml
===================================================================
diff -u -r2763 -r2785
--- APPS/Halux/PPS/TBXZaag/impl/Werkpost.cls.xml	(.../Werkpost.cls.xml)	(revision 2763)
+++ APPS/Halux/PPS/TBXZaag/impl/Werkpost.cls.xml	(.../Werkpost.cls.xml)	(revision 2785)
@@ -32,6 +32,8 @@
 </Method>
 
 <Method name="BeschadigingLade">
+<Description>
+Reden is opgebouwd uit 2 delen Actie en Ref, met ";" gescheiden</Description>
 <FormalSpec>ZaagID:%Integer,BodemOfRug:APPS.Halux.PPS.TBXZaag.enu.BodemRug,Rework:%Boolean,Reden:%String</FormalSpec>
 <Implementation><![CDATA[
 	Set ZaagOpdracht=##class(APPS.Halux.PPS.TBXZaag.Opdrachten).%OpenId(ZaagID)
@@ -40,44 +42,48 @@
 	Set ProductAPI = ##class(DOM.DomeinContext).Instance().GeefProductAPI() ; extends DOM.PM.TBXProduct.TBXLade
 	Set Lade = ProductAPI.GeefProduct(Queue.Product.%Id())
 	Set Lengte=0
-	If BodemOfRug=##class(APPS.Halux.PPS.TBXZaag.enu.BodemRug).Bodem()
+	If (BodemOfRug=##class(APPS.Halux.PPS.TBXZaag.enu.BodemRug).Bodem())||(BodemOfRug=##class(APPS.Halux.PPS.TBXZaag.enu.BodemRug).BodemEnRug())
 	{
 		Set Breedte=Lade.GeefBodemBreedte()
 		Set Plaat=Lade.GeefBodem()
 		Quit:'isObject(Plaat)
 		Set PlaatPRNr=Plaat.GeefPRNr()
 		If Plaat.%Extends("DOM.PM.TBXPRodukt.TBXBodemStrook")
 		{
-			Set Lengte=Breedte/Plaat.GeefBreedte()
+			Set Lengte=Breedte/+$J(Breedte/Plaat.GeefBreedte(),0,2)
 		}
 		Else  ; voorgezaagde bodem
 		{
 			Set Lengte=1
 		}
+		Quit:'Lengte
+		Do ..BeschadigingPlaat(PlaatPRNr,Lengte,Reden)
 	}
-	ElseIf BodemOfRug=##class(APPS.Halux.PPS.TBXZaag.enu.BodemRug).Rug()
+	ElseIf (BodemOfRug=##class(APPS.Halux.PPS.TBXZaag.enu.BodemRug).Rug())||(BodemOfRug=##class(APPS.Halux.PPS.TBXZaag.enu.BodemRug).BodemEnRug())
 	{
 		Set Breedte=Lade.GeefRugBreedte()
 		Set Plaat=Lade.GeefRug()
 		Quit:'isObject(Plaat)
 		Set PlaatPRNr=Plaat.GeefPRNr()
-		If Plaat.%Extends("DOM.PM.TBXPRodukt.TBXBodemStrook")
+		If Plaat.%Extends("DOM.PM.TBXPRodukt.TBXRugStrook")
 		{
-			Set Lengte=Breedte/Plaat.GeefBreedte()
+			Set Lengte=+$J(Breedte/Plaat.GeefBreedte(),0,2)
 		}
 		Else  ; voorgezaagde bodem
 		{
 			Set Lengte=1
 		}
+		Quit:'Lengte
+		Do ..BeschadigingPlaat(PlaatPRNr,Lengte,Reden)
 	}
-	Quit:'Lengte
-	Do ..BeschadigingPlaat(PlaatPRNr,Lengte,Reden)
 	
 	; TODO - rework
 ]]></Implementation>
 </Method>
 
 <Method name="BeschadigingPlaat">
+<Description>
+Reden is opgebouwd uit 2 delen Actie en Ref, met ";" gescheiden</Description>
 <FormalSpec>PlaatPRNr:%Integer,Lengte:%Float,Reden:%String</FormalSpec>
 <ProcedureBlock>0</ProcedureBlock>
 <Implementation><![CDATA[
@@ -90,14 +96,14 @@
 
 <Method name="ControleMeting">
 <FormalSpec>ZaagID:%Integer,BodemOfRug:APPS.Halux.PPS.TBXZaag.enu.BodemRug,GewensteLengte:%Float,GemetenLengte:%Float</FormalSpec>
-<Implementation><![CDATA[]]></Implementation>
+<Implementation><![CDATA[	Set Log=..Logger.Debug("Controlemeetiing", "ZaagID:"_$G(ZaagID)_", B+R:"_BodemOfRug_", Gewenst"_GewensteLengte_", Gemeten: "_GemetenLengte)
+]]></Implementation>
 </Method>
 
 <Method name="GeefBatchLijst">
 <FormalSpec>ProductieLijn:APPS.Halux.PPS.TBXZaag.enu.Output2Lijn</FormalSpec>
 <ReturnType>%XML.DataSet</ReturnType>
 <Implementation><![CDATA[
-	
 	Set Log=..Logger.Debug("GeefBatchLijst", "Lijn:"_$G(ProductieLijn))
 	Set DataSet=##class(%XML.DataSet).%New("APPS.Halux.PPS.TBXZaag.impl.LijstHelper:qActieveBatchLijst")