TEST OPTIMA DATAOPT

User cache %CSP.Page,cspBasis.GAProdTBox 1 code lbErrTypes cache 1 code %Status 1 code %Boolean " 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)_"

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

" Write "" Write "

",! Write ! If '($G(blnNoAccess)) Goto %csp00001 ;{ Write !,$c(9)_"",! Write " "_$c(9,9)_"",! Write $c(9,9,9)_"",! Write $c(9,9)_"",! Write $c(9)_"

",! Write $c(9,9,9,9) Write "" Write !,$c(9,9,9,9,9)_" "_(..WebTextValue("MainBadCode",Taal,"O")),! Write $c(9,9,9,9) Write "" Write !,$c(9,9,9)_"

",! Goto %csp00002 ;} %csp00001 ;{ Write !,$c(9) Write "

" Write !,..InsertHiddenFields("TestDataOptLMC.csp"),! Write !,$c(9)_"",! Write $c(9,9)_"",! Write $c(9,9,9)_"",! Write $c(9,9,9)_"",! Write $c(9,9,9)_"",! Write $c(9,9,9)_"",! Write $c(9,9,9)_"",! Write $c(9,9)_"",! Write $c(9,9)_"",! Write $c(9,9,9)_"",! Write $c(9,9,9)_"",! Write $c(9,9,9)_"",! Write $c(9,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,9)_"",! Write $c(9,9)_"",! Write $c(9,9)_"",! Write $c(9,9,9)_"",! Write $c(9,9,9)_"",! Write $c(9,9)_"",! Write $c(9,9)_"",! Write $c(9,9,9)_"",! Write $c(9,9,9)_"",! Write $c(9,9)_"",! Write $c(9)_"

		" Write "" Write (..WebTextValue("Taal",Taal,"L"))_": " Write "" Write "	"_(arSwitchTL("N")_" - "_arSwitchTL("F")_" - "_arSwitchTL("E")_" - "_arSwitchTL("D"))_"
" Write "" Write "Analyse QueryString:" Write "" Write "
QueryString:	" Write "" Write (QS) Write "" Write "
DATAOPT:	" Write "" Write "
	" Write "" Write "

",! Write $c(9) Write "

" Write !,$c(9) Write "

" Write !,..InsertHiddenFields("TestDataOptLMC.csp"),! Write !,$c(9)_"",! Write $c(9,9)_"",! Write $c(9,9,9)_"",! Write $c(9,9,9)_"",! Write $c(9,9,9)_"",! Write $c(9,9,9)_"",! Write $c(9,9,9)_"",! Write $c(9,9)_"",! Write $c(9,9)_"",! Write $c(9,9,9)_"",! Write $c(9,9,9)_"",! Write $c(9,9,9)_"",! Write $c(9,9,9)_"",! Write $c(9,9)_"",! Write $c(9,9)_"",! Write $c(9,9,9)_"",! Write $c(9,9,9)_"",! Write $c(9,9)_"",! Write $c(9,9)_"",! Write $c(9,9,9)_"",! Write $c(9,9,9)_"",! Write $c(9,9)_"",! Write $c(9,9)_"",! Write $c(9,9,9)_"",! Write $c(9,9,9)_"",! Write $c(9,9,9)_"",! Write $c(9,9,9)_"",! Write $c(9,9)_"",! Write $c(9,9)_"",! Write $c(9,9,9)_"",! Write $c(9,9,9)_"",! Write $c(9,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,9)_"",! Write $c(9,9)_"",! Write $c(9)_"

" Write "" Write "Decrypted values:" Write "" Write "			" Write "" Write "
DATAOPT:	" Write "" Write "
"_(..WebTextValue("Taal",Taal,"L"))_":	" Write "" Write "
Client Number:	" Write "" Write "	Client Name:	" Write "" Write "
Reduction:	" Write "" Write "	E-mail:	" Write "" Write "

	" Write "" Write "

",! Write $c(9) Write "

" Write !,$c(9)_"",! Write $c(9,9)_"",! Write $c(9,9,9)_"",! Write $c(9,9,9)_"",! Write $c(9,9,9)_"",! Write $c(9,9,9)_"",! Write $c(9,9,9)_"",! Write $c(9,9)_"",! Write $c(9,9)_"",! Write $c(9,9,9)_"",! Write $c(9,9,9)_"",! Write $c(9,9,9)_"",! Write $c(9,9,9)_"",! Write $c(9,9)_"",! Write $c(9,9)_"",! Write $c(9,9,9)_"",! Write $c(9,9,9)_"",! Write $c(9,9)_"",! If '($G(blnKeySteps)) Goto %csp00003 ;{ 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,9)_"",! Write $c(9,9)_"",! Write $c(9,9)_"",! Write $c(9,9)_"",! Write $c(9,9,9)_"",! Write $c(9,9,9)_"",! Write $c(9,9)_"",! Write $c(9,9)_"",! Write $c(9,9,9)_"",! Write $c(9,9,9)_"",! Write $c(9,9)_"",! Write $c(9,9)_"",! Write $c(9,9)_"",! Write $c(9,9,9)_"",! Write $c(9,9,9)_"",! Write $c(9,9)_"",! Write $c(9,9)_"",! Write $c(9,9)_"",! Write $c(9,9,9)_"",! Write $c(9,9,9)_"",! Write $c(9,9)_"",! %csp00003 ;} 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 "" Write "Encrypted URL:" Write "" Write "
DATAOPT:	",! Write $c(9,9,9,9) Write "" Write " ",! Write $c(9,9,9,9)_" Check: " Write "" Write ($G(DataOptCheck)) Write "" Write !,$c(9,9,9)_"

Step 1:	",! Write $c(9,9,9,9)_" "_($G(arStepsOPT(1)))_" ",! Write $c(9,9,9)_"

Step 2:	",! Write $c(9,9,9,9)_" "_($G(arStepsOPT(2)))_" ",! Write $c(9,9,9)_"
--> Hex:	",! Write $c(9,9,9,9)_" "_($G(arStepsOPT("2Hex")))_" ",! Write $c(9,9,9)_"

Step 3:	",! Write $c(9,9,9,9)_" "_($G(arStepsOPT(3)))_" ",! Write $c(9,9,9)_"

Step 4:	",! Write $c(9,9,9,9)_" "_($G(arStepsOPT(4)))_" ",! Write $c(9,9,9)_"

" Write "" Write "

",! Write $c(9)_"
"_$c(9,9,9),! %csp00002 ;} Write $c(9,9,9,9),! 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)_"TEST OPTIMA DATAOPT",! Write $c(9) Write "" Write !,$c(9) Write "" Write !,$c(9) Write "" Write !,$c(9) Write "" Write !,!,$c(9) Write "" Write !,"" ]]> 1 code %Boolean " Write !,!,! Do ..Include("PRGACNTs.INC") Write !,!,!,!,!,! Set %session.AppTimeout = 905 // Session Data is set in the OnPreHTTP-method Set WSOrd=$S($G(wsID)="":0, 1:##class(WS.TBX.Order).%OpenId(wsID)) Write !,! Do ..OnPageHEAD() Write !,! Do ..OnPageBODY() Write !,"" ]]> 1 code cache %Boolean c:\cachesys\csp\vhisie\TBX\TestDataOptLMC.csp /vhisie/TBX/TestDataOptLMC.csp 0 61423,60068 0