Index: BL/PR/GA/TandemBox.cls.xml
===================================================================
diff -u -r4590 -r4990
--- BL/PR/GA/TandemBox.cls.xml	(.../TandemBox.cls.xml)	(revision 4590)
+++ BL/PR/GA/TandemBox.cls.xml	(.../TandemBox.cls.xml)	(revision 4990)
@@ -378,6 +378,20 @@
 ]]></Implementation>
 </Method>
 
+<Method name="IsGeldigeLadecodeVoorDesign">
+<Description>
+Oproepen via  
+  s bln=##class(BL.PR.GA.TandemBox).IsGeldigeLadecodeVoorDesign("DM/Z","WA") </Description>
+<ClassMethod>1</ClassMethod>
+<FormalSpec>LadeCodeID:%String,DesignID:%String</FormalSpec>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	Set LadeCode=##class(Prod.GAMeta.BT.LadeCode).%OpenId(LadeCodeID)
+	Quit LadeCode.IsGeldigVoorDesign(DesignID)
+]]></Implementation>
+</Method>
+
 <Method name="BuildBeperkTPCode">
 <Description>
 Bouwt een array op van de TBDesign-elementen met de BeperkTemplateCode.