Index: csp/vhisie/TBX/Main/tmpDev.mac.rou
===================================================================
diff -u -r496 -r516
--- csp/vhisie/TBX/Main/tmpDev.mac.rou	(.../tmpDev.mac.rou)	(revision 496)
+++ csp/vhisie/TBX/Main/tmpDev.mac.rou	(.../tmpDev.mac.rou)	(revision 516)
@@ -457,6 +457,11 @@
 	; Info BrutoPrijsHein / NotRegUserInfo
 	Set arShow("BrutoPrijsHein","INFO")=(TBXContext.IsDomeinHEIN())
  
+	Set arShow("ToonPrijsNietMeeCPVoorStdHein","INFO")=0
+	If $IsObject(WSOrd) {
+		Set arShow("ToonPrijsNietMeeCPVoorStdHein","INFO")=(TBXContext.IsDomeinHEIN())&&(WSOrd.GeefNietMeeleveren("CorpusProfiel"))&&(WSOrd.HeeftStandaardLaden())
+	}
+	 
 	Set blnDynaplug=0 /*($IsObject(WSOrd))&&(WSOrd.WebURL="DYNAPLUG IMPORT") */
 	If blnDynaplug Do
 	. Set blnDynaplugERR=(''$G(blnWSErrors,0))
Index: WS/TBX/OrderAbstract.cls.xml
===================================================================
diff -u -r473 -r516
--- WS/TBX/OrderAbstract.cls.xml	(.../OrderAbstract.cls.xml)	(revision 473)
+++ WS/TBX/OrderAbstract.cls.xml	(.../OrderAbstract.cls.xml)	(revision 516)
@@ -453,6 +453,11 @@
 <ReturnType>%String</ReturnType>
 </Method>
 
+<Method name="HeeftStandaardLaden">
+<Abstract>1</Abstract>
+<ReturnType>%Boolean</ReturnType>
+</Method>
+
 <Storage name="Default">
 <Type>%Library.CacheStorage</Type>
 <DataLocation>^WS.TBX.OrderAbstractD</DataLocation>
Index: WS/TBX/EM/OrderLijn.cls.xml
===================================================================
diff -u -r508 -r516
--- WS/TBX/EM/OrderLijn.cls.xml	(.../OrderLijn.cls.xml)	(revision 508)
+++ WS/TBX/EM/OrderLijn.cls.xml	(.../OrderLijn.cls.xml)	(revision 516)
@@ -2,7 +2,7 @@
 <Export generator="Cache" version="9">
 <Class name="WS.TBX.EM.OrderLijn">
 <ClassType>serial</ClassType>
-<IncludeCode>vhLib.Macro</IncludeCode>
+<IncludeCode>vhLib.Macro,PRGACNTs</IncludeCode>
 <ProcedureBlock>1</ProcedureBlock>
 <Super>%SerialObject,%XML.Adaptor</Super>
 <ClassDefinitionError>0</ClassDefinitionError>
@@ -314,6 +314,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="IsStandaardLade">
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit (..ItemSTDL=$$$tbxCodeStdLade)
+]]></Implementation>
+</Method>
+
 <Method name="VoegToeActieGegevens">
 <Description>
 Voegt de Actie toe aan de lijst. 
Index: WS/TBX/GroepOrder.cls.xml
===================================================================
diff -u -r492 -r516
--- WS/TBX/GroepOrder.cls.xml	(.../GroepOrder.cls.xml)	(revision 492)
+++ WS/TBX/GroepOrder.cls.xml	(.../GroepOrder.cls.xml)	(revision 516)
@@ -250,6 +250,21 @@
 ]]></Implementation>
 </Method>
 
+<Method name="HeeftStandaardLaden">
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	Set HeeftStandaardLaden = 0
+	Set OrderIterator = ##class(TECH.ListIterator).%New(..Orders)
+	While OrderIterator.HasNext() {
+		Set Order = OrderIterator.Next()
+		If Order.HeeftStandaardLaden() {
+			Set HeeftStandaardLaden = 1
+		}
+	}
+	Quit HeeftStandaardLaden
+]]></Implementation>
+</Method>
+
 <Storage name="Default">
 <Type>%Library.CacheStorage</Type>
 <DefaultData>GroepOrderDefaultData</DefaultData>
Index: WS/TBX/Order.cls.xml
===================================================================
diff -u -r490 -r516
--- WS/TBX/Order.cls.xml	(.../Order.cls.xml)	(revision 490)
+++ WS/TBX/Order.cls.xml	(.../Order.cls.xml)	(revision 516)
@@ -868,6 +868,20 @@
 ]]></Implementation>
 </Method>
 
+<Method name="HeeftStandaardLaden">
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	Set HeeftStandaardLaden = 0
+	Set LijnIterator = ##class(TECH.ListIterator).%New(..Lijnen)
+	While LijnIterator.HasNext() {
+		If LijnIterator.Next().IsStandaardLade() {
+			Set HeeftStandaardLaden = 1
+		}
+	}
+	Quit HeeftStandaardLaden
+]]></Implementation>
+</Method>
+
 <Storage name="Default">
 <Type>%Library.CacheStorage</Type>
 <DefaultData>OrderDefaultData</DefaultData>