Index: EWTOE.mac.rou
===================================================================
diff -u -r53601 -r56135
--- EWTOE.mac.rou	(.../EWTOE.mac.rou)	(revision 53601)
+++ EWTOE.mac.rou	(.../EWTOE.mac.rou)	(revision 56135)
@@ -1,4 +1,5 @@
 #include BL.Derde.LevSpecifiek
+#include Prod.Product
  
 EWTOE ;E'WMS Inboeken toelevering [ 10/03/2003  11:04 AM ]
  ;
@@ -313,7 +314,16 @@
  ..Set TLNr=$G(^TO("IU",TOENr,TLUNr))
  ..If TLNr Set OrdDat=$P($$ORDGEG^FLOWTOE(LEVNr,TOENr,TLNr),D,2) Set:$L(OrdDat) OrdDat=$$INTDATE^vhLib.DataTypes(OrdDat)
  ..Set Magazijn=$S(OverKind:"K",1:"M")
- ..Do PUT^PRHIST(PRNr,AantWMS,"I",Magazijn,LEVNr,TOENr,TLUNr,+RCPODate,$G(RCPNr),$G(HistRef),.WMS,,MPRNr,$G(OrdDat))
+ ..If (MPRNr'=PRNr)&&($Extract($$$PRGet($$$IdentNummer))=6) && ('$Data(^PRLINK("D",MPRNr,PRNr))) do
+ ... Set SMPRNr = $Order(^PRLINK("IKM",PRNr,""))
+ ... If ($Length(SMPRNr)) 
+ .... Set MPRNr = ##class(AX.Uitgaand.PM.impl.Convertor.Sopr.ProductConvertor).%New().GeefVervangProductDoorSOPRInAX(SMPRNr) do ;SOPR principaal
+ .... Set R=$TR($$EXTDATE^vhLib.DataTypes($S('RCPODate:$H,1:RCPODate),"DS"),D,"")
+ .... Set R=R_1_D_AantWMS_D_$J(CifPPL,0,$S(IsEuro:4,1:2))_D_1_D_$J(LijstPr,0,$S(IsEuro:4,1:2))_D_D_0_D_TOENr_D
+ .... Set PR = MPRNr
+ .... Do ^KPR20
+ .... Do PUT^PRHIST(MPRNr,AantWMS,"I",Magazijn,LEVNr,TOENr,TLUNr,+RCPODate,$G(RCPNr),$G(HistRef),.WMS,,,$G(OrdDat))
+ ..Do PUT^PRHIST(PRNr,AantWMS,"I",Magazijn,LEVNr,TOENr,TLUNr,+RCPODate,$G(RCPNr),$G(HistRef),.WMS,,MPRNr,$G(OrdDat)) ;wat indien MPRNr niet juist is...
  .Set ^TVE(+$H,$I(^TVE(+$H)))=PRNr_"\"_$G(AantWMS)_"\"_"I"_"\"_$G(Magazijn)_"\"_$G(LEVNr)_"\"_$G(TOENr)_"\"_$G(TLUNr)_"\"_+$G(RCPDate)_"\"_$G(RCPNr)_"\"_$G(HistRef)_"\"_$G(WMS)_"\"_$G(MRPNr)_"\"_$G(OrdDat)
  .Do:$$HasHalfFabr^PRBS(PRNr) HADPR^PRHF(TOENr,TLUNr,PRNr,AantWMS,RCPODate) ; Verwerking halffabrikaten
  Quit