User cache %CSP.Page,cspBasis.GAProdTBox 1 code lbErrTypes cache 1 code KLNr cache %String 1 code %Status 1 code %Boolean " Write !,(..HyperEventBody()) Write !,$c(9)_"",! Write " "_$c(9,9)_"",! Write $c(9,9,9)_"",! Write $c(9,9)_"",! Write " "_$c(9,9)_"",! Write $c(9,9,9)_"",! Write $c(9,9)_"",! Write " "_$c(9,9)_"",! Write $c(9,9,9)_"",! Write $c(9,9)_"",! Write $c(9,9)_"",! Write $c(9,9,9)_"",! Write $c(9,9)_"",! Write $c(9,9)_"",! Write $c(9,9,9)_"",! Write $c(9,9)_"",! Write $c(9)_"

",! Write $c(9,9,9,9) Do ..Include("Header.csp") Write !,$c(9,9,9)_"

" Write "" Write "

",! Write $c(9,9,9,9)_"
",! Write $c(9,9,9,9)_"

TEST PAGINA

",! Write $c(9,9,9,9)_"

KlantNr: "_($G(KLNr))_"

",! Write $c(9,9,9,9)_"

Klik de testbutton om na te gaan of de functie ""XMLHTTPRequest"" werkt.
",! Write $c(9,9,9,9)_"Deze functie is noodzakelijk voor de werking van de TandemBox-website.

",! Write $c(9,9,9,9)_"

" Write "" Write "" Write "Test Button" Write "" Write "" Write "

",! Write $c(9,9,9,9)_"

Result: " Write "" Write "

",! Write $c(9,9,9,9)_"

In het vakje hierboven moet een willekeurig getal tussen 1 en 100 verschijnen, telkens op de ""Test Button"" geklikt wordt.
",! Write $c(9,9,9,9)_"Als dit het geval is, dan zou de volledige ingave+berekening van TandemBox producten ook moeten werken.

",! Write $c(9,9,9)_"

",! Write $c(9,9,9,9)_" " Write "" Write "<< BACK" Write "" Write !,$c(9,9,9)_"

",! Write $c(9,9,9,9) Write !,"

",! Write " ",! Write "

",! Write !,"" Write !,$c(9,9,9)_"

",! Write !,$c(9) Set %response.TraceDump=($G(%request.Data("DBG",1))'="" && $G(%request.Data("DBG",1))'="0") Write !,!,"" ]]> 1 code %Boolean 1 code %Boolean " Write !,$c(9)_""_($S(blnVHEPN:"Van Hoecke - ",1:"")_"TandemBox - Test REQUEST")_"",! Write $c(9) Write "" Write !,!,$c(9) Write "" Write !,$c(9) Write "" Write !,$c(9) Write "" Write !,$c(9) Write "" Write !,$c(9) Write "" Write !,$c(9) Write "" Write !,!,$c(9) Write "" Write !,(..HyperEventHead()) Write !,"" ]]> 1 code %Boolean " Write !,! Do ..Include("PRGACNTs.INC") Write !,!,!,!,!,!,!,! Set %session.AppTimeout = 905 // Set %session.BrokerImplementation=1 ; 1: JavaVM - 2: XmlHttp Write !,! Do ..OnPageHEAD() Write !,! Do ..OnPageBODY() Write !,"" ]]> 1 code cache %Boolean 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 blnVHEPN=(sDomVERW="VHEPN") Set blnHEIN=(sDomVERW="HEIN") Set blnLMC=(sDomVERW="LMC") Set blnDUPO=(sDomVERW="DUPO") Set blnHELMY=(sDomVERW="HELMY") Set blnSFS=(sDomVERW="SFS") Set blnMBHO=(sDomVERW="MBHO") Set VERW="VHEPN" Set KLNr=$$SesDataFromRq^cspBasis.Library("KLNR",,"") Set wsID="" Set sMode="HYPER" Set Taal="N" Set lbExtras=$LB("UseXMLHTTP="_##class(%CSP.UserAgent).XMLHttpRequest(%request.UserAgent))_$LB("WebBrowser="_%request.UserAgent) Do ##class(cspBasis.GAProdTBox).AddToLog("TESTPAGE",sDomain,KLNr,sMode,wsID,VERW,Taal,"",lbExtras) Quit 1 ]]> iso-8859-1 text/html c:\cachesys\csp\vhisie\TBX\TestRequest.csp /vhisie/TBX/TestRequest.csp 1 62215,44262 0