" 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,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 "" Write !,$c(9,9)_"",! Write "" Write !,$c(9,9)_"",! Write $c(9) If '((blnShowStdLField)&&(DCM'="I")) Goto %csp00003 ;{ Write !,$c(9,9,9)_"",! Write $c(9,9,9)_"",! Write $c(9) Goto %csp00004 ;} %csp00003 ;{ Write !,$c(9,9,9)_"",! Write $c(9) %csp00004 ;} Write !,$c(9,9,9) Write "" Write !,$c(9,9)_"",! Write $c(9,9)_"",! Write $c(9,9,9)_"",! Write $c(9,9,9)_"",! Write $c(9,9,9) Write "" 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,9) Write "" 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,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,9)_"",! Write $c(9,9,9)_"",! Write $c(9,9)_"",! Write $c(9,9),! Write $c(9,9),! Write !,$c(9,9)_"",! Write $c(9,9,9) Write "" 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,9)_"",! Write !,$c(9,9)_"",! Write $c(9,9)_"",! Write $c(9,9,9) Write "" Write !,$c(9,9,9) Write "" 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 "" Write !,$c(9,9,9) Write "" 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)_"",! Write $c(9,9,9)_"",! Write $c(9,9)_"",! Write !,$c(9,9) If '($G(blnShowDynSpace,0)) Goto %csp00027 ;{ Write !,$c(9,9)_"",! Write $c(9,9,9)_"",! Write $c(9,9,9)_"",! Write $c(9,9)_"",! Write $c(9,9) %csp00027 ;} Write !,$c(9,9),! Write $c(9,9)_"",! Write $c(9,9,9)_"",! Write $c(9)_" "_$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)_"

" Write "" Write " "_(IngaveTitle)_" :" Write "" Write "						" Write " " Write "" Write " " Write "
" Write "" Write (arVTL("LBL","LT"))_":" Write "" Write "" Write "	",! Write $c(9,9,9,9) // Open instance of ResultSet for runtime mode of DISPLAY. Set qryLCodes = ##class(%ResultSet).%New("Prod.GAMeta.BT.LadeCode"_":"_"ExtentSortExtra") Set qryLCodes.RuntimeMode=2 Set %sc = qryLCodes.Execute(($S(blnHEIN:"CL", 0 && blnLMC:"I", 1:""))) If (+%sc=0) { Do ..ShowError(%sc) QUIT } Write !,$c(9,9,9,9) Write "" Write !,$c(9,9,9,9,9) Write "" Write "",! Write $c(9,9,9,9,9) %csp00002 If '(qryLCodes.Next()) Goto %csp00001 ;{ Write !,$c(9,9,9,9,9) Write "" Write (qryLCodes.Get("ItemID"))_"",! Write $c(9,9,9,9,9) Goto %csp00002 %csp00001 ;} Write !,$c(9,9,9,9) Write "" Write !,$c(9,9,9)_"	" Write "" Write "
" Write "" Write (arVTL("LBL","Std"))_":" Write "" Write "	",! Write $c(9,9,9,9) Write "" Write $c(9,9,9,9),! Write $c(9,9,9)_"	" Write "" Write "
"_(..WebTextValue("Kastbreedte",Taal,"L"))_":	",! Write $c(9,9,9,9) Write " " Write !,$c(9,9,9,9,9)_" " Write "" Write (..WebTextValue("Buitenmaat",Taal,"L"))_"",! Write $c(9,9,9,9,9)_" " Write "" Write (..WebTextValue("Binnenmaat",Taal,"L"))_"",! Write $c(9,9,9,9) Write " " Write !,$c(9,9,9)_"
"_(arVTL("LBL","CB"))_":" Write "" Write "	" Write "" Write " mm	"_(arVTL("LBL","WD"))_":" Write "" Write "	",! Write $c(9,9,9,9) Write "" Write "" Write " mm" Write "" Write !,$c(9,9,9)_"
",! Write $c(9,9,9,9) Write "" Write (arVTL("LBL","OPVL"))_":" Write "" Write !,$c(9,9,9)_"	",! Write $c(9,9,9,9)_"" Write "" Write (..WebTextValue("Links",Taal,"L"))_" " Write "" Write (..WebTextValue("Rechts",Taal,"L"))_"",! Write $c(9,9,9)_"
",! Write $c(9,9,9,9)_(arVTL("LBL","SPZK"))_":" Write "" Write !,$c(9,9,9)_"	",! Write $c(9,9,9)_" " Write "" Write "" Write "  ",! Write $c(9,9,9)_" " Write "" Write (..WebTextValue("WijzigenAfmetingen",Taal,"L")) Write "" Write !,$c(9,9,9)_"    " Write "" Write !,$c(9,9,9)_"
" Write "" Write "
"_(arVTL("LBL","LD"))_":" Write "" Write "	",! Write $c(9,9,9,9) // Open instance of ResultSet for runtime mode of DISPLAY. Set qryLDieptes = ##class(%ResultSet).%New("Prod.GAMeta.BT.TBLadeDiepte"_":"_"Extent") Set qryLDieptes.RuntimeMode=2 Set %sc = qryLDieptes.Execute() If (+%sc=0) { Do ..ShowError(%sc) QUIT } Write !,$c(9,9,9,9) Write "" Write !,$c(9,9,9,9,9) Set qryLDieptesRow=0 %csp00006 If '(qryLDieptes.Next()) Goto %csp00005 ;{ Set qryLDieptesRow=qryLDieptesRow+1 Write !,$c(9,9,9,9,9) Write "" Write (qryLDieptes.Get("ID"))_"",! Write $c(9,9,9,9,9) Goto %csp00006 %csp00005 ;} Write !,$c(9,9,9,9,9) Write "" Write "",! Write $c(9,9,9,9) Write "" Write " mm",! Write $c(9,9,9)_"	"_(arVTL("LBL","DK"))_":" Write "" Write "	",! Write $c(9,9,9,9) // Open instance of ResultSet for runtime mode of DISPLAY. Set qryDKs = ##class(%ResultSet).%New("Prod.GAMeta.BT.TBDraagKracht"_":"_"Extent") Set qryDKs.RuntimeMode=2 Set %sc = qryDKs.Execute() If (+%sc=0) { Do ..ShowError(%sc) QUIT } Write !,$c(9,9,9,9) Write "" Write !,$c(9,9,9,9,9) %csp00008 If '(qryDKs.Next()) Goto %csp00007 ;{ Write !,$c(9,9,9,9,9) Write "" Write (qryDKs.Get("ID"))_"",! Write $c(9,9,9,9,9) Goto %csp00008 %csp00007 ;} Write !,$c(9,9,9,9,9) Write "" Write "",! Write $c(9,9,9,9) Write "" Write " kg " Write "" Write "" Write !,$c(9,9,9)_"
",! Write $c(9,9,9,9)_" " Write "" Write (arVTL("LBL","BM"))_":" Write "" Write "" Write " ",! Write $c(9,9,9,9)_" " Write "" Write (arVTL("LBL","TO"))_":" Write "" Write "" Write " ",! If '(('blnHideSB)) Goto %csp00009 ;{ Write !,$c(9,9,9,9)_" " Write "" Write (arVTL("LBL","SB"))_":" Write "" Write "" Write " ",! %csp00009 ;} Write !,$c(9,9,9)_"	",! Write $c(9,9,9,9)_" " Write "" Write "  ",! Write $c(9,9,9,9)_" " Write "" Write "  ",! Write $c(9,9,9,9)_" " Write "" Write "  ",! Write $c(9,9,9,9) Write "" Write !,$c(9,9,9)_"	",! Write $c(9,9,9,9)_" " Write "" Write (arVTL("LBL","FB"))_":" Write "" Write "" Write " ",! Write $c(9,9,9)_"	",! Kill arItemsCbo Set sc=..FillComboItemsFromQuery(.arItemsCbo, "Prod.GAMeta.BT.TBFBevestiging","ExtentSort") Set iItem=$O(arItemsCbo(""),-1) If +iItem Do . ; Indien lijst niet leeg, dan item "NietMee" toevoegen . Set iItem=iItem+1 . Set arItemsCbo(iItem,"ID")="NM" . Set arItemsCbo(iItem,"Oms")="Niet meeleveren" . Set arItemsCbo(iItem,"ItemCode")="NM" Set iItem="" Write !,$c(9,9,9,9) Write "" Write !,$c(9,9,9,9,9) %csp00011 If '(..LoopArray(.arItemsCbo,.iItem)) Goto %csp00010 ;{ Write !,$c(9,9,9,9,9) Write "" Write (..WebTextValue("FB_"_arItemsCbo(iItem,"ItemCode"),Taal,"L"))_"",! Write $c(9,9,9,9,9) Goto %csp00011 %csp00010 ;} Write !,$c(9,9,9,9,9) Write "" Write "",! Write $c(9,9,9,9) Write "" Write !,$c(9,9,9)_"	",! Write $c(9,9,9,9)_" " Write "" Write (arVTL("LBL","ASM"))_":" Write "" Write "" Write " ",! Write $c(9,9,9)_"	",! Kill arItemsCbo Set sc=..FillComboItemsFromQuery(.arItemsCbo, "Prod.GAMeta.BT.TBMat","ExtentSort") Set iItem="" Write !,$c(9,9,9,9) Write "" Write !,$c(9,9,9,9,9) %csp00013 If '(..LoopArray(.arItemsCbo,.iItem)) Goto %csp00012 ;{ Write !,$c(9,9,9,9,9,9) If '((arItemsCbo(iItem,"ItemCode")'="0")) Goto %csp00014 ;{ Write "" Write (..WebTextValue("ASM_"_arItemsCbo(iItem,"ItemCode"),Taal,"L"))_"" %csp00014 ;} Write !,$c(9,9,9,9,9) Goto %csp00013 %csp00012 ;} Write !,$c(9,9,9,9,9) Write "" Write "-",! Write $c(9,9,9,9) Write "" Write !,$c(9,9,9)_"
",! Write $c(9,9,9,9) If '((DCM'="A")) Goto %csp00015 ;{ Write " ",! Write $c(9,9,9,9)_" " Write "" Write (arVTL("LBL","BX"))_":" Write "" Write !,$c(9,9,9,9) Goto %csp00016 ;} %csp00015 ;{ Write (arVTL("LBL","BX"))_":",! Write $c(9,9,9,9) %csp00016 ;} Write " ",! Write $c(9,9,9,9) Write "" Write " ",! Write $c(9,9,9)_"	",! ; This method has been isolated, because of conflicts between some query-variables (see RTN). Kill arItemsCbo Set sc=..FillComboItemsFromQuery(.arItemsCbo, "Prod.GAMeta.BT.TBBoxSide","ExtentSort") Set iItem="" Write !,$c(9,9,9,9) Write "" Write !,$c(9,9,9,9,9) %csp00018 If '(..LoopArray(.arItemsCbo,.iItem)) Goto %csp00017 ;{ Write !,$c(9,9,9,9,9) Write "" Write (..WebTextValue("BX_"_arItemsCbo(iItem,"ItemCode"),Taal,"L"))_"",! Write $c(9,9,9,9,9) Goto %csp00018 %csp00017 ;} Write !,$c(9,9,9,9,9) Write "" Write "",! Write $c(9,9,9,9) Write "" Write !,$c(9,9,9,9) Write " " Write " " Write !,$c(9,9,9)_"	",! Write $c(9,9,9,9)_" " Write "" Write (arVTL("LBL","FS"))_":" Write "" Write "" Write " ",! Write $c(9,9,9)_"	",! Kill arItemsCbo Set sc=..FillComboItemsFromQuery(.arItemsCbo, "Prod.GAMeta.BT.TBFrontSteun","ExtentSort") Set iItem="" For Set iItem=$O(arItemsCbo(iItem)) Quit:(iItem="") Do . Kill:($G(arItemsCbo(iItem,"ID"))?1(1"HS")) arItemsCbo(iItem) Set iItem="" Write !,$c(9,9,9,9) Write "" Write !,$c(9,9,9,9,9) %csp00020 If '(..LoopArray(.arItemsCbo,.iItem)) Goto %csp00019 ;{ Write !,$c(9,9,9,9,9) If '((arItemsCbo(iItem,"ItemCode")'="A")) Goto %csp00021 ;{ Write "" Write (..WebTextValue("FS_"_arItemsCbo(iItem,"ItemCode"),Taal,"L"))_"" %csp00021 ;} Write !,$c(9,9,9,9,9) Goto %csp00020 %csp00019 ;} Write !,$c(9,9,9,9,9) Write "" Write "-",! Write $c(9,9,9,9) Write "" Write !,$c(9,9,9)_"
",! Write $c(9,9,9,9)_" " Write "" Write (arVTL("LBL","BGRP"))_":" Write "" Write "" Write " ",! Write $c(9,9,9)_"	",! Kill arItemsCbo Set sc=..FillComboItemsFromQuery(.arItemsCbo, "Prod.GAMeta.BT.TBBinnenGreep","ExtentSort", tmpDC) Set iItem="" Write !,$c(9,9,9,9) Write "" Write !,$c(9,9,9,9,9) %csp00023 If '(..LoopArray(.arItemsCbo,.iItem)) Goto %csp00022 ;{ Write !,$c(9,9,9,9,9) Write "" Write (..WebTextValue("BGRP_"_arItemsCbo(iItem,"ItemCode"),Taal,"L"))_"",! Write $c(9,9,9,9,9) Goto %csp00023 %csp00022 ;} Write !,$c(9,9,9,9,9) Write "" Write "",! Write $c(9,9,9,9) Write "" Write !,$c(9,9,9,9) Write " " Write " " Write !,$c(9,9,9)_"	",! Write $c(9,9,9,9) Write "" Write (arVTL("LBL","DWV"))_":" Write "" Write !,$c(9,9,9,9) Write "" Write " ",! Write $c(9,9,9)_"	",! Kill arItemsCbo Set sc=..FillComboItemsFromQuery(.arItemsCbo, "Prod.GAMeta.BT.TBDwarsVerdeling","ExtentSort") Set iItem="" For Set iItem=$O(arItemsCbo(iItem)) Quit:(iItem="") Do . Kill:($G(arItemsCbo(iItem,"ID"))?1(1"PR",1"4__")) arItemsCbo(iItem) Set iItem="" Write !,$c(9,9,9,9) Write "" Write !,$c(9,9,9,9,9) %csp00025 If '(..LoopArray(.arItemsCbo,.iItem)) Goto %csp00024 ;{ Write !,$c(9,9,9,9,9) If '((arItemsCbo(iItem,"ItemCode")'="0")) Goto %csp00026 ;{ Write "" Write (..WebTextValue("DWV_"_arItemsCbo(iItem,"ItemCode"),Taal,"L"))_"" %csp00026 ;} Write !,$c(9,9,9,9,9) Goto %csp00025 %csp00024 ;} Write !,$c(9,9,9,9,9) Write "" Write "-",! Write $c(9,9,9,9) Write "" Write !,$c(9,9,9)_"
" Write "" Write "
" Write "" Write (arVTL("LBL","OLP"))_":" Write "" Write "	",! 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)_"",! Write $c(9,9,9,9)_" ",! Write $c(9,9,9,9,9,9,9)_" " Write "" Write !,$c(9,9,9,9,9,9,9,9) Write "" Write "" Write " ",! Write $c(9,9,9,9,9,9)_" ",! Write $c(9,9,9,9,9,9,9)_" " Write "" Write !,$c(9,9,9,9,9,9,9,9) Write "" Write "" Write " ",! Write $c(9,9,9,9,9,9)_" ",! Write $c(9,9,9,9,9,9,9)_" " Write "" Write !,$c(9,9,9,9,9,9,9,9) Write "" Write "" Write " ",! Write $c(9,9,9,9,9,9)_" ",! Write $c(9,9,9,9,9,9,9)_" " Write "" Write !,$c(9,9,9,9,9,9,9,9) Write "" Write "" Write " ",! Write $c(9,9,9,9,9,9)_" ",! Write $c(9,9,9,9,9,9,9)_" " Write "" Write !,$c(9,9,9,9,9,9,9,9) Write "" Write "" Write " ",! Write $c(9,9,9,9,9,9)_" ",! Write $c(9,9,9,9,9,9,9) Write "" Write "" Write "" Write !,$c(9,9,9,9,9,9)_" ",! Write $c(9,9,9)_"
"_(arVTL("LBL","Aant"))_":" Write "" Write "	" Write "" Write " "_(..WebTextValue("stuk?s",Taal,"L"))_"	" Write "" Write (..WebTextValue("Toevoegen",Taal,"L")) Write "" Write "	" Write "" Write "" Write "" Write "

",! Write $c(9) Write "

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

",! Write $c(9,9,9,9,9) Write " " Write ""_(..WebTextValue("MOptionsLabel",Taal,"L"))_":" Write " " Write !,$c(9,9,9,9,9) Write " " Write ""_(..WebTextValue("MOptionsLabel2",Taal,"L"))_"" Write " " Write !,$c(9,9,9,9)_"

",! Write $c(9,9,9,9,9) Write " " Write !,$c(9,9,9,9,9,9) Write "" Write !,$c(9,9,9,9,9,9)_"[SAMPLE TEXT]",! Write $c(9,9,9,9,9) Write " " Write !,$c(9,9,9,9,9) Write " " Write "" Write ""_(..WebTextValue("MOptionsEditBtn",Taal,"L"))_"" Write "" Write " " Write !,$c(9,9,9,9)_"

",! Write $c(9) Write "

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

" Write "" Write (MOptionsEditTitle)_" :" Write "" Write "

" Write " " Write (..WebTextValue("MOptionsEditInfo",Taal,"O")) Write " " Write "

",! Write $c(9,9,9,9,9) Write " " Write !,$c(9,9,9,9,9,9)_"",! Write $c(9,9,9,9,9,9,9)_"",! Write $c(9,9,9,9,9,9,9,9)_"",! Write $c(9,9,9,9,9,9) If '(blnAllowBulk && blnDflVerpakShow) Goto %csp00028 ;{ Write !,$c(9,9,9,9,9,9,9,9)_"",! Write $c(9,9,9,9,9,9) Goto %csp00029 ;} %csp00028 ;{ Write !,$c(9,9,9,9,9,9,9,9)_"",! Write $c(9,9,9,9,9,9) %csp00029 ;} Write !,$c(9,9,9,9,9,9,9,9)_"",! Write $c(9,9,9,9,9,9,9)_"",! Write $c(9,9,9,9,9,9,9)_"",! Write $c(9,9,9,9,9,9,9,9)_"",! Write $c(9,9,9,9,9,9,9) If '(blnAllowBulk && blnDflVerpakShow) Goto %csp00030 ;{ Write !,$c(9,9,9,9,9,9,9,9)_"",! Write $c(9,9,9,9,9,9,9) Goto %csp00036 ;} %csp00030 ;{ Write !,$c(9,9,9,9,9,9,9,9)_"",! Write $c(9,9,9,9,9,9,9) %csp00036 ;} Write !,$c(9,9,9,9,9,9,9,9)_"",! Write $c(9,9,9,9,9,9,9)_"",! Write $c(9,9,9,9,9,9,9)_"",! Write $c(9,9,9,9,9,9,9,9)_"",! Write $c(9,9,9,9,9,9,9,9)_"",! Write $c(9,9,9,9,9,9,9)_"",! Write $c(9,9,9,9,9,9)_" " Write " " Write ""_(..WebTextValue("NietMeeleveren",Taal,"L"))_"" Write " " Write " " Write " " Write ""_(..WebTextValue("Verpakking",Taal,"L"))_"" Write " " Write " " Write " " Write " " Write " " Write "   ",! Write $c(9,9,9,9,9,9,9,9,9) Write " " Write "" Write "" Write (arVTL("DFL","NMCP") )_"" Write " " Write !,$c(9,9,9,9,9,9,9,9,9) Write " " Write "" Write "" Write (arVTL("DFL","NMAK") )_"" Write " " Write !,$c(9,9,9,9,9,9,9,9,9) Write " " Write "" Write "" Write (arVTL("DFL","NMRL") )_"" Write " " Write !,$c(9,9,9,9,9,9,9,9,9) Write " " Write "" Write "" Write (arVTL("DFL","NMBS") )_"" Write " " Write !,$c(9,9,9,9,9,9,9,9,9)_" ",! Write $c(9,9,9,9,9,9,9,9)_" ",! Write $c(9,9,9,9,9,9,9,9,9) Write " " Write ""_(arVTL("DFL","VPK_S") )_"" Write " " Write !,$c(9,9,9,9,9,9,9,9,9)_" " If '(($LF(lbAllowVPK,"O"))) Goto %csp00031 ;{ Write " " Write ""_(vtlBulk_": "_arVTL("DFL","VPK_O") )_"" Write " " Write !,$c(9,9,9,9,9,9,9,9,9) %csp00031 ;} If '(($LF(lbAllowVPK,"C"))) Goto %csp00032 ;{ Write " " Write ""_(vtlBulk_": "_arVTL("DFL","VPK_C") )_"" Write " " Write !,$c(9,9,9,9,9,9,9,9,9) %csp00032 ;} If '(($LF(lbAllowVPK,"P"))) Goto %csp00033 ;{ Write " " Write ""_(arVTL("DFL","VPK_P") )_"" Write " " Write !,$c(9,9,9,9,9,9,9,9,9) %csp00033 ;} If '(($LF(lbAllowVPK,"A"))) Goto %csp00034 ;{ Write " " Write ""_(arVTL("DFL","VPK_A") )_"" Write " " Write !,$c(9,9,9,9,9,9,9,9,9) %csp00034 ;} If '(($LF(lbAllowVPK,"B"))) Goto %csp00035 ;{ Write " " Write ""_(arVTL("DFL","VPK_B") )_"" Write " " Write !,$c(9,9,9,9,9,9,9,9,9) %csp00035 ;} Write !,$c(9,9,9,9,9,9,9,9)_"     ",! Write $c(9,9,9,9,9,9,9,9,9) Write " " Write !,$c(9,9,9,9,9,9,9,9,9,9) Write "" Write (" OK ") Write "" Write "   ",! Write $c(9,9,9,9,9,9,9,9,9,9) Write "" Write (..WebTextValue("BtnCancel",Taal,"L")) Write "" Write !,$c(9,9,9,9,9,9,9,9,9) Write " " Write !,$c(9,9,9,9,9,9,9,9)_"   ",! Write $c(9,9,9,9,9) Write " " Write !,$c(9,9,9,9)_"

",! Write $c(9) Write "

" 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,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)_""_$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,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)_"",! Write "" Write !,$c(9,9)_"",! Write $c(9,9)_"",! Set VanXlijnen=..WebTextValue("ScrollVanXlijnen",Taal,"L") Set VanXlijnen=$$$Replace(VanXlijnen,"X",".") 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)_"

"_(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 "
	",! Write $c(9,9,9,9) Write "" Write "[<<]" Write "" Write "  " Write "" Write "[<]" Write "" Write !,$c(9,9,9,9)_" " Write "" Write "1 - 4" Write "" Write " ",! Write $c(9,9,9,9) Write "" Write "[>]" Write "" Write "  " Write "" Write "[>>]" Write "" Write !,$c(9,9,9,9) Write "" Write "  "_(VanXlijnen) Write "" Write !,$c(9,9,9)_"

",! Write $c(9) Write "