Index: csp/vhisie/TBX/Main/tmpDev.mac.rou
===================================================================
diff -u -r218 -r219
--- csp/vhisie/TBX/Main/tmpDev.mac.rou	(.../tmpDev.mac.rou)	(revision 218)
+++ csp/vhisie/TBX/Main/tmpDev.mac.rou	(.../tmpDev.mac.rou)	(revision 219)
@@ -455,11 +455,6 @@
 	. Set blnQuit=$$ophMMCompleteRecalcOfferte()
  	; Else  Prepare buttons
  	
-  /*	
- 	If $IsObject(WSOrd) {
-		Set OnvoldoendeBestelhoeveelheid=$$$Not(TBXOrdersDto.HeeftVoldoendeBestelhoeveelheid())
- 	}
-  */
 	Do MShowNotRegUser
 	Do:(IsDesignBeschikbaar) MShowVervaldagOFFText(TBXOrdersDto,Taal)
  
@@ -736,17 +731,17 @@
  
 	New IsSubmitBtnDisabled,OnvoldoendeBestelhoeveelheid
 	Set OnvoldoendeBestelhoeveelheid=$$$Not(TBXOrdersDto.HeeftVoldoendeBestelhoeveelheid())
+	If OnvoldoendeBestelhoeveelheid {
+		Set arShow("Submit","JS_MSGBOX_TITEL")=TBXOrdersDto.BestellingNietGeplaatstJsTitel(Taal)
+		Set arShow("Submit","JS_MSGBOX_TEKST")=TBXOrdersDto.BestellingNietGeplaatstJsTekst(Taal)
+	}	
 	Set IsSubmitBtnDisabled=(IsErrorOfVervallen)||(OnvoldoendeBestelhoeveelheid)
-	
 	If IsSubmitBtnDisabled Do  Quit
 	. Set arShow("Submit","BTN")=Visible
 	. Set arShow("SubmitAgain","BTN")=0
 	. Set arShow("Submit","HREF")=""
 	. Set arShow("Submit","TEXT")=##class(cspBasis.GAProdTBox).WebTextValue("VerzendenBBON",Taal,"L")
 	. Set arShow("Submit","INFO")=""
-	. If $$$Not(IsErrorOfVervallen) Do
-	. . Set arShow("Submit","JS_MSGBOX_TITEL")=TBXOrdersDto.BestellingNietGeplaatstJsTitel(Taal)
-	. . Set arShow("Submit","JS_MSGBOX_TEKST")=TBXOrdersDto.BestellingNietGeplaatstJsTekst(Taal)
 	; Else 
 	New tmpAr,InternText,InternInfo,blnIsSubmitted
 	Merge tmpAr=tmpRq