Index: PRHIST.mac.rou
===================================================================
diff -u -r62525 -r66310
--- PRHIST.mac.rou	(.../PRHIST.mac.rou)	(revision 62525)
+++ PRHIST.mac.rou	(.../PRHIST.mac.rou)	(revision 66310)
@@ -21,12 +21,12 @@
 		set $piece(HoutCertificaatInfo,";",2)=HoutCertificaatGewicht
 	}
  }
- Set AxReferentieBepaler = ##class(Prod.VoorraadBeweging.AxReferentieBepaler).%New()
+ Set AxReferentieBepaler = ##class(Prod.VoorraadBeweging.AxReferentieBepaler).%New() ;In OBJT Fase 5 is er in Admin geen afhankelijkheid van AX. Deze code moet dan aangepast worden
  Do AxReferentieBepaler.ZetIds(BTNr,BTLUNr)
  Set AxInventTransId = AxReferentieBepaler.GeefAxInventTransId()
  Set AxConfigId = AxReferentieBepaler.GeefAxConfigId()
  Set AxItemId = AxReferentieBepaler.GeefAxItemId(PRNr)
- 
+
  If Magazijn="W" Set R=$G(^PRSTOCK("D",PRNr)),Stock=$P(R,D,5)
  Else  Set R=^KPR(PRNr,0),Stock=$P(R,D,14)
  Set Waarde=$J($$CifPPL^KPRIJS(PRNr)*Aantal,0,2) ; omgezet van CIFPPLPR naar PRIJSGEG
@@ -40,7 +40,6 @@
 	 	set $piece(R,D,18)=HoutCertificaatService.BepaalCertificaatCode(MPRNr)
 	 }
  }
- 
  Set HistNr=$O(^PRHIST(PRNr,""),-1)+1,^PRHIST(PRNr,HistNr)=R
  Set ^PRHIST.IndexDate(+$P(R,D,1),PRNr,HistNr)=""
  If $D(WMS) For I=1:1 Quit:'$D(WMS(I))  Do