Index: csp/vhisie/TBX/Main/tmpDev.mac.rou
===================================================================
diff -u -r994 -r1134
--- csp/vhisie/TBX/Main/tmpDev.mac.rou	(.../tmpDev.mac.rou)	(revision 994)
+++ csp/vhisie/TBX/Main/tmpDev.mac.rou	(.../tmpDev.mac.rou)	(revision 1134)
@@ -109,6 +109,14 @@
  
 	Set WSOrd=$S($L($G(wsID)):##class(WS.TBX.Order).%OpenId(wsID), 1:0)
 	Do ophSetHeaderLogo(WSOrd)
+	If ($IsObject(WSOrd))&&($$$Not(WSOrd.IsBonTypeGeldig())) {
+		Set msg="WARNING : wrong BonType for TBX.Order  ID="_wsID
+		Set msg=msg_$$$CRLF
+		Set msg=msg_$$$CRLF_" Het BonType van dit order moet manueel op OFF of BBON gezet worden. Mogelijk ook andere velden foutief (t.g.v. probleem met javascript)."
+		Set msg=msg_$$$CRLF_" De gebruiker kan de MainPage wel bekijken, maar kan zijn order niet doorsturen. Andere acties zullen waarschijnlijk ook falen."
+		Set msg=msg_$$$CRLF
+		Do ophSendAlertMail(msg)
+	}
  
 	Set:($G(VERW)="") VERW=sDomVERW
 	Kill arShow
@@ -248,7 +256,7 @@
 	Set msg="De main.csp pagina heeft een ongeldige code gedetecteerd."_$$$CRLF
 	Set msg=msg_"De gegevens worden niet getoond."_$$$CRLF
 	Set msg=msg_""_$$$CRLF
-	Set msg=msg_$$$ArrayTT2("Var",.arValues)_$$$CRLF	
+	Set msg=msg_$$$ArrayTT("Var",.arValues)_$$$CRLF	
 	Do ophSendAlertMail(msg)
 	Quit 0
 ophCheckWSOrdKLNr(WSOrd,MatchKLNr,arValues)
@@ -430,6 +438,7 @@
 ophMMComplete
 	New WSOrd,blnDynaplugERR
 	Set WSOrd=$S($L(wsID):##class(WS.TBX.Order).%OpenId(wsID), 1:0)
+ 
 	; Show Order Details
 	Set arShow("DisplayOrder","DTL")=$IsObject(WSOrd)
 	Do MShowKnownCustomer(1)
@@ -723,6 +732,7 @@
 #EndIf
 	Quit:('$IsObject(WSOrd))
 	Quit:('$G(blnValidKlant,1))
+	Quit:($$$Not(WSOrd.IsBonTypeGeldig()))
 	If $G(blnOFFVervallen,0) Do  Quit
 	. Set arShow("Submit","BTN")=Visible
 	. Set arShow("SubmitAgain","BTN")=0
@@ -818,6 +828,7 @@
 	// Is alleen bestemd voor de Inkoop-afdeling van extern domein (destil / hafele / sfs / ...)
 	Quit:('Visible)
 	Quit:('$IsObject(WSOrd))
+	Quit:($$$Not(WSOrd.IsBonTypeGeldig()))
 	Quit:(WSOrd.BonType'?1(1"OFF",1"BBON",1"INKP"))
 	Quit:(WSOrd.IsTransferredToAdmin())   ; Eenmaal door VH in Admin ge�mporteerd, SubmitToVHEPN() niet meer mogelijk via website.
 	New tmpAr,lbLog,tmpLbl