Index: Prod/Product.cls.xml
===================================================================
diff -u -r34705 -r38180
--- Prod/Product.cls.xml	(.../Product.cls.xml)	(revision 34705)
+++ Prod/Product.cls.xml	(.../Product.cls.xml)	(revision 38180)
@@ -827,10 +827,11 @@
 <Description>
 w ##class(Prod.Product).DocLink(3551)</Description>
 <ClassMethod>1</ClassMethod>
-<FormalSpec>PRNr,Taal</FormalSpec>
+<FormalSpec>PRNr:%Integer,Taal:%String</FormalSpec>
+<ProcedureBlock>1</ProcedureBlock>
 <Implementation><![CDATA[
 	Quit:'##class(Res.ImageLink).HasImage("PR",PRNr)&&'(##class(DOM.DomeinContext).Instance().GeefProductTypeAPI().IsOrgaluxProduct(PRNr)&&$L(##class(cspBasis.ProductList).DataDefValueURL("N","OL",PRNr,"Sleutel","LB"))) ""
-	set Qstring = $system.Encryption.Base64Encode($system.Encryption.AESEncode("PRNR="_PRNr_"&Taal="_$S($G(Taal)="":"N",1:Taal),"1q2gg34l5U6p789Q"))
+	#dim Qstring As %String = $system.Encryption.Base64Encode($system.Encryption.AESEncode("PRNR="_PRNr_"&Taal="_$S($G(Taal)="":"N",1:Taal),"1q2gg34l5U6p789Q"))
 	Quit "http://res.vanhoecke.be/BlumCatalog/Product.aspx?"_Qstring
 ]]></Implementation>
 </Method>
@@ -999,9 +1000,11 @@
 <Description>
 KLNr is optioneel</Description>
 <ClassMethod>1</ClassMethod>
-<FormalSpec>PRNr,StockNietStock,KLNr</FormalSpec>
+<FormalSpec>PRNr:%Integer,StockNietStock:%String,KLNr:%String</FormalSpec>
+<ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
+ #dim KLNr2,Stock
  Set Stock=$S(StockNietStock:"S",1:"N")
  If $S($G(KLNr):$D(^KPBI("IP",PRNr,KLNr)),1:$D(^KPBI("IP",PRNr)))&&(Stock="N") Do
  . Set KLNr2=$S($G(KLNr):KLNr,1:$O(^KPBI("IP",PRNr,"")))