User cache %CSP.Page,cspBasis.GAProdTBox 1 code lbErrTypes cache 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)_"
",! Write $c(9,9,9,9) Do ..Include("Header.csp") Write !,!,$c(9,9,9)_"
",! Write $c(9,9,9,9)_"",! Write $c(9,9,9,9,9)_"",! Write $c(9,9,9,9,9,9)_"",! Write $c(9,9,9,9,9,9)_"",! Write $c(9,9,9,9,9,9)_"",! Write $c(9,9,9,9,9,9)_"",! Write $c(9,9,9,9,9,9)_"",! Write $c(9,9,9,9,9,9)_"",! Write $c(9,9,9,9,9,9)_"",! Write $c(9,9,9,9,9,9)_"",! Write $c(9,9,9,9,9,9)_"",! Write $c(9,9,9,9,9,9)_"",! Write $c(9,9,9,9,9)_"",! Write $c(9,9,9,9)_"
" Write "
" Write "" Write "
" Write "		" Write "
" Write 1 Write "
" Write "		" Write "
" Write (..WebTextValue("Personalia",Taal,"L",$LB("U"))) Write "
" Write "		" Write "
" Write 2 Write "
" Write "		" Write "
" Write (..WebTextValue("Kleurkeuze",Taal,"L",$LB("U"))) Write "
" Write "		" Write "
" Write 3 Write "
" Write "		" Write "
" Write (..WebTextValue("Maten",Taal,"L",$LB("U"))) Write "
" Write "		" Write "
" Write 4 Write "
" Write "		" Write "
" Write (..WebTextValue("Overzicht",Taal,"L",$LB("U"))) Write "
" Write "		" Write "
" Write "" Write "
" Write "
",! Write $c(9,9,9)_"
",! Write "" Write !,!,$c(9,9,9,9) Write "
" Write !,$c(9,9) Do ..Include("WizPData.csp") Write !,$c(9,9,9,9) Write "
" Write !,!,$c(9,9,9,9) Write "
" Write !,$c(9,9) Do ..Include("WizKleur.csp") Write !,$c(9,9,9,9) Write "
" Write !,!,$c(9,9,9,9) Write "
" Write !,$c(9,9) Do ..Include("WizMaten.csp") Write !,$c(9,9,9,9) Write "
" Write !,!,$c(9,9,9,9) Write "
" Write !,$c(9,9) Do ..Include("WizOvz.csp") Write !,$c(9,9,9,9) Write "
" Write !,!,$c(9,9,9,9) Write "
" Write !,$c(9,9) Do ..Include("WizError.csp") Write !,$c(9,9,9,9) Write "
" Write !,$c(9,9,9)_"
",! Write $c(9,9,9,9) Write !,"
",! Write " ",! Write "
",! Write !,"" Write !,!,$c(9,9,9)_"
",! Write !,$c(9) If $IsObject($G(blTBoxDfl)) Do . Do blTBoxDfl.Close() . Set blTBoxDfl="" 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 - "_..WebTextValue("INGAVE-WIZARD",Taal,"L"))_"",! Write $c(9) Write "" Write !,$c(9) Write "" Write !,! #define GetVertalingJS(%i,%tl,%tt) ##class(Res.Vertaling).GetVertalingPlus("TBW",%i,%tt,%tl,,1) #define jsVTLAddVal(%i,%tl,%tt) $C(9)_"jsArVTL["""_%i_"#"_%tl_"-"_%tt_"""]="""_$TR($$$GetVertalingJS(%i,%tl,%tt),$C(13,10),"")_""";"_$C(13,10) #define jsVTLAddValRepl(%i,%tl,%tt) $C(9)_"jsArVTL["""_%i_"#"_%tl_"-"_%tt_"""]="""_$$$Replace($$$GetVertalingJS(%i,%tl,%tt),"~","")_""";"_$C(13,10) #define jsVTLVar(%i,%tl,%tt) $C(9)_"var "_%i_"="""_$TR($$$GetVertalingJS(%i,%tl,%tt),$C(13,10),"")_""";"_$C(13,10) #define jsVTLAddVtl(%i,%tl,%tt,%vtl) $C(9)_"jsArVTL["""_%i_"#"_%tl_"-"_%tt_"""]="""_%vtl_""";"_$C(13,10) Set tmpDC=$S(DCM="I":"I", DCM="A":"A", 1:"S") ; Vertalingen voor teksten ingevuld/aangepast via JavaScript. 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 !,$c(9) Write "" Write ! If '(DCM="I") Goto %csp00002 ;{ Write !,$c(9) Write "" Write ! Goto %csp00003 ;} %csp00002 If '(DCM="A") Goto %csp00004 ;{ Write !,$c(9) Write "" Write ! Goto %csp00003 ;} %csp00004 If '(DCM="X") Goto %csp00005 ;{ Write !,$c(9) Write "" Write ! Goto %csp00003 ;} %csp00005 ;{ Write !,$c(9) Write "" Write ! %csp00003 ;} Write !,$c(9) Write "" Write !,$c(9) Write "" Write !,! ;Set blnValidatePData=0 Set blnValidatePData=$S($G(%session.Data("BeursUser")):0, 1:1) Write !,$c(9) Write "" Write !,$c(9) Write "" Write !,$c(9),! Write !,(..HyperEventHead()) Write "" ]]> 1 code %Boolean " Write !,! Do ..Include("PRGACNTs.INC") Write ! Do ..Include("APPS.TBXWeb.INC") Write !,!,!,!,!,! Set %session.AppTimeout = $S($G(blnSFS):1805, 1:905) // Set %session.BrokerImplementation=1 ; 1: JavaVM - 2: XmlHttp Write !,! Do ..OnPageHEAD() Write !,! Do ..OnPageBODY() Write !,"" ]]> 1 code cache %Boolean iso-8859-1 text/html c:\cachesys\csp\vhisie\TBX\Wizard.csp /vhisie/TBX/Wizard.csp 1 62144,62728 0