Index: PRHIST.mac.rou
===================================================================
diff -u -r29059 -r54452
--- PRHIST.mac.rou	(.../PRHIST.mac.rou)	(revision 29059)
+++ PRHIST.mac.rou	(.../PRHIST.mac.rou)	(revision 54452)
@@ -5,7 +5,7 @@
  ; WMS(2)=...
  ; WMS(...)=...
 PUT(PRNr,Aantal,Type,Magazijn,Derde,BTNr,BTLUNr,Date,RFNr,Refer,WMS,HNUser,MPRNr,OrdDat,HoutCertificaatInfo) 
- New I,R,HistNr,SubNr,Stock,BronPal,DoelPal,PalAant,User,Waarde,UserId,HoutCertificaatID,HoutCertificaatGewicht, HoutCertificaatService
+ New I,R,HistNr,SubNr,Stock,BronPal,DoelPal,PalAant,User,Waarde,UserId,HoutCertificaatID,HoutCertificaatGewicht,HoutCertificaatService,AxReferentieBepaler,AxInventTransId,AxConfigId,AxItemId
  Set HoutCertificaatService = ##class(DOM.PM.HoutCertificaatService).%New()
  set (HoutCertificaatID)=""
  Set Magazijn=$G(Magazijn,"M"),Derde=$G(Derde),BTNr=$G(BTNr),BTLUNr=$G(BTLUNr)
@@ -21,14 +21,18 @@
 		set $piece(HoutCertificaatInfo,";",2)=HoutCertificaatGewicht
 	}
  }
+ Set AxReferentieBepaler = ##class(Prod.VoorraadBeweging.AxReferentieBepaler).%New(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($P($$PRIJSGEG^KPRIJS(PRNr),D,6)*Aantal,0,2) ; omgezet van CIFPPLPR naar PRIJSGEG
  If $E($G(Refer),1,2)="**" Set Refer="",Type="O" ;Optimalisatie
  If Type="M",+Aantal=0 Set Type="E" ; Bij manuele correctie wordt het type omgezet naar E = Telling zonder stockwijziging (meestal bij lege pallet)
  If Type="D",+Aantal=0 Set Type="Z" ; Bij manuele correctie en met AUTOCC flag wordt het type omgezet naar Z = Telling zonder stockwijziging (meestal bij lege pallet)
- Set R=$H_D_Aantal_D_Stock_D_Type_D_Magazijn_D_Derde_D_BTNr_D_BTLUNr_D_Date_D_RFNr_D_Refer_D_Waarde_D_D_D_MPRNr_D_OrdDat_D_HoutCertificaatInfo
+ Set R=$H_D_Aantal_D_Stock_D_Type_D_Magazijn_D_Derde_D_BTNr_D_BTLUNr_D_Date_D_RFNr_D_Refer_D_Waarde_D_D_D_MPRNr_D_OrdDat_D_HoutCertificaatInfo_D_AxInventTransId_D_AxConfigId_D_AxItemId
  
  if $length(HoutCertificaatID) {
 	 if ( Type = ##class(DOM.PM.enu.BouwsteenType).Halffabrikaat() ) || ( Type = ##class(DOM.PM.enu.BouwsteenType).KindProduct() ) {