Index: APPS/TBXWeb/dto/TBXOrderLijst.cls.xml
===================================================================
diff -u -r218 -r219
--- APPS/TBXWeb/dto/TBXOrderLijst.cls.xml	(.../TBXOrderLijst.cls.xml)	(revision 218)
+++ APPS/TBXWeb/dto/TBXOrderLijst.cls.xml	(.../TBXOrderLijst.cls.xml)	(revision 219)
@@ -72,15 +72,16 @@
 		Else {
 			Set OfferteGeldigheidTekst=$$$Replace(##class(cspBasis.GAProdTBox).WebTextValue("OfferteGeldigheidTekst",Taal,"O"),"::VervalDatum",Vervaldatum)   ; "Deze offerte is 30 dagen geldig, tot" 
 		}
+
+		If (..MinimaleBestelhoeveelheid>1) {
+			Set VerpakkingOmschrijving=##class(cspBasis.GAProdTBox).WebTextValue("VPK_"_..VerpakkingType,Taal,"L")
+			Set OfferteVoorwaardenTekst=##class(cspBasis.GAProdTBox).WebTextValue("OfferteVoorwaardenTekst",Taal,"O")   ; de placeholders nog te vervangen : volgende lijn! 
+			Set Melding=$$$Replace($$$Replace($$$Replace(OfferteVoorwaardenTekst,"::MinimaleBest",..MinimaleBestelhoeveelheid),"::Verpakking",VerpakkingOmschrijving),"::OfferteGeldigTekst",OfferteGeldigheidTekst)
+		}
+		Else {
+			Set Melding=OfferteGeldigheidTekst_"."
+		}
 	}
-	If (..MinimaleBestelhoeveelheid>1) {
-		Set VerpakkingOmschrijving=##class(cspBasis.GAProdTBox).WebTextValue("VPK_"_..VerpakkingType,Taal,"L")
-		Set OfferteVoorwaardenTekst=##class(cspBasis.GAProdTBox).WebTextValue("OfferteVoorwaardenTekst",Taal,"O")   ; de placeholders nog te vervangen : volgende lijn! 
-		Set Melding=$$$Replace($$$Replace($$$Replace(OfferteVoorwaardenTekst,"::MinimaleBest",..MinimaleBestelhoeveelheid),"::Verpakking",VerpakkingOmschrijving),"::OfferteGeldigTekst",OfferteGeldigheidTekst)
-	}
-	Else {
-		Set Melding=OfferteGeldigheidTekst_"."
-	}
 	
 	Quit Melding
 ]]></Implementation>
@@ -96,18 +97,18 @@
 <Method name="BestellingNietGeplaatstJsTekst">
 <FormalSpec>Taal:%String</FormalSpec>
 <ReturnType>%String</ReturnType>
-<Implementation><![CDATA[
-	Set Melding=""
-	If (..MinimaleBestelhoeveelheid>1) {
-		Set VerpakkingOmschrijving=..GeefJavascriptVertaling("VPK_"_..VerpakkingType,Taal,"L")
-		Set Melding=$$$Replace($$$Replace(..GeefJavascriptVertaling("jsBestellingNietGeplaatstParagraafTekst",Taal,"O"),"::MinimaleBest",..MinimaleBestelhoeveelheid),"::Verpakking",VerpakkingOmschrijving)
-	}
-	Quit Melding
+<Implementation><![CDATA[	Quit ..GeefMeldingMinBestHoev(Taal)
 ]]></Implementation>
 </Method>
 
 <Method name="GeefMeldingMinBestHoev">
+<FormalSpec>Taal:%String</FormalSpec>
+<Private>1</Private>
 <ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	Set VerpakkingOmschrijving=..GeefJavascriptVertaling("VPK_"_..VerpakkingType,Taal,"L")
+	Quit $$$Replace($$$Replace(..GeefJavascriptVertaling("jsBestellingNietGeplaatstParagraafTekst",Taal,"O"),"::MinimaleBest",..MinimaleBestelhoeveelheid),"::Verpakking",VerpakkingOmschrijving)
+]]></Implementation>
 </Method>
 
 <Method name="HeeftVoldoendeBestelhoeveelheid">
Index: csp/vhisie/TBX/Wizard/tmpDev.mac.rou
===================================================================
diff -u -r218 -r219
--- csp/vhisie/TBX/Wizard/tmpDev.mac.rou	(.../tmpDev.mac.rou)	(revision 218)
+++ csp/vhisie/TBX/Wizard/tmpDev.mac.rou	(.../tmpDev.mac.rou)	(revision 219)
@@ -106,7 +106,7 @@
 	// Bulk Settings 
 	Set lbBulkConfig=TBXContext.GeefBulkConfigOpties(KLNr)
 	Set lbAllowVPK=$S($LG(lbBulkConfig,1)'?1(1"",1"S"):$LB("S")_$$PiecesToList^vhLib($LG(lbBulkConfig,1),";"), 1:"")   ; _$LB("O","C","A","B","P","X","Y","Z")   ; Indien alleen Stukverpakking, dan leeg,  anders $LB("S")_$LB(...) 
-	Set MinimaleBestelhoeveelheid=TBXContext.GeefMinimaleBestelhoeveelheid("X")
+	Set MinimaleBestelhoeveelheidProBox=TBXContext.GeefMinimaleBestelhoeveelheid("X")   ; Later uit te breiden, wanneer verschillende verpakking een verschillend minimum hebben. 
  
 	// BL voor Defaults 
 	Set blTBoxDfl=##class(cspBasis.GAProdDfls).Instantiate()
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