Index: vhTest/Fake/APPS/Halux/PPS/Verpakking/RequestsLoggendeOptimizeService.cls.xml
===================================================================
diff -u -r30743 -r31336
--- vhTest/Fake/APPS/Halux/PPS/Verpakking/RequestsLoggendeOptimizeService.cls.xml	(.../RequestsLoggendeOptimizeService.cls.xml)	(revision 30743)
+++ vhTest/Fake/APPS/Halux/PPS/Verpakking/RequestsLoggendeOptimizeService.cls.xml	(.../RequestsLoggendeOptimizeService.cls.xml)	(revision 31336)
@@ -147,10 +147,12 @@
 <FormalSpec>OptimizeRequest:WS.Prod.PanOpti.q1.OPTIREQ</FormalSpec>
 <ReturnType>WS.Prod.PanOpti.q1.STATUSRES</ReturnType>
 <Implementation><![CDATA[
+	#define PanOptiStatusOK   0
+	
 	do ..RegisterRequest($$$CurrentMethod,OptimizeRequest)
 	Set StatusResult = ##class(WS.Prod.PanOpti.q1.STATUSRES).%New()
 	Set StatusResult.ID = "FakeResultID"
-	Set StatusResult.STATUS = 0
+	Set StatusResult.STATUS = $$$PanOptiStatusOK
 	quit StatusResult
 ]]></Implementation>
 </Method>
Index: WS/Prod/PanOpti/q1/STATUSRES.cls.xml
===================================================================
diff -u -r29059 -r31336
--- WS/Prod/PanOpti/q1/STATUSRES.cls.xml	(.../STATUSRES.cls.xml)	(revision 29059)
+++ WS/Prod/PanOpti/q1/STATUSRES.cls.xml	(.../STATUSRES.cls.xml)	(revision 31336)
@@ -43,6 +43,8 @@
 </Property>
 
 <Property name="STATUS">
+<Description>
+Status bevat de ErrorNumber (0 = OK) </Description>
 <Type>%String</Type>
 <Parameter name="MAXLEN" value="250"/>
 <Parameter name="TRUNCATE" value="1"/>