Index: zTryOut/WV/TBXWeb/DataHandling.cls.xml
===================================================================
diff -u
--- zTryOut/WV/TBXWeb/DataHandling.cls.xml	(revision 0)
+++ zTryOut/WV/TBXWeb/DataHandling.cls.xml	(revision 201)
@@ -0,0 +1,65 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="zTryOut.WV.TBXWeb.DataHandling">
+<IncludeCode>vhLib.Macro</IncludeCode>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%RegisteredObject</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Method name="SqlVoorWijzigKlantNaam">
+<Description>
+Oproepen via :
+  Do ##class(zTryOut.WV.TBXWeb.DataHandling).SqlVoorWijzigKlantNaam(KLNr,NieuweNaam,DomeinKort)</Description>
+<ClassMethod>1</ClassMethod>
+<FormalSpec>KlantNummer:%String,NieuweKlantNaam:%String,DomeinKort:%String</FormalSpec>
+<Implementation><![CDATA[
+	Set WebDomein=##class(APPS.TBXWeb.TBXContext).GeefWebDomeinVoorAfkorting(DomeinKort) 
+	
+	Set SqlSelect=""
+	Set SqlSelect=SqlSelect_"SELECT ID, BonType, KLNaam, KLNummer KLNr, Commissie, IngaveTijdStip, SubmitTS, SubmitToVHLog, ('Off.:' || $LIST($LIST(TransferLog,1),2)) AS TransferLogID, LeverTijd, TotAantal, TotPrijs, NietMeeleveren AS NietMee, ActieCodesList ActieCodes, ShowInHist ShwHist, WebDomain, WebURL,     WebQSData, LeverTijdID, ('#imports:' || ($LISTLENGTH(TransferLog)-0) || ' --- ' || TransferLog) AS TransferLog, mID "_$$$CRLF
+	Set SqlSelect=SqlSelect_"  FROM WS_TBX.WebOrder "_$$$CRLF
+	Set SqlSelect=SqlSelect_"  WHERE (KLNummer = ::KlantNummer) AND (KLNaam <> '::NieuweKlantNaam') AND (webdomain = '::WebDomein') "_$$$CRLF
+	Set SqlSelect=SqlSelect_"  ORDER BY ID "_$$$CRLF
+	
+	Set SqlUpdate=""
+	Set SqlUpdate=SqlUpdate_"UPDATE  WS_TBX.WebOrder  Set KLNaam = '::NieuweKlantNaam' "_$$$CRLF
+	Set SqlUpdate=SqlUpdate_"  WHERE (KLNummer = ::KlantNummer) AND (KLNaam <> '::NieuweKlantNaam') AND (webdomain = '::WebDomein') "_$$$CRLF
+	
+	Set SqlSelect=$$$Replace(SqlSelect,"::KlantNummer",KlantNummer)
+	Set SqlSelect=$$$Replace(SqlSelect,"::NieuweKlantNaam",NieuweKlantNaam)
+	Set SqlSelect=$$$Replace(SqlSelect,"::WebDomein",WebDomein)
+	
+	Set SqlUpdate=$$$Replace(SqlUpdate,"::KlantNummer",KlantNummer)
+	Set SqlUpdate=$$$Replace(SqlUpdate,"::NieuweKlantNaam",NieuweKlantNaam)
+	Set SqlUpdate=$$$Replace(SqlUpdate,"::WebDomein",WebDomein)
+	
+	Write "Volgende SQL-statements zijn gegenereerd en kunnen uitgevoerd worden in SQL-manager.",!
+	Write !
+	Write SqlSelect,!
+	Write !
+	Write SqlUpdate,!
+	Write !
+	
+	// Of via debugWindow : 
+	Do WLIP^vhDBG(97,SqlSelect_$$$CRLF_$$$CRLF_SqlUpdate)
+
+	
+ /*  SQL-Statement om de klantgegevens (orderhoofding) aan te passen :
+	
+SELECT ID, BonType, KLNaam, KLNummer KLNr, Commissie, IngaveTijdStip, SubmitTS, SubmitToVHLog, ('Off.:' || $LIST($LIST(TransferLog,1),2)) AS TransferLogID, LeverTijd, TotAantal, TotPrijs, NietMeeleveren AS NietMee, ActieCodesList ActieCodes, ShowInHist ShwHist, WebDomain, WebURL,     WebQSData, LeverTijdID, ('#imports:' || ($LISTLENGTH(TransferLog)-0) || ' --- ' || TransferLog) AS TransferLog, mID 
+  FROM WS_TBX.WebOrder 
+  WHERE (KLNummer = ::KlantNummer) AND (KLNaam <> '::NieuweKlantNaam') AND (webdomain = '::WebDomein')
+  ORDER BY ID
+	
+	
+UPDATE  WS_TBX.WebOrder  Set KLNaam = '::NieuweKlantNaam'
+  WHERE (KLNummer = ::KlantNummer) AND (KLNaam <> '::NieuweKlantNaam') AND (webdomain = '::WebDomein')
+	
+	
+ --> Extra velden voor Update :   , KLStraatNrBus ='', KLPostNr = , KLWoonPlaats = '', KLTelefoon ='', KLFax = '', KLEMail = ''
+	
+ */
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: WV GAProduct DMZ.prj.xml
===================================================================
diff -u -r177 -r201
--- WV GAProduct DMZ.prj.xml	(.../WV GAProduct DMZ.prj.xml)	(revision 177)
+++ WV GAProduct DMZ.prj.xml	(.../WV GAProduct DMZ.prj.xml)	(revision 201)
@@ -1,6 +1,6 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="9">
-<Project name="WV GAProduct DMZ" LastModified="2012-03-15 15:41:35" Target="ophSendAlertMail^csp" TargetType="2" HttpServer="http://192.168.1.67:1972">
+<Project name="WV GAProduct DMZ" LastModified="2012-06-07 11:05:33" Target="ophSendAlertMail^csp" TargetType="2" HttpServer="http://192.168.1.67:1972">
   <Items>
     <ProjectItem name="/csp/httplog/DLGqueryVH.csp" type="CSP"/>
     <ProjectItem name="/csp/httplog/queryVH.csp" type="CSP"/>
@@ -154,6 +154,7 @@
     <ProjectItem name="vhUnitTest.APPS.TBXWeb.TestWSOrder" type="CLS"/>
     <ProjectItem name="vhUnitTest.APPS.TBXWeb.impl.VHEPNOrderHandler" type="CLS"/>
     <ProjectItem name="vhUnitTest.WS.TBX.OrderService.Verwerker" type="CLS"/>
+    <ProjectItem name="zTryOut.WV.TBXWeb.DataHandling" type="CLS"/>
   </Items>
 </Project>
 </Export>