Index: _vhisie/TBX/WizPData.csp
===================================================================
diff -u -r1133 -r1571
--- _vhisie/TBX/WizPData.csp	(.../WizPData.csp)	(revision 1133)
+++ _vhisie/TBX/WizPData.csp	(.../WizPData.csp)	(revision 1571)
@@ -46,15 +46,15 @@
 	. . Set arPDT("TEL")=" "
 	. ;Set arPDT("PKLASSE")=KLMini.PrijsKlasse   ; In HTML/JavaScript genaamd: AfdrukCode
 	. Set KLMini=""
-	Else  If (blnLMC||blnSFS||blnMBHO)&&(wsID>0) Do
+	Else  If (blnLMC||blnSFS||blnMBHO||blnHFLB)&&(wsID>0) Do
 	. ; OPTIMA / SFS / MBHO  Bestaand order
 	. New WSOrd
 	. Set WSOrd=##class(WS.TBX.Order).%OpenId(wsID)
 	. Quit:('WSOrd)
 	. Set arPDT("NAAM")=WSOrd.KLNaam
 	. Set arPDT("NR")=WSOrd.KLNummer
 	. Set WSOrd=""
-	Else  If (blnLMC||blnSFS||blnMBHO) Do
+	Else  If (blnLMC||blnSFS||blnMBHO||blnHFLB) Do
 	. ; OPTIMA / SFS / MBHO  Nieuw order, klantgegevens ophalen
 	. Set KLMini=..GetKlantData(sDomVERW,KLNr)
 	. Quit:('KLMini)
@@ -80,7 +80,7 @@
 	If blnVHEPN Do
 	. Set blnKLNaamFixed=($G(KLNr)>0)&&(KLNr'?1(1"1000",1"4645",1"4682"))
 	. ;Set %session.Data("KLPrijsKlasse")=$G(arPDT("PKLASSE"))
-	If blnLMC||blnSFS||blnMBHO Do
+	If blnLMC||blnSFS||blnMBHO||blnHFLB Do
 	. Set arPDT("NAAM+NR")=$G(arPDT("NR"))_" "_$G(arPDT("NAAM"))
 	Set LevertijdInfoVTL=$$$GetVertalingJS("LevertijdInfo",Taal,"O")
 
@@ -180,7 +180,7 @@
 			<TD><input type="text" class="clsFieldsData" id="txtKL_BTWNr" style="text-align:left; width:100%;"#($$$ReadOnlyAttrib(IsKLDataReadOnly)_$$$LabelAttrib("BTWNummer"))#></TD>
 			<TD>&nbsp;</TD>
 		</TR>
-		<CSP:ELSEIF condition="blnSFS||blnMBHO">
+		<CSP:ELSEIF condition="blnSFS||blnMBHO||blnHFLB">
 		<input type="hidden" id="txtKL_Korting" #($$$ReadOnlyAttrib(IsKLDataReadOnly)_$$$InitVal("KORTING"))#>
 		<CSP:ELSE>
 		<input type="hidden" id="txtKL_BTWNr" #($$$ReadOnlyAttrib(IsKLDataReadOnly)_$$$InitVal("KLBTWNr"))#>