vhLib.Macro 1 %RegisteredObject 0 Oproepen via : Do ##class(zTryOut.WV.TBXWeb.DataHandling).SqlVoorWijzigKlantNaam(KLNr,NieuweNaam,DomeinKort) 1 KlantNummer:%String,NieuweKlantNaam:%String,DomeinKort:%String '::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 = '' */ ]]>