Index: DOM/PM/impl/DataM/DataMProductRepository.cls.xml
===================================================================
diff -u -r38179 -r38186
--- DOM/PM/impl/DataM/DataMProductRepository.cls.xml	(.../DataMProductRepository.cls.xml)	(revision 38179)
+++ DOM/PM/impl/DataM/DataMProductRepository.cls.xml	(.../DataMProductRepository.cls.xml)	(revision 38186)
@@ -5,13 +5,30 @@
 <ProcedureBlock>1</ProcedureBlock>
 <Super>TECH.RegisteredObject</Super>
 
+<Property name="ProductAPI">
+<Type>DOM.PM.ProductAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..ProductAPI = ##class(DOM.DomeinContext).Instance().GeefProductAPI()
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
 <Method name="VerwijderViaID">
 <FormalSpec>PRNr:%String,BewaarHistoriek:%Boolean=1</FormalSpec>
 <Implementation><![CDATA[
-
- #dim BSNode,BerekeningsSpecificatie,HoofdingID,I,KGS,KHS,KLNr,KSS,Key,Msg,NoSa,PAKNr,Product,ProductAPI,ProductSpecificatie,Q,rsQuery
- Set Msg=$$DeleteProd^EWPR(PRNr)
+ #dim Msg As %String = $$DeleteProd^EWPR(PRNr)
  ;Copieren naar OLD
+ #dim BSNode As %String
+ #dim Key As TECH.MultiDim
+ #dim I As %Integer
  For I="I","J" Set Key=$O(^KPR(PRNr,I)) Set:$E(Key)=I Key(I)=^KPR(PRNr,Key)
  If BewaarHistoriek Do
  . ; Product basis geg
@@ -35,23 +52,27 @@
  ; Verwijderen weekverkoop
  Kill ^KSPW(PRNr)
  ;Verwijderen statistieken
- Set KLNr=0
+ #dim KLNr As %String = 0
  For  Set KLNr=$O(^KSTPR(PRNr,KLNr)) Quit:KLNr=""  Kill ^KSTKL(KLNr,PRNr),^KLKAN(KLNr,PRNr)
  Kill ^KSTPR(PRNr) ;Kill ^AKANAL(PRNr) ; Wordt 's nachts verwijderd
  ;Verwijderen klant prijsuitzonderingen
- Set KHS=$P($G(Key("I")),"\",1),KGS=$P($G(Key("I")),"\",2),KSS=$P($G(Key("I")),"\",3)
+ #dim KHS As %String = $P($G(Key("I")),"\",1)
+ #dim KGS As %String = $P($G(Key("I")),"\",2)
+ #dim KSS As %String = $P($G(Key("I")),"\",3)
  Set KLNr=0
  If $L(KHS) For  Set KLNr=$O(^KLPUTZ("IN",KHS,KGS,KSS,PRNr,KLNr)) Quit:KLNr=""  Kill ^(KLNr),^KLPUTZ("N",KLNr,KHS,KGS,KSS,PRNr)
  Set KLNr=0
  If $L(KHS) For  Set KLNr=$O(^KLPUTZ("IS",KHS,KGS,KSS,PRNr,KLNr)) Quit:KLNr=""  Kill ^(KLNr),^KLPUTZ("S",KLNr,KHS,KGS,KSS,PRNr)
  ;Verwijderen pakketten
+ #dim PAKNr As %Integer
  Set (PAKNr,KLNr)=""
  For  Set KLNr=$O(^PAKKET("IP",PRNr,KLNr)) Quit:'KLNr  Do
  .For  Set PAKNr=$O(^PAKKET("IP",PRNr,KLNr,PAKNr)) Quit:'PAKNr  Do
  ..Kill ^PAKKET("IP",PRNr,KLNr,PAKNr),^PAKKET("D",PAKNr,PRNr)
  ..If $O(^PAKKET("D",PAKNr,""))=$O(^PAKKET("D",PAKNr,""),-1) Set $P(^PAKKET("D",PAKNr),"\",3)="E"
  ..If $O(^PAKKET("D",PAKNr,""))="" Kill ^PAKKET("IK",KLNr,$$UPTRIMAN^vhRtn1($P(^PAKKET("D",PAKNr),"\",2))),^PAKKET("D",PAKNr)
  ; Verwijder produkt uitzonderingen
+ #dim NoSa As %String
  For NoSa="N","S" Do
  .Set KLNr="" 
  .For  Set KLNr=$O(^PRPUTZ(NoSa,PRNr,KLNr)) Quit:KLNr=""  Kill ^PRPUTZ("I"_NoSa,KLNr,PRNr)
@@ -62,20 +83,19 @@
  ; Verwijderen bouwstenen
  Do DELOBJ^PRBS(PRNr)
  ; ProductAPI opzetten
- Set ProductAPI = ##class(DOM.DomeinContext).Instance().GeefProductAPI()
+ 
  ; Verwijderen BLUM LogSteuer
  Do ##class(BL.Blum.LogSteuer).DeleteViaPRNr(PRNr)
  ; Verwijderen OptiBox verpakking
  Do ##class(BL.Prod.OptiBox.BoxData).%New().Delete("PR",PRNr,1)
  ; Verwijderen productspecificatie en berekeningspecificatie
- Set ProductAPI = ##class(DOM.DomeinContext).Instance().GeefProductAPI()
- Set Product = ProductAPI.GeefProduct(PRNr)
+ #dim Product As DOM.PM.Product = ..ProductAPI.GeefProduct(PRNr)
  If (Product.%Extends("DOM.PM.MaatwerkProduct")) {
-	 Set ProductSpecificatie = Product.GeefProductSpecificatie()
+	 #dim ProductSpecificatie As DOM.PM.Maatwerk.Calc.Common.ProductSpecificatie = Product.GeefProductSpecificatie()
 	 If ($IsObject(ProductSpecificatie) && (ProductSpecificatie.%Id() '= "")) {
 	 	Do ##class(DOM.PM.Maatwerk.Calc.Common.ProductSpecificatie).%DeleteId(ProductSpecificatie.%Id())
 	 }
-	 Set BerekeningsSpecificatie = Product.GeefBerekeningsSpecificatie()
+	 #dim BerekeningsSpecificatie As DOM.PM.Maatwerk.Calc.Common.BerekeningsSpecificatie = Product.GeefBerekeningsSpecificatie()
 	 If ($IsObject(BerekeningsSpecificatie) && (BerekeningsSpecificatie.%Id() '= "")) {
 	 	Do ##class(DOM.PM.Maatwerk.Calc.Common.BerekeningsSpecificatie).%DeleteId(BerekeningsSpecificatie.%Id())
 	 }
@@ -86,7 +106,7 @@
  Kill ^KOFKLP(PRNr),^KOP(PRNr),^KUP(PRNr)
  
  // Opkuisen van product in flow offerte
- set rsQuery = $$ExecDynQuery^vhLib.Query("SELECT ID FROM Flow_Offerte.LijnProduct WHERE Product = ?",$listbuild(PRNr))
+ #dim rsQuery As TECH.ResultSet = $$ExecDynQuery^vhLib.Query("SELECT ID FROM Flow_Offerte.LijnProduct WHERE Product = ?",$listbuild(PRNr))
  set Hoofdingen = ##class(%ListOfDataTypes).%New() 
  while rsQuery.Next() {
 	 set LijnProduct = ##class(Flow.Offerte.LijnProduct).%OpenId(rsQuery.Get("ID"))
@@ -98,16 +118,16 @@
  // Opkuisen van hoofdingen indien deze geen lijnen meer bevatten na verwijderen van lijnen uit flow offerte
  set itHoofdingen = ##class(TECH.ListIterator).%New(Hoofdingen)
  while itHoofdingen.HasNext() {
-	 set HoofdingID = itHoofdingen.Next()
+	 #dim HoofdingID As %String = itHoofdingen.Next()
 	 do ExecDynQuery^vhLib.Query("DELETE FROM Flow_Offerte.Hoofding WHERE ID = ? AND AantalLijnen = 0",$listbuild(HoofdingID))
  } 
  
  ; Verwijderen produkt
  Do VERW^LOG("PR",PRNr)
  Do DELIND^PRODUKT2(PRNr)
  ; Verwijderen Product kenmerken 
- Do ProductAPI.GeefProductMetKenmerken(PRNr).VerwijderAlleKenmerkenSets()
- Do ProductAPI.GeefProductMetKenmerken(PRNr).VerwijderAlleHFBewerkingsInfo()
+ Do ..ProductAPI.GeefProductMetKenmerken(PRNr).VerwijderAlleKenmerkenSets()
+ Do ..ProductAPI.GeefProductMetKenmerken(PRNr).VerwijderAlleHFBewerkingsInfo()
  
  Kill ^KPR(PRNr)