Index: APPS/BD/OrderStat/impl/Extract2IntakeEnGeleverd.cls.xml
===================================================================
diff -u -r54527 -r62525
--- APPS/BD/OrderStat/impl/Extract2IntakeEnGeleverd.cls.xml	(.../Extract2IntakeEnGeleverd.cls.xml)	(revision 54527)
+++ APPS/BD/OrderStat/impl/Extract2IntakeEnGeleverd.cls.xml	(.../Extract2IntakeEnGeleverd.cls.xml)	(revision 62525)
@@ -140,7 +140,7 @@
 	Set ..TotDatum=+$G(Tot)
 	If ..Jaar="All"
 	{
-		Set ..VanDatum=$$INTDATE^vhLib.DataTypes("01/01/"_2015)
+		Set ..VanDatum=$$INTDATE^vhLib.DataTypes("01/11/"_2017)
 		Set ..TotDatum=$$INTDATE^vhLib.DataTypes("31/12/"_2017)
 	}
 	Else
@@ -532,8 +532,13 @@
 	If '..ExistProduct(PRNr)
 	
 	Quit:'..CheckDatum(-..MinDatum)
+	Set CommKlantNr=$LI(##class(BL.Derde.Klant.Relaties).CommercieleOverdracht(..KLNr),1)
+	If CommKlantNr=""||('$P(^KKL(^KK1(..KLNr),2),"\",10))
+	{ Set CommKlantNr=..KLNr}
+	Else
+	{ Write ^KK1(..KLNr), "->" , ^KK1(CommKlantNr),! }
 	;Set OrderInLevering=##class(OrderGeleverd).Add(..FromType,..KLNr,..ORDNr,..OrderDatum,..OrderTijd,..IntakeType,..OrderVerwerker,..BONNr,..LeverDatum,..Verzendwijze,..PickDatum,..PickTijd,..Straat,..PostKode,..Woonplaats,..LandKode,..Afstand.Afstand,PRNr,Qty,BevestigdeLeverDatum,VerwachteLeverDatum,OmzetVerkoop,OmzetAankoop)
-	Set OrderFactuur=##class(OrderFacturen).Add(..Translator,..FAKNr,-..MinDatum,..FromType,..KLNr,..ORDNr,..OrderDatum,..OrderTijd,..IntakeType,..OrderVerwerker,..BONNr,..LeverDatum,..Verzendwijze,..PickDatum,..PickTijd,..Straat,..PostKode,..Woonplaats,..LandKode,..Afstand.Afstand,PRNr,Qty,BevestigdeLeverDatum,VerwachteLeverDatum,OmzetVerkoop,OmzetAankoop)
+	Set OrderFactuur=##class(OrderFacturen).Add(..Translator,..FAKNr,-..MinDatum,..FromType,CommKlantNr,..ORDNr,..OrderDatum,..OrderTijd,..IntakeType,..OrderVerwerker,..BONNr,..LeverDatum,..Verzendwijze,..PickDatum,..PickTijd,..Straat,..PostKode,..Woonplaats,..LandKode,..Afstand.Afstand,PRNr,Qty,BevestigdeLeverDatum,VerwachteLeverDatum,OmzetVerkoop,OmzetAankoop)
 	Do ##class(OrderFacturen).MaandCumul(OrderFactuur)
 ]]></Implementation>
 </Method>
@@ -611,7 +616,7 @@
 <Implementation><![CDATA[
 	Quit:PRNr'?4.10N 0
 	
-	Quit:('$D(^KPR(PRNr))) 0
+	Quit:('$D(^KPR(PRNr)))&&('$D(^KPRO(PRNr))) 0
 	;Quit:'(($P($$GENTYP^HAD(PRNr),"\")="TBX")||($P($$GENTYP^HAD(PRNr),"\")="LBX")) 0
 	Quit 1
 ]]></Implementation>