Index: vhPowerTools/APPS/PM/Product/LangTekstControleKarakterCorrigeerder.cls.xml
===================================================================
diff -u
--- vhPowerTools/APPS/PM/Product/LangTekstControleKarakterCorrigeerder.cls.xml	(revision 0)
+++ vhPowerTools/APPS/PM/Product/LangTekstControleKarakterCorrigeerder.cls.xml	(revision 33591)
@@ -0,0 +1,85 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhPowerTools.APPS.PM.Product.LangTekstControleKarakterCorrigeerder">
+<Super>TECH.RegisteredObject</Super>
+
+<Method name="CorrigeerOne">
+<Description>
+#dim ProductID As %String = 1395248 
+Do ##class(vhPowerTools.APPS.PM.Product.LangTekstControleKarakterCorrigeerder).CorrigeerOne(ProductID)</Description>
+<ClassMethod>1</ClassMethod>
+<FormalSpec>ProductID:%String</FormalSpec>
+<Implementation><![CDATA[	Do ..%New().CorrigeerAlleLangtekstTalen(ProductID)
+]]></Implementation>
+</Method>
+
+<Method name="CorrigeerAlleLangtekstTalen">
+<FormalSpec>ProductID:%String</FormalSpec>
+<Implementation><![CDATA[
+	#dim LangtekstTypesIterator As TECH.ListIterator = ##class(APPS.PM.BulkActie.enu.LangtekstTypes).ValueListIterator()
+	While (LangtekstTypesIterator.HasNext()) {
+		#dim LangtekstType As %String = LangtekstTypesIterator.Next()
+		;#dim LangtekstType As %String = "N"    ; ##class(APPS.PM.BulkActie.enu.LangtekstTypes).Bestelreferentie())
+		Do ..CorrigeerLangtekstTaal(ProductID, LangtekstType)
+	}
+]]></Implementation>
+</Method>
+
+<Method name="CorrigeerLangtekstTaal">
+<FormalSpec>ProductID:%String,LangtekstType:APPS.PM.BulkActie.enu.LangtekstTypes</FormalSpec>
+<Implementation><![CDATA[
+	#dim OorspronkelijkeLangtekst As %String = ..GeefOorspronkelijkeLangtekst(ProductID,LangtekstType,"~")
+	;write !!,"Oorspr:",!,OorspronkelijkeLangtekst
+	#dim NieuwLangtekst As %String = ..GeefGecorrigeerdeLangtekst(OorspronkelijkeLangtekst)
+	;write !!,"Nieuwe:",!,NieuwLangtekst
+	
+	Set LangtekstBewaarder = ##class(DOM.PM.LangtekstBewaarder).%New(ProductID)
+	Do LangtekstBewaarder.BewaarVoorTaal(NieuwLangtekst,LangtekstType)
+]]></Implementation>
+</Method>
+
+<Method name="GeefOorspronkelijkeLangtekst">
+<FormalSpec>ProductID:%String,Taal:%String,Separator:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim Product As Prod.ProductTekst = ##class(Prod.ProductTekst).%OpenId(ProductID)
+	Quit Product.GetOmschrijving(Taal,Separator)
+]]></Implementation>
+</Method>
+
+<Method name="GeefGecorrigeerdeLangtekst">
+<FormalSpec>Originele:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#define ReplaceAll   $$$True
+
+	#dim Nieuwe As %String = Originele
+	Set Nieuwe = ##class(TECH.StringUtils).Replace(Nieuwe, $C(13,10),"~",,,$$$ReplaceAll)
+	Set Nieuwe = ##class(TECH.StringUtils).Replace(Nieuwe, $C(10),"~",,,$$$ReplaceAll)
+	Quit Nieuwe
+]]></Implementation>
+</Method>
+
+<UDLText name="T">
+<Content><![CDATA[
+/*
+Method CorrigeerViaBPA(ProductID As %String) [ Private ]
+{
+	set BulkActie = ##class(APPS.PM.BulkActie.Acties.WijzigLangtekst).%New("DummyFactor","LangTekstControleKarakterCorrigeerder")
+	set ActieParameters = ##class(%ListOfDataTypes).%New()
+	do ActieParameters.Insert("N")   ; ##class(APPS.PM.BulkActie.enu.LangtekstTypes).Bestelreferentie())
+	do ActieParameters.Insert($C(10))
+	do ActieParameters.Insert("~")
+	
+	#dim Resultaat As APPS.PM.BulkActie.dto.ActieResultaat = BulkActie.VoerUit(ProductID,ActieParameters)
+	;Write Resultaat.IsSuccesvol
+}
+*/
+]]></Content>
+</UDLText>
+</Class>
+
+
+</Export>