Index: csp/vhisie/TBX/Main/tmpDev.mac.rou
===================================================================
diff -u -r222 -r231
--- csp/vhisie/TBX/Main/tmpDev.mac.rou	(.../tmpDev.mac.rou)	(revision 222)
+++ csp/vhisie/TBX/Main/tmpDev.mac.rou	(.../tmpDev.mac.rou)	(revision 231)
@@ -16,11 +16,8 @@
 	Quit:($$RedirectSpamRobots^cspBasis.Library(%RemoteIP)) 0
 	
 	Do ophInitLookups^cspBasis.TBX.DecodeURL.tmpDev
-	  ;d WL^vhDBG("Start PreHTTP: ")
-	  ;d:($D(%session.Data("TransfStatus")))&&($D(%request.Data("TRANSF",1))) WL^vhDBG("Init TransfStatus: "_%session.Data("TransfStatus"))
 	Set:($D(%session.Data("TransfStatus")))&&($D(%request.Data("TRANSF",1))) tmpTransfStatus=%session.Data("TransfStatus")
 	Kill %session.Data
-	  ;d:($D(tmpTransfStatus)) WL^vhDBG("tmpTransfStatus: "_tmpTransfStatus)
 	Set:($D(tmpTransfStatus)) %session.Data("TransfStatus")=tmpTransfStatus
 	
 	Set TBXContext=##class(APPS.TBXWeb.TBXContext).InitFromHttpRequest()
@@ -31,7 +28,6 @@
 	
 	Set Taal="E"
 	Set DefaultTaal=TBXContext.GeefDefaultTaal()
-	;Set blnNoAccess=(sDomVERW="")   ; ONBEKEND DOMEIN - NIET TOEGELATEN !!!
 	Set blnNoAccess=TBXContext.IsOngeldigDomein()   ; ONBEKEND DOMEIN - NIET TOEGELATEN !!!
 	Quit:(blnNoAccess) 1
 	
@@ -48,11 +44,9 @@
 	If ($$$LCase(Taal)?1"http:".E) Do   ; attempt to hack the website
 	. Set tmpBadQS="Taal="_Taal
 	. Set Taal="E"
-	;Set %session.Data("Taal")=Taal
 	Set HIST=$G(%request.Data("HIST",1),0)
 	Set blnHist=0   ; ($G(HIST)>0)
 	Set MainMode=$G(MainMode,$$$mmToggleHistOrd)
-	;Set MainMode=$G(MainMode,$$$mmAllowTogether)
     Set Ref=$G(%request.Data("REF",1))
 	Set RefNew=$G(%request.Data("REF",1),$$$RefStartNew)   ; Als REF niet meegegeven is, StartNew (dfl) gebruiken
 	Set %session.Data("BeursUser")=(TBXContext.IsDomeinVHEPN())&&##class(cspBasis.GAProdTBox).IsBeursUser()
@@ -67,7 +61,6 @@
 	Do ophDataOPTIMA
 	; Analyse REF
     Set Ref=$$ophGetRef^cspBasis.TBX.DecodeURL.tmpDev(Ref)   ; Get Ref decrypted
-    ;Set:(Ref="")&&($L(RefNew)) Ref=RefNew
     If $L(Ref) Do
     . Do ophRefToArray^cspBasis.TBX.DecodeURL.tmpDev(Ref,.RefArray)
     . Set:($G(RefArray("VERW"))="") RefArray("VERW")=TBXContext.GeefDomeinVerwerker()
@@ -137,10 +130,6 @@
 	Else                     { Set blnNoAccess=1 }
 	Quit:(blnNoAccess) 1
  
-	 ;set UseXMLHTTP=##class(%CSP.UserAgent).XMLHttpRequest(%request.UserAgent)
-	 ;d WLIP^vhDBG(97,"%session.BrokerImplementation = "_%session.BrokerImplementation)
-	 ;d WLIP^vhDBG(97,"use UseXMLHTTP = "_UseXMLHTTP)
- 
 	If %request.UserAgent?1(1.E1"Macintosh".E,1.E1"iPad;".E,1.E1"iPhone;".E) {
 		Set blnAllowedBrowser=$$$IsAllowedMacBrowser(%request.UserAgent)
 	}
@@ -206,7 +195,6 @@
 ophDataOPTIMA
 	Quit:('TBXContext.KlantGegevensViaDataOpt())
 	Quit:($G(%request.Data("DATAOPT",1))="")
-	;Quit:(sDomVERW'="LMC")||($G(%request.Data("DATAOPT",1))="")
 	New KLMini,tmpTaal,msg,sDomVERW
 	Kill %OptimaMsg
 	Set KLMini=##class(cspBasis.GAProdTBox).GetKlantData(TBXContext.GeefDomeinVerwerker(),"",$LB("Ext","CleanSave"))
@@ -1141,19 +1129,10 @@
 	If TBXContext.IsDomeinSFS() Do
 	. Set arHistVTL("LN",i,"Munt")="CHF"
 	. Set arHistVTL("LN",i,"MuntCalc")="EUR"
-	/*
-	If KLNr=$$$KLNrListAll Do
-	. Set tmpNaam=$G(tmpAr("KLNaam"))
-	. Set arHistVTL("LN",i,"KLNaam")=tmpNaam
-	. Set arHistVTL("LN",i,"KLNaamDSP")=$S($L(tmpNaam)>$$$LenKLNaam:$E(tmpNaam,1,$$$LenKLNaam-2)_"...", 1:tmpNaam)
-	. Set arHistVTL("LN",i,"KLNaamALT")="Lijst voor "_$G(arHistVTL("LN",i,"KLNaam"),"klant")_$S($L(arHistVTL("LN",i,"KLNr")):" ("_arHistVTL("LN",i,"KLNr")_")", 1:"")
-	*/
 	Set arHistVTL("LN",i,"OrderNr")=##class(WS.TBX.Order).OrderNrCalc(wsID)
 	Set arHistVTL("LN",i,"TimeCust")=$S($G(arHistVTL("LN",i,"OrdTime"))="":"", 1:$TR($ZD($ZDTH(arHistVTL("LN",i,"OrdTime"),3),4),"/","-"))
 	Set arHistVTL("LN",i,"OrderDCM")=##class(WS.TBX.Order).DCMCalc(wsID)
 	Do phvManageBonType	
-	;Set arIDs(i)=$G(arHistVTL("LN",i,"wsID"))
-	;Set arIDs(i)=tmpAr("wsID")
 	Set Ref(i)=$$CreateHashedRef^cspBasis.TBX.DecodeURL.tmpDev($LB(tmpKLNr,VERW,wsID,WizMode))
 	Set arHistVTL("LN",i,"UrlOrd")=$$$Replace(arUrl("ShowOrder"),$$$QSREFReplace,Ref(i))
 	Kill tmpAr
FishEye: Tag 231 refers to a dead (removed) revision in file `WS/TBX/Calc.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
FishEye: Tag 231 refers to a dead (removed) revision in file `WS/TBX/Calc/WSOrdToAdmin.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
FishEye: Tag 231 refers to a dead (removed) revision in file `WS/TBX/Calc/BuildWS.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
FishEye: Tag 231 refers to a dead (removed) revision in file `WS/TBX/Calc/PeekServer.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?