Index: vhPowerTools/DOM/VKP/Order/ControleKarakterFixer.cls.xml
===================================================================
diff -u
--- vhPowerTools/DOM/VKP/Order/ControleKarakterFixer.cls.xml	(revision 0)
+++ vhPowerTools/DOM/VKP/Order/ControleKarakterFixer.cls.xml	(revision 51190)
@@ -0,0 +1,83 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhPowerTools.DOM.VKP.Order.ControleKarakterFixer">
+<Super>TECH.RegisteredObject</Super>
+
+<Method name="FixComissieRefVanOrder">
+<Description>
+Oproepen via 
+  Do ##class(vhPowerTools.DOM.VKP.Order.ControleKarakterFixer).%New().FixComissieRefVanOrder(KlantNr,OrderID)</Description>
+<FormalSpec>KlantNr:%String,OrderID:%String</FormalSpec>
+<Implementation><![CDATA[
+	#dim SubNode As %String = "1"
+	#dim PieceBegin As %Integer = 19
+	#dim PieceEinde As %Integer = 19
+	
+	Do ..FixSubNodeVanOrder(KlantNr,OrderID,SubNode,PieceBegin,PieceEinde)
+]]></Implementation>
+</Method>
+
+<Method name="FixSubNode1VanOrder">
+<Description>
+Oproepen via 
+  Do ##class(vhPowerTools.DOM.VKP.Order.ControleKarakterFixer).%New().FixSubNode1VanOrder(KlantNr,OrderID)</Description>
+<FormalSpec>KlantNr:%String,OrderID:%String</FormalSpec>
+<Implementation><![CDATA[
+	#dim SubNode As %String = "1"
+	#dim PieceBegin As %Integer = 1
+	#dim PieceEinde As %Integer = 58   ; piece 59 is een verkrachtte $LB() ; daarvan best geen controlekarakters vervangen! 
+	
+	Do ..FixSubNodeVanOrder(KlantNr,OrderID,SubNode,PieceBegin,PieceEinde)
+]]></Implementation>
+</Method>
+
+<Method name="FixSubNodeVanOrder">
+<FormalSpec>KlantNr:%String,OrderID:%String,SubNode:%String,PieceBegin:%Integer=1,PieceEinde:%Integer=-1</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim OrderRec As %String = $G(^KOD(KlantNr,"F",OrderID,SubNode))
+	Set:(PieceEinde < 1) PieceEinde = $Length(OrderRec,"\")
+	If (PieceEinde < PieceBegin) {
+		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("Ongeldige waarden voor begin- en eindpiece : PieceEinde '"_PieceEinde_"' mag niet kleiner zijn dan PieceBegin '"_PieceBegin_"'"))
+	}
+	
+	If OrderRec = "" {
+		Write !,"Waarde voor deze subnode is leeg : "_$Name(^KOD(KlantNr,"F",OrderID,SubNode))
+	}
+	Else {
+		#dim TeVervangenPieces As %String = $P(OrderRec,"\",PieceBegin,PieceEinde)
+		Write !,"Te vervangen data (output via LCVT) : "_$$$CRLF_$$$LCVT(TeVervangenPieces)
+		Write !
+		Write !,"De controlekarakters in deze data vervangen (J/N) "
+		#dim Key As %String = ""
+		Read Key,!
+		If $$$UCase(Key) = "J" {
+			Set $P(OrderRec,"\",PieceBegin,PieceEinde) = ..VervangControleKarakters(TeVervangenPieces)
+			Set ^KOD(KlantNr,"F",OrderID,SubNode) = OrderRec
+			Write !,"OrderRec aangepast in global ^KOD()"
+		}
+		Else {
+			Write !,"Niks aangepast."
+		}
+	}
+]]></Implementation>
+</Method>
+
+<Method name="VervangControleKarakters">
+<FormalSpec>Tekst:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	Set Tekst = $Replace(Tekst,$C(9), "  ")
+	Set Tekst = $Replace(Tekst,$$$CRLF," ")
+	Set Tekst = $Replace(Tekst,$C(13), " ")
+	Set Tekst = $Replace(Tekst,$C(10), " ")
+	Set Tekst = $Replace(Tekst,$C(0) , "")
+	
+	Quit Tekst
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>