Index: DOM/PM/Maatwerk/TAX/impl/LosseComponentKorttekstBepaler.cls.xml
===================================================================
diff -u -r54517 -r55584
--- DOM/PM/Maatwerk/TAX/impl/LosseComponentKorttekstBepaler.cls.xml	(.../LosseComponentKorttekstBepaler.cls.xml)	(revision 54517)
+++ DOM/PM/Maatwerk/TAX/impl/LosseComponentKorttekstBepaler.cls.xml	(.../LosseComponentKorttekstBepaler.cls.xml)	(revision 55584)
@@ -36,11 +36,11 @@
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
-	set ..LadeInfoAPI = $$$Implementation(LadeInfoAPI, ##class(DOM.PM.Maatwerk.impl.LadeInfoAPI).%New())
-	set ..BestelService = $$$Implementation(BestelService, ##class(DOM.VKP.Maatwerk.impl.BestelService).%New())
-	set ..ProductieWijzeNaarLosseComponentConverter = ##class(DOM.PM.Maatwerk.TAX.impl.ProductieWijzeNaarLosseComponentConverter).%New()
+	Set ..LadeInfoAPI = $$$Implementation(LadeInfoAPI, ##class(DOM.PM.Maatwerk.impl.LadeInfoAPI).%New())
+	Set ..BestelService = $$$Implementation(BestelService, ##class(DOM.VKP.Maatwerk.impl.BestelService).%New())
+	Set ..ProductieWijzeNaarLosseComponentConverter = ##class(DOM.PM.Maatwerk.TAX.impl.ProductieWijzeNaarLosseComponentConverter).%New()
 	
-	quit $$$OK
+	Quit $$$OK
 ]]></Implementation>
 </Method>
 
@@ -50,63 +50,63 @@
 <Implementation><![CDATA[
 	#dim Korttekst As TECH.String = ""
 	
-	set $piece(Korttekst," ",25)=""
+	Set $Piece(Korttekst," ",25)=""
 	
-	set $extract(Korttekst, 1) = "T"
-	set $extract(Korttekst, 2) = $extract(TAORKenmerken.ProductieWijze)
+	Set $Extract(Korttekst, 1) = "T"
+	Set $Extract(Korttekst, 2) = $Extract(TAORKenmerken.ProductieWijze)
 	
-	if (TAORKenmerken.ProductieWijze = ..Enum.ProductieWijze.Bodem) {
-		set $extract(Korttekst, 3) = $extract(TAORKenmerken.KoppelingType)
-	} else {
-		set $extract(Korttekst, 3) = $extract(TAORKenmerken.LadeHoogte)
+	If (TAORKenmerken.ProductieWijze = ..Enum.ProductieWijze.Bodem) {
+		Set $Extract(Korttekst, 3) = $Extract(TAORKenmerken.KoppelingType)
+	} Else {
+		Set $Extract(Korttekst, 3) = $Extract(TAORKenmerken.LadeHoogte)
 	}
 	
-	set $extract(Korttekst, 4) = "."
+	Set $Extract(Korttekst, 4) = "."
 
-	if (##class(TECH.StringUtils).Equals(TAORKenmerken.ProductieWijze, ..Enum.ProductieWijze.ZijkantLinks, ..Enum.ProductieWijze.ZijkantRechts)) {
-		set $extract(Korttekst, 5, 7) = TAORKenmerken.LadeDiepte 
-		set $extract(Korttekst, 8, 9) = $case(TAORKenmerken.ProductieWijze, ..Enum.ProductieWijze.ZijkantLinks:"LI", ..Enum.ProductieWijze.ZijkantRechts:"RE")
-	} else {
-		set $extract(Korttekst, 5, 9) = TAORKenmerken.InterneBreedte
+	If (##class(TECH.StringUtils).Equals(TAORKenmerken.ProductieWijze, ..Enum.ProductieWijze.ZijkantLinks, ..Enum.ProductieWijze.ZijkantRechts)) {
+		Set $Extract(Korttekst, 5, 7) = TAORKenmerken.LadeDiepte 
+		Set $Extract(Korttekst, 8, 9) = $Case(TAORKenmerken.ProductieWijze, ..Enum.ProductieWijze.ZijkantLinks:"LI", ..Enum.ProductieWijze.ZijkantRechts:"RE")
+	} Else {
+		Set $Extract(Korttekst, 5, 9) = TAORKenmerken.InterneBreedte
 	}
 	
-	if (TAORKenmerken.ProductieWijze = ..Enum.ProductieWijze.Bodem) {
-		set $extract(Korttekst, 10, 11) = TAORKenmerken.LadeDiepte * 10
-	} elseif (TAORKenmerken.ProductieWijze = ..Enum.ProductieWijze.Front) {
-		#dim FrontEindkapKleurCode As TECH.String = $extract(##class(DOM.PM.enu.TAORFrontEindkapKleur).LogicalToDisplay(TAORKenmerken.FrontEindkapKleur), 1, 2)
-		set $extract(Korttekst, 10, 11) = ##class(TECH.StringUtils).ToUpper(FrontEindkapKleurCode)
-	} elseif (TAORKenmerken.ProductieWijze = ..Enum.ProductieWijze.Rug) {
+	If (TAORKenmerken.ProductieWijze = ..Enum.ProductieWijze.Bodem) {
+		Set $Extract(Korttekst, 10, 11) = TAORKenmerken.LadeDiepte * 10
+	} ElseIf (TAORKenmerken.ProductieWijze = ..Enum.ProductieWijze.Front) {
+		#dim FrontEindkapKleurCode As TECH.String = $Extract(##class(DOM.PM.enu.TAORFrontEindkapKleur).LogicalToDisplay(TAORKenmerken.FrontEindkapKleur), 1, 2)
+		Set $Extract(Korttekst, 10, 11) = ##class(TECH.StringUtils).ToUpper(FrontEindkapKleurCode)
+	} ElseIf (TAORKenmerken.ProductieWijze = ..Enum.ProductieWijze.Rug) {
 		#dim Rug As DOM.PM.Maatwerk.LadeInfo.impl.TAX.Rug = ..LadeInfoAPI.GeefLosseComponent(HalffabItemsBoom, TAORKenmerken, ..Enum.LosseComponent.Rug)
-		set $extract(Korttekst, 10, 11) = ##class(TECH.StringUtils).AlignRight(..GeefKantenbandKleur(Rug)," ",2)
-	} elseif (##class(TECH.StringUtils).Equals(TAORKenmerken.ProductieWijze, ..Enum.ProductieWijze.ZijkantLinks, ..Enum.ProductieWijze.ZijkantRechts)) {
-		set $extract(Korttekst, 10, 11) = "  "
+		Set $Extract(Korttekst, 10, 11) = ##class(TECH.StringUtils).AlignRight(..GeefKantenbandKleur(Rug)," ",2)
+	} ElseIf (##class(TECH.StringUtils).Equals(TAORKenmerken.ProductieWijze, ..Enum.ProductieWijze.ZijkantLinks, ..Enum.ProductieWijze.ZijkantRechts)) {
+		Set $Extract(Korttekst, 10, 11) = "  "
 	}
 	
-	if (TAORKenmerken.ProductieWijze = ..Enum.ProductieWijze.Bodem) {
-		set $extract(Korttekst, 12, 16) = "BODEN"
-	} elseif (TAORKenmerken.ProductieWijze = ..Enum.ProductieWijze.Front) {
-		set $extract(Korttekst, 12, 16) = "FRONT"
-	} elseif (TAORKenmerken.ProductieWijze = ..Enum.ProductieWijze.Rug) {
-		set $extract(Korttekst, 12, 16) = "RUCKW"
-	} elseif (##class(TECH.StringUtils).Equals(TAORKenmerken.ProductieWijze, ..Enum.ProductieWijze.ZijkantLinks, ..Enum.ProductieWijze.ZijkantRechts)) {
-		set $extract(Korttekst, 12, 16) = "ZARGE"
+	If (TAORKenmerken.ProductieWijze = ..Enum.ProductieWijze.Bodem) {
+		Set $Extract(Korttekst, 12, 16) = "BODEN"
+	} ElseIf (TAORKenmerken.ProductieWijze = ..Enum.ProductieWijze.Front) {
+		Set $Extract(Korttekst, 12, 16) = "FRONT"
+	} ElseIf (TAORKenmerken.ProductieWijze = ..Enum.ProductieWijze.Rug) {
+		Set $Extract(Korttekst, 12, 16) = "RUCKW"
+	} ElseIf (##class(TECH.StringUtils).Equals(TAORKenmerken.ProductieWijze, ..Enum.ProductieWijze.ZijkantLinks, ..Enum.ProductieWijze.ZijkantRechts)) {
+		Set $Extract(Korttekst, 12, 16) = "ZARGE"
 	}
 	
 	#dim LosseComponent As DOM.PM.Maatwerk.LadeInfo.LadeOnderdeel = ..LadeInfoAPI.GeefLosseComponent(HalffabItemsBoom, TAORKenmerken, ..ProductieWijzeNaarLosseComponentConverter.Convert(TAORKenmerken.ProductieWijze))
 	
-	if (TAORKenmerken.ProductieWijze = ..Enum.ProductieWijze.Bodem) {
-		set $extract(Korttekst, 17, 17) = $extract(TAORKenmerken.KoppelingType)
-		set $extract(Korttekst, 18, 18) = " "
-	} else {
-		set $extract(Korttekst, 17, 18) = ##class(TECH.StringUtils).AlignRight(..GeefKantenbandKleur(LosseComponent)," ",2) 
+	If (TAORKenmerken.ProductieWijze = ..Enum.ProductieWijze.Bodem) {
+		Set $Extract(Korttekst, 17, 17) = $Extract(TAORKenmerken.KoppelingType)
+		Set $Extract(Korttekst, 18, 18) = " "
+	} Else {
+		Set $Extract(Korttekst, 17, 18) = ##class(TECH.StringUtils).AlignRight(..GeefKantenbandKleur(LosseComponent)," ",2) 
 	} 
 	
-	set $extract(Korttekst, 19, 21) = "V" _ ..BestelService.GeefBestelEenheid(TAORKenmerken)
+	Set $Extract(Korttekst, 19, 21) = "V" _ ..BestelService.GeefBestelEenheid(TAORKenmerken)
 	
-	set $extract(Korttekst, 22, 23) = ##class(TECH.StringUtils).AlignRight(LosseComponent.GeefKleuren().GetAt(..Const.Buitenkant), " ", 2)
-	set $extract(Korttekst, 24, 25) = ##class(TECH.StringUtils).AlignRight(LosseComponent.GeefKleuren().GetAt(..Const.Binnenkant), " ", 2)
+	Set $Extract(Korttekst, 22, 23) = ##class(TECH.StringUtils).AlignRight(LosseComponent.GeefKleuren().GetAt(..Const.Buitenkant), " ", 2)
+	Set $Extract(Korttekst, 24, 25) = ##class(TECH.StringUtils).AlignRight(LosseComponent.GeefKleuren().GetAt(..Const.Binnenkant), " ", 2)
 	
-	quit Korttekst
+	Quit Korttekst
 ]]></Implementation>
 </Method>