Index: csp/vhisie/TBX/Main/tmpDev.mac.rou
===================================================================
diff -u -r334 -r353
--- csp/vhisie/TBX/Main/tmpDev.mac.rou	(.../tmpDev.mac.rou)	(revision 334)
+++ csp/vhisie/TBX/Main/tmpDev.mac.rou	(.../tmpDev.mac.rou)	(revision 353)
@@ -694,12 +694,13 @@
 	Merge tmpAr=tmpRq
 	Kill tmpAr("REF")
 	Set tmpAr("Taal")=Taal
+	Set tmpAr("IsGroepBestelling")=1
 	Set arShow("SubmitGroep","BTN")=Visible
 	Set arShow("SubmitGroep","HREF")="MailSend.csp?"_##class(cspBasis.GAProdTBox).CQueryString(.tmpAr)
 	Set arShow("SubmitGroep","TEXT")=##class(cspBasis.GAProdTBox).WebTextValue("GroepVerzenden",Taal,"L")
 	Set %session.Data("VERW")=VERW
 	Set %session.Data("KLNR")=KLNr
-	Set %session.Data("IsGroepBestelling")=1
+	;Set %session.Data("IsGroepBestelling")=1
 	quit 	
 MShowNewOrder(Visible)
 	Quit:((TBXContext.AlleenToegangMetLogin())&&('TBXContext.IsKlantIDIngevuld(KLNr)))
@@ -775,13 +776,14 @@
 	Merge tmpAr=tmpRq
 	Set tmpAr("Taal")=Taal
 	Set tmpAr("KLNR")=KLNr
+	Set tmpAr("IsGroepBestelling")=0
 	Set:(WSOrd.BonType="OFF")&&('TBXContext.VerzendOfferteAlsAanvraag()) tmpAr("OFFTOBBON")=1   ; OFFTOBBON  in de betekenis van "Goed voor order" 
 	Set %session.Data("Taal")=Taal
 	Set %session.Data("WSID")=wsID
 	Set %session.Data("KLNR")=KLNr
 	Set %session.Data("VERW")=VERW
 	Set %session.Data("VERW")=VERW
-	Set %session.Data("IsGroepBestelling")=0
+	;Set %session.Data("IsGroepBestelling")=0
 	Kill tmpAr("REF")
  
 	Set OnvoldoendeBestelhoeveelheid=$$$Not(TBXOrdersDto.HeeftVoldoendeBestelhoeveelheid())