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 !,!," " If '(($G(blnEditData)&&('blnEditFind))) Goto %csp00003 ;{ Write !,$c(9) Write "
" Write !,..InsertHiddenFields("FixOPTIMA.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)_"",! 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)_"",! 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)_"",! Write $c(9,9)_"",! Write $c(9,9,9)_"",! Write $c(9,9,9)_"",! Write $c(9,9)_"",! Write $c(9)_"
" Write "" Write "Input value:" Write "" Write " Entrez le numéro de client ",! Write $c(9,9,9,9) Write "" Write !,$c(9,9,9,9) Write "" Write !,$c(9,9,9)_"
 
Client Number: " Write "" Write "   "_($G(msgVerifyKLNr))_"
 
 " Write "" Write "
 
 "_($G(msgDataOptEdit))_"
",! Write $c(9) Write "
" Write !,$c(9)_"
"_$c(9,9,9),! Write !," " Goto %csp00004 ;} %csp00003 ;{ Write !,!,$c(9) Write "
" Write !,..InsertHiddenFields("FixOPTIMA.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)_"",! 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,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)_"",! Write !,$c(9) If '(($G(blnEditData)&&(blnEditFind))) Goto %csp00007 ;{ Write !,$c(9,9)_"",! Write $c(9,9,9)_"",! Write $c(9,9,9)_"",! Write $c(9,9)_"",! Write $c(9) Goto %csp00008 ;} %csp00007 ;{ 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)_"",! Write $c(9,9)_"",! Write $c(9,9,9)_"",! Write $c(9,9,9)_"",! Write $c(9,9)_"",! Write $c(9) %csp00008 ;} 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 $c(9,9,9,9) If '(($G(blnEditData)&&(blnEditFind))) Goto %csp00005 ;{ Write !,$c(9,9,9,9) Write "" Write "Data values:" Write "" Write " Read-only: inutile de modifier ces valeurs !",! Write $c(9,9,9,9) Goto %csp00006 ;} %csp00005 ;{ Write !,$c(9,9,9,9) Write "" Write "Input values:" Write "" Write " Entrez les données de client",! Write $c(9,9,9,9) %csp00006 ;} Write !,$c(9,9,9)_" " Write "" Write "
 
"_(..WebTextValue("Taal",Taal,"L"))_": " Write "" Write "
Client Number: " Write "" Write "   "_($G(msgVerifyKLNr))_"
Client Name: " Write "" Write "
E-mail: " Write "" Write "
Reduction: " Write "" Write " %
 
" Write "" Write " " Write "" Write "
DATAOPT: ",! Write $c(9,9,9,9) Write "" Write " (original from ""Connexion"")",! Write $c(9,9,9,9) Write "" Write " (simple text)
",! Write $c(9,9,9,9) Write "" Write " (correct encryption)
",! Write $c(9,9,9)_"
 
 " Write "" Write "
 
 "_($G(msgDataOptToGlobal))_"
",! Write $c(9) Write "
" Write !,$c(9)_"
"_$c(9,9,9),! Write " " %csp00004 ;} Write $c(9,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)_"Fix Optima Data",! 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\FixOPTIMA.csp /vhisie/TBX/FixOPTIMA.csp 0 61492,61219 0