User cache %CSP.Page,cspBasis.GAProdTBox 1 code %Status 1 code %Boolean " Write "" Write !,"" Write ! If '(($G(arUrl("HideOrder"))="")) Goto %csp00001 ;{ Write !,$c(9)_"",! Write $c(9,9)_" "_(..WebTextValue("Order",Taal,"L"))_"",! Write $c(9,9)_" ",! Write $c(9)_"",! Goto %csp00002 ;} %csp00001 ;{ Write $c(9,9),! Write $c(9)_"",! Write $c(9,9)_"",! Write $c(9,9,9) Write "" Write (..WebTextValue("Order",Taal,"L")),! Write $c(9,9)_"",! Write $c(9,9)_"",! Write $c(9,9,9) Write "" Write "" Write "" Write !,$c(9,9)_"",! Write $c(9)_"",! %csp00002 ;} Write !,"" Write !,$c(9)_"",! Write $c(9,9)_"",! 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)_"",! Write $c(9,9,9,9,9)_"",! Write $c(9,9,9,9,9)_"",! Write $c(9,9,9,9)_"",! Write $c(9,9,9,9)_"",! Write $c(9,9,9,9,9)_"",! Write $c(9,9,9,9)_"",! Write $c(9,9,9,9)_"",! Write $c(9,9,9,9,9)_"",! Write $c(9,9,9,9,9)_"",! Write $c(9,9,9,9,9)_"",! Write $c(9,9,9,9,9)_" " Write !,$c(9,9,9,9)_"",! Write $c(9,9,9,9)_"",! Write $c(9,9,9,9,9)_"",! Write $c(9,9,9,9,9)_"",! Write $c(9,9,9,9)_"",! Write $c(9,9) If '(($G(sMode)="PROCESS")) Goto %csp00003 ;{ Write !,$c(9,9,9,9)_"",! Write $c(9,9,9,9,9)_"",! Write $c(9,9,9,9,9)_"",! Write $c(9,9,9,9)_"",! Write $c(9,9) %csp00003 ;} Write !,$c(9,9,9,9)_"",! Write $c(9,9,9,9,9)_"",! Write $c(9,9,9,9)_"",! Write !,$c(9,9,9,9)_"",! Write $c(9,9,9,9,9)_"",! Write $c(9,9,9,9,9)_"",! Write $c(9,9,9,9,9)_"",! Write $c(9,9,9,9,9)_"",! Write $c(9,9,9,9)_"",! Write $c(9,9,9,9)_"",! Write $c(9,9,9,9,9)_"",! Write $c(9,9,9,9,9)_"",! Write $c(9,9,9,9)_"",! Write $c(9,9,9)_"

" Write " " Write (..WebTextValue("Algemene gegevens",Taal,"L")) Write " " Write "
" Write " " Write (..WebTextValue("KLNaam",Taal,"L"))_" :" Write " " Write "	"_(WSOrd.KLNaam)_"	"_($G(arWSVTL("BonType")))_"	"_(..WebTextValue("Nummer_Kort",Taal,"L"))_" : "_(WSOrd.OrderNr)_"
" Write " " Write (..WebTextValue("Commissie",Taal,"L"))_" :" Write " " Write "	"_(WSOrd.Commissie)_"
" Write " " Write (..WebTextValue("Levertijd",Taal,"L"))_" :" Write " " Write "	"_(WSOrd.LeverTijd)_"
" Write " " Write (..WebTextValue("Kleurkeuze",Taal,"L")) Write " " Write "
",! Write $c(9,9,9,9,9,9) Write " " Write (..WebTextValue("Design",Taal,"L")_"/"_..WebTextValue("Ladezijden",Taal,"L"))_" :" Write " " Write !,!,$c(9,9,9,9,9)_"	",! Write $c(9,9,9,9,9,9) Write " " Write ($G(arWSVTL("KLR_DS"))) Write " " Write !,!,$c(9,9,9,9,9)_"	",! Write $c(9,9,9,9,9,9) Write " " Write ($TR(..WebTextValue("Bodem&Rug",Taal,"L")," ",""))_" :" Write " " Write !,$c(9,9,9,9,9,9) If '((dcID'="I")) Goto %csp00004 ;{ Write !,$c(9,9,9,9,9,9) Write " " Write ($S(0:..WebTextValue("Kleur",Taal,"L")_" ", 1:"")_..WebTextValue("Relingen",Taal,"L"))_" :" Write " " Write !,$c(9,9,9,9,9,9) %csp00004 ;} Write !,$c(9,9,9,9,9,9) If '((dcID'="A")) Goto %csp00005 ;{ Write !,$c(9,9,9,9,9,9) Write " " Write ($S(0:..WebTextValue("Kleur",Taal,"L")_" ", 1:"")_..WebTextValue($S(0:"VerhoogdeZijwand",1:"VullingGlas_"_dcID),Taal,"L"))_" :" Write " " Write !,$c(9,9,9,9,9,9) %csp00005 ;} Write !,$c(9,9,9,9,9)_"	",! Write $c(9,9,9,9,9,9) Write " " Write ($G(arWSVTL("KLR_KB"))) Write " " Write !,$c(9,9,9,9,9,9) If '((dcID'="I")) Goto %csp00006 ;{ Write !,$c(9,9,9,9,9,9) Write " " Write ($G(arWSVTL("KLR_RK"))) Write " " Write !,$c(9,9,9,9,9,9) %csp00006 ;} Write !,$c(9,9,9,9,9,9) If '((dcID'="A")) Goto %csp00007 ;{ Write !,$c(9,9,9,9,9,9) Write " " Write ($G(arWSVTL("KLR_KV"))) Write " " Write !,$c(9,9,9,9,9,9) %csp00007 ;} Write !,$c(9,9,9,9,9)_"
" Write " " Write (..WebTextValue("Maten",Taal,"L")) Write " " Write "

"_$c(9),! 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)_"",! Write $c(9,9,9,9,9)_"",! Write $c(9,9,9,9,9)_"",! Write $c(9,9,9,9,9)_"",! Write $c(9,9,9,9,9)_"",! Write $c(9,9,9,9,9)_"",! Write $c(9,9,9,9,9)_"",! Write $c(9,9,9,9,9)_"",! Write $c(9,9,9,9,9)_"",! Write $c(9,9,9,9,9)_"",! Write $c(9,9,9,9)_"",! Write $c(9,9,9,9)_"",! Write $c(9,9,9,9,9)_"",! Write $c(9,9,9,9,9)_"",! Write $c(9,9,9,9,9)_"",! Write $c(9,9,9,9,9)_"",! Write $c(9,9,9,9,9)_"",! Write $c(9,9,9,9,9)_"",! Write $c(9,9,9,9,9)_"",! Write $c(9,9,9,9,9)_"",! Write $c(9,9,9,9,9)_"",! Write $c(9,9,9,9,9)_"",! Write $c(9,9,9) If '($G(blnShowAKPrijs)) Goto %csp00008 ;{ Write !,$c(9,9,9,9,9)_"",! Write $c(9,9,9) Goto %csp00009 ;} %csp00008 ;{ Write !,$c(9,9,9,9,9)_"",! Write $c(9,9,9) %csp00009 ;} Write !,$c(9,9,9,9)_"",! Write $c(9,9,9,9) Write "" Write !,$c(9,9,9,9) #define RightSet00(%v) $TR("BA","AB",$Reverse(%v)_"00") Set RowCnt=0 Set lnI="" Kill tmpArLN Merge tmpArLN=arWSVTL("LN") Write !,$c(9,9,9) %csp00011 If '(..LoopArray(.tmpArLN,.lnI)) Goto %csp00010 ;{ Write !,$c(9,9,9,9) Set RowCnt=RowCnt+1 Set i=lnI Set RowStyle=$S((RowCnt#2):"clsMRowEven", 1:"clsMRowOdd")_$S($O(tmpArLN(lnI))="":" clsMRowLastX", 1:"") Write !,$c(9,9,9,9)_"",! Write $c(9,9,9,9,9)_" ",! Write $c(9,9,9,9,9)_" ",! Write $c(9,9,9,9,9)_" ",! Write $c(9,9,9,9,9)_" ",! Write $c(9,9,9,9,9)_" ",! Write $c(9,9,9,9,9)_" ",! Write $c(9,9,9,9,9)_" ",! Write $c(9,9,9,9,9)_" ",! Write $c(9,9,9,9,9)_" ",! Write $c(9,9,9,9,9)_" ",! Write $c(9,9,9,9,9)_" ",! Write $c(9,9,9,9)_" ",! Write $c(9,9,9) Goto %csp00011 %csp00010 ;} Write !,$c(9,9,9,9) Write "" Write !,$c(9,9,9) If '(($L($G(arWSVTL("NietMee"))))) Goto %csp00012 ;{ Write !,$c(9,9,9,9)_"",! Write $c(9,9,9,9,9)_"",! Write $c(9,9,9,9)_"",! Write $c(9,9,9) Goto %csp00013 ;} %csp00012 ;{ Write !,$c(9,9,9,9)_"",! Write $c(9,9,9,9,9)_"",! Write $c(9,9,9,9)_"",! Write $c(9,9,9) %csp00013 ;} Write !,$c(9,9,9,9)_"",! Write $c(9,9,9,9,9)_"",! Write $c(9,9,9,9,9)_"",! Write $c(9,9,9,9,9)_"",! Write $c(9,9,9,9,9)_"",! Write $c(9,9,9,9,9)_"",! Write !,$c(9,9,9,9)_"",! Write $c(9,9,9)_"

"_(arVTL("TH","LT") )_"	"_(arVTL("TH","CB") )_"	"_(arVTL("TH","WD") )_"	"_(arVTL("TH","LD") )_"	"_(arVTL("TH","DK") )_"	"_(arVTL("TH","FB") )_"	"_(arVTL("TH","BX") )_"	"_(arVTL("TH","DIV"))_"	"_(arVTL("TH","Aant"))_"	" Write "" Write (..WebTextValue("PrijsAKPrefix",Taal,"L")) Write "" Write " "_(..WebTextValue("PrijsPerStukTH",Taal,"L"))_"	"_(..WebTextValue($S(WSOrd.TotPrijs>0:"PrijsPerStukTH", 1:"InfoTH"),Taal,"L"))_"
"_(arWSVTL("LN",i,"LT"))_"	"_(arWSVTL("LN",i,"CB"))_"	"_(arWSVTL("LN",i,"WD"))_"	"_(arWSVTL("LN",i,"LD"))_"	"_(arWSVTL("LN",i,"DK"))_"	"_(arWSVTL("LN",i,"FB"))_"	"_(arWSVTL("LN",i,"BX"))_"	"_(arWSVTL("LN",i,"DIV"))_"	"_(arWSVTL("LN",i,"AANT"))_"	"_(arWSVTL("LN",i,"PRIJS"))_"
",! Write $c(9,9,9,9,9,9)_" "_(..WebTextValue("NietMeeleveren",Taal,"L"))_": "_($G(arWSVTL("NietMee")))_" ",! Write $c(9,9,9,9,9)_"
" Write "" Write "
	"_(..WebTextValue("PrijsTotaal",Taal,"L"))_":	"_(WSOrd.TotAantal)_"		"_($S($G(arWSVTL("TotPrijs"))="":" ",1:arWSVTL("TotPrijs")))_"

",! Write $c(9,9,9) If '(0 && $G(blnShowAKPrijs)) Goto %csp00014 ;{ Write !,$c(9,9,9,9)_"

",! Write $c(9,9,9,9,9) Write "" Write (..WebTextValue("Aankoopprijzen",Taal,"L")) Write "" Write !,$c(9,9,9,9)_"

",! Write $c(9,9,9) %csp00014 ;} Write !,$c(9,9,9) If '($G(arShow("WSErrorsInfo","INFO"))) Goto %csp00015 ;{ Write !,$c(9,9,9,9)_"

",! Write $c(9,9,9,9,9) Write "" Write "" Write "" Write ($G(arShow("WSErrorsInfo","TEXT"))),! Write $c(9,9,9,9,9) Write "" Write (..WebTextValue("MeerInfo",Taal,"L")) Write "" Write " ...",! Write $c(9,9,9,9)_"

",! Write $c(9,9,9) %csp00015 ;} Write !,$c(9,9,9) If '($G(arShow("VervaldagOFF","INFO"))) Goto %csp00016 ;{ Write !,$c(9,9,9,9)_"

",! Write $c(9,9,9,9,9)_($G(arShow("VervaldagOFF","TEXT"))),! Write $c(9,9,9,9)_"

",! Write $c(9,9,9) %csp00016 ;} Write !,$c(9,9,9) If '($G(arShow("BrutoPrijsHein","INFO"))) Goto %csp00017 ;{ Write !,$c(9,9,9,9)_"

",! Write $c(9,9,9,9,9)_"Die Bruttopreise verstehen sich ab Werk, zuzüglich der gesetzlichen Mehrwertsteuer.",! Write $c(9,9,9,9)_"

",! Write $c(9,9,9) %csp00017 ;} Write !,$c(9,9,9) If '($G(arShow("NotRegUserInfo","INFO"))) Goto %csp00018 ;{ Write !,$c(9,9,9,9)_"

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

",! Write $c(9,9,9) %csp00018 ;} Write !,$c(9,9),! Write $c(9,9,9) 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)_"",! Write $c(9,9,9,9,9)_"",! Write $c(9,9,9,9,9)_"",! Write $c(9,9,9,9,9)_"",! Write $c(9,9,9,9)_"",! Write $c(9,9,9,9)_"",! Write $c(9,9,9,9,9)_"",! Write $c(9,9,9,9,9)_"",! Write $c(9,9,9,9,9)_"",! Write $c(9,9,9,9,9)_"",! Write $c(9,9,9,9,9)_"",! Write $c(9,9,9,9)_"",! Write $c(9,9),! Write $c(9,9,9) If '($G(arShow("RecalcOrder","BTN"))) Goto %csp00019 ;{ Write !,$c(9,9,9,9)_"",! Write $c(9,9,9,9,9)_"",! Write $c(9,9,9,9,9)_"",! Write $c(9,9,9,9,9)_"",! Write $c(9,9,9,9)_"",! Write $c(9,9,9) %csp00019 ;} Write !,$c(9,9,9),! Write $c(9,9,9) If '($G(arShow("Submit","BTN"))||$G(arShow("SubmitToVHEPN","BTN"))) Goto %csp00020 ;{ Write !,$c(9,9,9,9) Write "" Write !,$c(9,9,9) %csp00020 ;} Write !,$c(9,9,9) If '($G(arShow("Submit","BTN"))) Goto %csp00021 ;{ Write !,$c(9,9,9,9)_"",! Write $c(9,9,9,9,9)_"",! Write $c(9,9,9,9,9)_"",! Write $c(9,9,9,9,9)_"",! Write $c(9,9,9,9)_"",! Write $c(9,9,9) %csp00021 ;} Write !,$c(9,9,9) If '($G(arShow("SubmitAgain","BTN"))) Goto %csp00024 ;{ Write !,$c(9,9,9,9)_"",! Write $c(9,9,9,9,9)_"",! Write $c(9,9,9,9)_"",! Write $c(9,9,9) %csp00024 ;} Write !,$c(9,9,9) If '($G(arShow("PrintPage","BTN"))) Goto %csp00025 ;{ Write !,$c(9,9,9,9) If '((TextPos="LEFT")) Goto %csp00026 ;{ Write !,$c(9,9,9,9)_"",! Write $c(9,9,9,9,9)_"",! Write $c(9,9,9,9)_""_$c(9),! Write $c(9,9,9,9) %csp00026 ;} Write !,$c(9,9,9,9)_"",! Write $c(9,9,9,9,9)_"",! Write $c(9,9,9,9,9)_"",! Write $c(9,9,9,9) If '((TextPos="LEFT")||($G(arShow("PrintPage","HREF"))="")) Goto %csp00029 ;{ Write !,$c(9,9,9,9,9)_"",! Write $c(9,9,9,9) Goto %csp00030 ;} %csp00029 ;{ Write $c(9,9),! Write $c(9,9,9,9,9)_"",! Write $c(9,9,9,9) %csp00030 ;} Write !,$c(9,9,9,9)_"",! Write $c(9,9,9) Goto %csp00032 ;} %csp00025 If '($G(arShow("ExportXML","BTN"))) Goto %csp00033 ;{ Write !,$c(9,9,9,9)_"",! Write $c(9,9,9,9,9)_"",! Write $c(9,9,9,9,9)_"",! Write $c(9,9,9,9,9)_"",! Write $c(9,9,9,9)_"",! Write $c(9,9,9) %csp00032 ;} %csp00033 Write !,$c(9,9,9) If '($G(arShow("SwitchViewMode","BTN"))) Goto %csp00034 ;{ Write !,$c(9,9,9,9) If '((TextPos="LEFT")) Goto %csp00035 ;{ Write !,$c(9,9,9,9)_"",! Write $c(9,9,9,9,9)_"",! Write $c(9,9,9,9)_""_$c(9),! Write $c(9,9,9,9) %csp00035 ;} Write !,$c(9,9,9,9)_"",! Write $c(9,9,9,9,9)_"",! Write $c(9,9,9,9,9)_"",! Write $c(9,9,9,9,9) Goto %csp00037 ;} %csp00036 ;{ Write !,$c(9,9,9,9,9)_"",! Write $c(9,9,9,9,9) %csp00037 ;} Write !,$c(9,9,9,9)_"",! Write $c(9,9,9) %csp00034 ;} Write !,$c(9,9,9) If '($G(arShow("BookmarkPage","BTN"))&&(%request.UserAgent["MSIE")) Goto %csp00038 ;{ Write !,$c(9,9,9,9) If '((TextPos="LEFT")) Goto %csp00039 ;{ Write !,$c(9,9,9,9)_"",! Write $c(9,9,9,9,9)_"",! Write $c(9,9,9,9)_""_$c(9),! Write $c(9,9,9,9) %csp00039 ;} Write !,$c(9,9,9,9)_"",! Write $c(9,9,9,9,9)_"",! Write $c(9,9,9,9,9)_"",! Write $c(9,9,9,9,9) If '((TextPos="RIGHT")) Goto %csp00040 ;{ Write !,$c(9,9,9,9,9)_"",! Write $c(9,9,9,9,9) Goto %csp00041 ;} %csp00040 ;{ Write !,$c(9,9,9,9,9)_"",! Write $c(9,9,9,9,9) %csp00041 ;} Write !,$c(9,9,9,9)_"",! Write $c(9,9,9) %csp00038 ;} Write !,$c(9,9,9) Write !,$c(9,9,9) If '(((%request.UserAgent["MSIE")=0)&&($G(arShow("BookmarkPage","BTN")))&&(TextPos="LEFT")) Goto %csp00042 ;{ Write !,$c(9,9,9,9)_"",! Write $c(9,9,9,9,9)_"",! Write $c(9,9,9,9)_""_$c(9),! Write $c(9,9,9) %csp00042 ;} Write !,$c(9,9),! Write $c(9,9,9) If '($G(arShow("SubmitToVHEPN","BTN"))) Goto %csp00043 ;{ Write !,$c(9,9,9,9,9) If '($G(arShow("SubmitToVHEPNAgain","INFO"))="") Goto %csp00044 ;{ Write !,$c(9,9,9,9)_"",! Write $c(9,9,9,9,9)_"",! Write $c(9,9,9,9,9)_"",! Write $c(9,9,9,9,9)_"",! Write $c(9,9,9,9)_"",! Write $c(9,9,9,9,9) Goto %csp00045 ;} %csp00044 ;{ Write !,$c(9,9,9,9,9) Write "" Write $c(9,9,9,9,9),! Write $c(9,9,9,9)_"",! Write $c(9,9,9,9,9)_"",! Write $c(9,9,9,9,9)_"",! Write $c(9,9,9,9,9)_"",! Write $c(9,9,9,9)_"",! Write $c(9,9,9,9,9) %csp00045 ;} Write !,$c(9,9,9) %csp00043 ;} Write !,!,!,!,$c(9,9,9) If '(($G(arShow("SubmitAdmin","BTN")))) Goto %csp00046 ;{ Write !,$c(9,9) If '(($G(arShow("SubmitAdminAgain","INFO"))="")) Goto %csp00047 ;{ Write !,$c(9,9,9,9)_"",! Write $c(9,9,9,9,9) If '((($G(arShow("ChangeBulk","BTN")))&&($G(arShow("ChangeBulk","EXPAND"))'=1))) Goto %csp00048 ;{ Write !,$c(9,9,9,9,9)_"",! Write $c(9,9,9,9,9) Goto %csp00049 ;} %csp00048 ;{ Write !,$c(9,9,9,9,9)_"",! Write $c(9,9,9,9,9) %csp00049 ;} Write !,$c(9,9,9,9,9)_"",! Write $c(9,9,9,9,9)_"",! Write $c(9,9,9,9)_"",! Write $c(9,9) %csp00047 ;} Write !,$c(9,9) If '(($L($G(arShow("SubmitAdminAgain","INFO"))))) Goto %csp00050 ;{ Write !,$c(9,9,9,9)_"",! Write $c(9,9,9,9,9)_"",! Write $c(9,9,9,9,9)_"",! Write $c(9,9,9,9,9)_"",! Write $c(9,9,9,9)_"",! Write $c(9,9) %csp00050 ;} Write !,$c(9,9) If '(($G(arShow("ChangeBulk","BTN"))=1)) Goto %csp00051 ;{ Write !,$c(9,9,9,9) Set WzgBulkValue=$S($G(arShow("ChangeBulk","EXPAND"))=1:$LG(lbBulkConfig,1), 1:"O") Write !,$c(9,9,9,9)_"",! Write $c(9,9,9,9,9)_"",! Write $c(9,9,9,9,9)_"",! Write $c(9,9,9,9,9)_"",! Write $c(9,9,9,9)_"",! Write $c(9,9) %csp00051 ;} Write !,$c(9,9,9) %csp00046 ;} Write !,$c(9,9,9),! Write !,$c(9,9,9),! Write !,$c(9,9,9) If '($G(arShow("CalcOrder","BTN"))) Goto %csp00053 ;{ Write !,$c(9,9,9,9)_"",! Write $c(9,9,9,9,9)_"",! Write $c(9,9,9,9,9)_"",! Write $c(9,9,9,9,9)_"",! Write $c(9,9,9,9)_"",! Write $c(9,9,9,9)_"",! Write $c(9,9,9) %csp00053 ;} Write !,$c(9,9,9) If '($G(arShow("ModifyOrder","BTN"))) Goto %csp00054 ;{ Write !,$c(9,9,9,9)_"",! Write $c(9,9,9,9,9)_"",! Write $c(9,9,9,9,9)_"",! Write $c(9,9,9,9,9)_"",! Write $c(9,9,9,9)_"",! Write $c(9,9,9) %csp00054 ;} Write !,!,$c(9,9,9) If '(0 && $G(arShow("NewFromOrder","BTN"))) Goto %csp00055 ;{ Write !,$c(9,9,9,9) Write "" Write " ",! Write $c(9,9,9) %csp00055 ;} Write !,!,!,$c(9,9,9)_"


	",! Write $c(9,9,9,9,9,9) Write "" Write "" Write ""_(..WebTextValue("BtnRecalcOrder",Taal,"L"))_"" Write "" Write "" Write !,$c(9,9,9,9,9)_"	: "_(..WebTextValue($S((RedenVervallen="NieuweActie"):"Actie_SFS_GRATIS_KORPUSSCHIENEN_2011_NieuweActie", (RedenVervallen="ActieVervallen"):"Actie_SFS_GRATIS_KORPUSSCHIENEN_2011_ActieVervallen", 1:"VervallenRecalc"),Taal,"L"))_"
	",! Write $c(9,9,9,9,9,9) If '($L($G(arShow("Submit","HREF")))) Goto %csp00022 ;{ Write !,$c(9,9,9,9,9,9,9) Set jsSubmitAction="javascript:ShowMailWin();" If (blnSFS\|\|blnMBHO)&&($G(blnWSErrors,0)) Set jsSubmitAction="javascript:alert("_$$$QuoteJS($G(arShow("WSErrorsInfo","TEXT"),"ERROR: see above."))_");" Write !,$c(9,9,9,9,9,9,9) Write "" Write "" Write ""_($G(arShow("Submit","TEXT"),"Verzenden"))_"" Write "" Write "" Write !,$c(9,9,9,9,9,9) Goto %csp00023 ;} %csp00022 ;{ Write !,$c(9,9,9,9,9,9,9) Write "" Write ""_($G(arShow("Submit","TEXT"),"Verzenden"))_"" Write "" Write !,$c(9,9,9,9,9,9) %csp00023 ;} Write !,$c(9,9,9,9,9)_"	"_($S($L($G(arShow("Submit","INFO"))):" : "_$G(arShow("Submit","INFO")), 1:""))_"
",! Write $c(9,9,9,9,9,9)_" ",! Write $c(9,9,9,9,9,9)_($G(arShow("SubmitAgain","INFO")))_" " Write !,$c(9,9,9,9,9)_"
"_(..WebTextValue("AfdrukVersieInfo",Taal,"L",$LB("F")))_"
	",! Write $c(9,9,9,9,9,9) If '($L($G(arShow("PrintPage","HREF")))) Goto %csp00027 ;{ Write !,$c(9,9,9,9,9,9,9) Write "" Write "" Write ""_(..WebTextValue("Afdrukbare versie",Taal,"L"))_"" Write "" Write "" Write !,$c(9,9,9,9,9,9) Goto %csp00028 ;} %csp00027 ;{ Write !,$c(9,9,9,9,9,9,9) Write "" Write ""_(..WebTextValue("Afdrukbare versie",Taal,"L"))_"" Write "" Write !,$c(9,9,9,9,9,9) %csp00028 ;} Write !,$c(9,9,9,9,9)_"		",! Write $c(9,9,9,9,9,9) Write "" Write " : "_(..WebTextValue("AfdrukVersieInfo",Taal,"L"))_"." Write "" Write !,$c(9,9,9,9,9,9) If '($G(arShow("ExportXML","BTN"))) Goto %csp00031 ;{ Write !,$c(9,9,9,9,9,9)_" « " Write "" Write (..WebTextValue("ToonXML",Taal,"L")) Write "" Write " »",! Write $c(9,9,9,9,9,9)_" « " Write "" Write (..WebTextValue("PrintEnSluit",Taal,"L")) Write "" Write " »",! Write $c(9,9,9,9,9,9) %csp00031 ;} Write !,$c(9,9,9,9,9)_"
	",! Write $c(9,9,9,9,9,9) Write "" Write "" Write ""_(..WebTextValue("ToonXML",Taal,"L"))_"" Write "" Write "" Write !,$c(9,9,9,9,9)_"
"_(..WebTextValue("SwitchViewMode",Taal,"O",$LB("F")))_"
	" Write "" Write "" Write ""_(..WebTextValue($S(1:"BtnShowVKPrijs",1:"BtnSwitchViewMode"),Taal,"L"))_"" Write "" Write "" Write !,$c(9,9,9,9,9) If '((TextPos="RIGHT")) Goto %csp00036 ;{ Write !,$c(9,9,9,9,9)_"	: "_(..WebTextValue("SwitchViewMode",Taal,"O"))_"
"_(..WebTextValue("BookmarkPage",Taal,"O",$LB("F")))_"
	" Write "" Write ""_(..WebTextValue("BookmarkPage",Taal,"L"))_"" Write "" Write "	: "_($P(..WebTextValue("BookmarkPage",Taal,"O"),",",1))_"
"_(..WebTextValue("BookmarkPage",Taal,"O",$LB("F")))_" (Ctrl-D)
	",! Write $c(9,9,9,9,9,9) Write "" Write "" Write ""_($G(arShow("SubmitToVHEPN","TEXT"),"Verzenden"))_"" Write "" Write "" Write !,$c(9,9,9,9,9)_"	"_($S($L($G(arShow("SubmitToVHEPN","INFO"))):" : "_arShow("SubmitToVHEPN","INFO"), 1:""))_"
		",! Write $c(9,9,9,9,9,9)_" : "_(..WebTextValue("VerzondenToVH",Taal,"L"))_" ",! Write $c(9,9,9,9,9,9)_"« " Write "" Write ($$$LCase(..WebTextValue("VerzendenOpnieuw",Taal,"L"))) Write "" Write " » ",! Write $c(9,9,9,9,9,9)_" "_(arShow("SubmitToVHEPNAgain","INFO")),! Write $c(9,9,9,9,9)_"
" Write " " Write "" Write "+" Write "" Write " " Write " " Write "		",! Write $c(9,9,9,9,9,9) Write "" Write "" Write ""_(..WebTextValue("BtnSubmitAdmin",Taal,"L"))_"" Write "" Write "" Write !,$c(9,9,9,9,9)_"	: de bestelling naar ADMIN verzenden (verdere verwerking noodzakelijk)
		",! Write $c(9,9,9,9,9,9)_" : deze bestelling is naar ADMIN verzonden ! ",! Write $c(9,9,9,9,9,9)_"« " Write "" Write (..WebTextValue("BtnSubmitAdmin",Taal,"L")) Write "" Write " » ",! Write $c(9,9,9,9,9,9)_" "_(arShow("SubmitAdminAgain","INFO"))_" ",! Write $c(9,9,9,9,9)_"
		",! Write $c(9,9,9,9,9,9) Write " " Write !,$c(9,9,9,9,9,9)_" --> wijzig verpakking: " Write "" Write "bulk ("_(WzgBulkValue)_")" Write "" Write !,$c(9,9,9,9,9,9) If '(((KLNr?1(1"X999_1385")))) Goto %csp00052 ;{ Write " / " Write "" Write "bulk MET ("_("O")_")" Write "" %csp00052 ;} Write !,$c(9,9,9,9,9,9)_" / " Write "" Write "per stuk" Write "" Write !,!,$c(9,9,9,9,9,9) Write " " Write !,$c(9,9,9,9,9)_"
	" Write "" Write "" Write ""_(..WebTextValue("BtnCalcOrder",Taal,"L"))_"" Write "" Write "" Write "	: de prijzen berekenen via de web-wizard
	" Write "" Write "" Write ""_(..WebTextValue("BtnModifyOrder",Taal,"L"))_"" Write "" Write "" Write "	: "_(..WebTextValue("ModifyOrder",Taal,"O"))_"

",! Write $c(9,9)_"",! Write $c(9)_"",! Write "" ]]> c:\cachesys\csp\vhisie\TBX\MainOrderDtl.csp /vhisie/TBX/MainOrderDtl.csp 62199,55773