Index: csp/vhisie/TBX/BuildRef/tmpDev.mac.rou =================================================================== diff -u -r549 -r577 --- csp/vhisie/TBX/BuildRef/tmpDev.mac.rou (.../tmpDev.mac.rou) (revision 549) +++ csp/vhisie/TBX/BuildRef/tmpDev.mac.rou (.../tmpDev.mac.rou) (revision 577) @@ -104,12 +104,6 @@ Set sDomKLNr=TBXContext.GeefDomeinKlantNummer() Set DefaultTaal=TBXContext.GeefDefaultTaal() - // URL --> domain / sDomVERW / sDomKLNr - ;Set sDomain=$$GetURLDomain^cspBasis.Library - ;Set sDomCVT=$S(TestVERW="LMC":"www.optima-tbx.fr", TestVERW="SFS":"tbx.sfsunimarket.biz", TestVERW="MBHO":$$$TBoxWebDomeinMBHO, TestVERW="HFLB":$$$TBoxWebDomeinHFLB, 1:$$TBXDomainCVT^cspBasis.Library(sDomain)) - ;Set lbDomLU=##class(WS.TBX.Order).DomainLookUp(sDomCVT,$LB("VERW","KLNR")) - ;Set sDomVERW=$LG(lbDomLU,1) - ;Set sDomKLNr=$LG(lbDomLU,2) Set Taal=$G(%request.Data("Taal",1),DefaultTaal) Set QS=$G(%request.CgiEnvs("QUERY_STRING")) Set Ref=$G(%request.Data("REF",1)) Index: cspBasis/TBX/DecodeURL/tmpDev.mac.rou =================================================================== diff -u -r529 -r577 --- cspBasis/TBX/DecodeURL/tmpDev.mac.rou (.../tmpDev.mac.rou) (revision 529) +++ cspBasis/TBX/DecodeURL/tmpDev.mac.rou (.../tmpDev.mac.rou) (revision 577) @@ -30,11 +30,6 @@ Set sDomVERW=TBXContext.GeefDomeinVerwerker() Set sDomKLNr=TBXContext.GeefDomeinKlantNummer() Set lbDomLU=$LB(sDomVERW,sDomKLNr) - ;Set sDomain=$$GetURLDomain^cspBasis.Library - ;Set sDomCVT=$$TBXDomainCVT^cspBasis.Library(sDomain) - ;Set lbDomLU=##class(WS.TBX.Order).DomainLookUp(sDomCVT,$LB("VERW","KLNR")) ; $$TBXDomainLU^cspBasis.Library(sDomCVT,$LB("VERW","KLNR")) - ;Set sDomVERW=$LG(lbDomLU,1) - ;Set sDomKLNr=$LG(lbDomLU,2) Set blnVHEPN=(sDomVERW="VHEPN") Set blnHEIN=(sDomVERW="HEIN") Set blnLMC=(sDomVERW="LMC")