Index: APPS/Halux/PPS/TAORProductie/ZijkantTester/impl/OphalenData.cls.xml
===================================================================
diff -u -r70013 -r70016
--- APPS/Halux/PPS/TAORProductie/ZijkantTester/impl/OphalenData.cls.xml	(.../OphalenData.cls.xml)	(revision 70013)
+++ APPS/Halux/PPS/TAORProductie/ZijkantTester/impl/OphalenData.cls.xml	(.../OphalenData.cls.xml)	(revision 70016)
@@ -4,7 +4,7 @@
 <Description>
 De gegevens van een zijkant moeten opgehaald worden voor de TA'OR zijkanttester.
 Met deze gegevens weet de machine welke afmetingen het moet testen en ook welke informatie er aan de gebruiker moet getoond worden.</Description>
-<Super>%RegisteredObject</Super>
+<Super>TECH.RegisteredObject</Super>
 
 <Property name="Werkpost">
 <Type>%String</Type>
@@ -46,14 +46,14 @@
 <FormalSpec>BarcodeID:%String</FormalSpec>
 <ReturnType>APPS.Halux.PPS.TAORProductie.ZijkantTester.dto.InstellenData</ReturnType>
 <Implementation><![CDATA[
-	If ($Extract(BarcodeID) '= "Z") {
+	If $$$Not($Extract(BarcodeID) = "Z") {
 		Quit "Geen zijkant"
 	}
 	
 	#dim UitvoeringInfo As APPS.Halux.PPS.Activiteit.impl.TAOR.dto.OpdeelzaagUitvoeringInfo
 	Set InfoID = ""
 	&SQL(SELECT ID INTO :InfoID FROM APPS_Halux_PPS_Activiteit_impl_TAOR_dto.OpdeelzaagUitvoeringInfo WHERE VerwerkingID=:BarcodeID)
-	If (InfoID '= "")
+	If $$$Not(InfoID = "")
 	{
 		Set UitvoeringInfo = ##class(APPS.Halux.PPS.Activiteit.impl.TAOR.dto.OpdeelzaagUitvoeringInfo).%OpenId(InfoID)
 		Set ..InstellenData = ##class(APPS.Halux.PPS.TAORProductie.ZijkantTester.dto.InstellenData).%New()
@@ -111,7 +111,7 @@
 <Method name="BepaalZijkantRol">
 <Implementation><![CDATA[
 	#dim Rol As DOM.PM.Maatwerk.Lade.enu.ZijkantRol
-	#dim LinksRechtsCode As %String = $E(..InstellenData.BarcodeID,6)
+	#dim LinksRechtsCode As %String = $Extract(..InstellenData.BarcodeID,6)
 	
 	If ((LinksRechtsCode = "R") || (LinksRechtsCode = "B") || (LinksRechtsCode = "D") || (LinksRechtsCode = "F") || (LinksRechtsCode = "H") || (LinksRechtsCode = "Y") ) {
 		; Deze codes zijn terug te vinden in de Barcode ISO
@@ -128,33 +128,35 @@
 <Method name="BepaalAantalHaken">
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
-	If ..InstellenData.HoogteCode="C"||(..InstellenData.HoogteCode="F") {
-		Set AantalHakenCode="D"
-	} ElseIf ..InstellenData.HoogteCode="N" {
-		Set AantalHakenCode="L"
+	#dim AantalHakenCode As %String
+	
+	If ..InstellenData.HoogteCode = "C"||(..InstellenData.HoogteCode = "F") {
+		Set AantalHakenCode = "D"
+	} ElseIf ..InstellenData.HoogteCode = "N" {
+		Set AantalHakenCode = "L"
 	} Else {
-		Set AantalHakenCode="E"
+		Set AantalHakenCode = "E"
 	}
 	Quit AantalHakenCode
 ]]></Implementation>
 </Method>
 
 <Method name="OphalenLaatsteKeer">
 <Implementation><![CDATA[
-	Set BarcodeID=..InstellenData.BarcodeID
-	Set (LaatsteKeer, AantalKeer)=""
+	Set BarcodeID = ..InstellenData.BarcodeID
+	Set (LaatsteKeer, AantalKeer) = ""
 	&SQL(Select max(TijdstipTest), count(*) into :LaatsteKeer, :AantalKeer from APPS_Halux_PPS_TAORProductie_ZijkantTester_impl.Metingen where BarcodeId=:BarcodeID)
-	Set ..InstellenData.TijdstipLaatsteTest=LaatsteKeer
-	Set ..InstellenData.AantalKeerGetest=AantalKeer
+	Set ..InstellenData.TijdstipLaatsteTest = LaatsteKeer
+	Set ..InstellenData.AantalKeerGetest = AantalKeer
 ]]></Implementation>
 </Method>
 
 <Method name="OphalenRework">
 <Implementation><![CDATA[
-	Set BarcodeID=..InstellenData.BarcodeID
-	Set AantalKeerRework=0
+	Set BarcodeID = ..InstellenData.BarcodeID
+	Set AantalKeerRework = 0
 	&SQL(SELECT count(IsRework) INTO :AantalKeerRework FROM APPS_Halux_Opvolging_ProductieStap_TAOR_dto.ProductieStapLogItem WHERE MachineID='Rework' and VerwerkingID=:BarcodeID)
-	Set ..InstellenData.AantalKeerRework=AantalKeerRework
+	Set ..InstellenData.AantalKeerRework = AantalKeerRework
 ]]></Implementation>
 </Method>
 </Class>