Index: csp/vhisie/TBX/Wizard/tmpDev.mac.rou =================================================================== diff -u -r320 -r578 --- csp/vhisie/TBX/Wizard/tmpDev.mac.rou (.../tmpDev.mac.rou) (revision 320) +++ csp/vhisie/TBX/Wizard/tmpDev.mac.rou (.../tmpDev.mac.rou) (revision 578) @@ -24,18 +24,8 @@ Kill %session.Data("MODE") Kill %session.Data("UserType") Kill %session.Data("QSDATA") - // URL --> domain / 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 TBXContext=##class(APPS.TBXWeb.TBXContext).InitFromHttpRequest() Set sDomVERW=TBXContext.GeefDomeinVerwerker() - /*** volgende vars mogen weg na testen : ***/ - Set sDomain=TBXContext.GeefHttpRequestDomein() - Set sDomCVT=TBXContext.GeefWebDomein() - Set sDomKLNr=TBXContext.GeefDomeinKlantNummer() Set blnVHEPN=(sDomVERW="VHEPN") Set blnHEIN=(sDomVERW="HEIN") @@ -174,3 +164,4 @@ ophAddToLog Do ##class(cspBasis.GAProdTBox).AddToLog($S((sMode="A")&&(wsID'>0):$S($G(blnNewFromOrd):"WIZARD_COPY",1:"WIZARD_NEW"), 1:"WIZARD_OPEN"),TBXContext.GeefHttpRequestDomein(),KLNr,sMode_$S(DCM'?1(1"S",1""):" - "_DCM,1:""),wsID,VERW,Taal,"") Quit + \ No newline at end of file