Index: APPS/Halux/Planning/impl/DisplayInfoGeproduceerd.cls.xml
===================================================================
diff -u -r56571 -r66225
--- APPS/Halux/Planning/impl/DisplayInfoGeproduceerd.cls.xml	(.../DisplayInfoGeproduceerd.cls.xml)	(revision 56571)
+++ APPS/Halux/Planning/impl/DisplayInfoGeproduceerd.cls.xml	(.../DisplayInfoGeproduceerd.cls.xml)	(revision 66225)
@@ -205,9 +205,28 @@
 ]]></Implementation>
 </Method>
 
+<UDLText name="T">
+<Content><![CDATA[/* Op te vragen via ODBC als volgt: select APPS_Halux_Planning_impl.DisplayInfoGeproduceerd_GeefAantalGeproduceerdProc()*/
+]]></Content>
+</UDLText>
+
+<Method name="GeefAantalGeproduceerdProc">
+<ClassMethod>1</ClassMethod>
+<ReturnType>%List</ReturnType>
+<SqlProc>1</SqlProc>
+<Implementation><![CDATA[
+	Set TbxAantal = 0
+	Set LbxAantal = 0
+	Set TaorAantal = 0
+	Do ..GeefAantalGeproduceerd(.TbxAantal, .LbxAantal, .TaorAantal)
+	Quit $LB(TbxAantal, LbxAantal, TaorAantal)
+]]></Implementation>
+</Method>
+
 <Method name="GeefAantalGeproduceerd">
 <Description>
 d ##class(APPS.Halux.Planning.impl.DisplayInfoGeproduceerd).%New(1).GeefAantalGeproduceerd(.TB,.LB,.TA)</Description>
+<ClassMethod>1</ClassMethod>
 <FormalSpec>*TBXAantal:%Integer,*LBXAantal:%Integer,*TAORAantal:%Integer</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[