Index: APPS/BD/OrderStat/impl/Extract2IntakeEnGeleverd.cls.xml
===================================================================
diff -u -r47555 -r54045
--- APPS/BD/OrderStat/impl/Extract2IntakeEnGeleverd.cls.xml	(.../Extract2IntakeEnGeleverd.cls.xml)	(revision 47555)
+++ APPS/BD/OrderStat/impl/Extract2IntakeEnGeleverd.cls.xml	(.../Extract2IntakeEnGeleverd.cls.xml)	(revision 54045)
@@ -2,7 +2,6 @@
 <Export generator="Cache" version="24">
 <Class name="APPS.BD.OrderStat.impl.Extract2IntakeEnGeleverd">
 <ClassType/>
-<CompileAfter>APPS.BD.OrderStat.impl.OrderIntake,APPS.BD.OrderStat.impl.OrderGeleverd</CompileAfter>
 <IncludeCode>vhLib.Macro,BL.Derde.KlantSpecifiek</IncludeCode>
 <ProcedureBlock>1</ProcedureBlock>
 <Super>%RegisteredObject</Super>
@@ -122,34 +121,53 @@
 <Private>1</Private>
 </Property>
 
+<Property name="Translator">
+<Type>AX.Uitgaand.EC.DataAX.impl.Translator</Type>
+</Property>
+
+<Property name="Jaar">
+<Type>%String</Type>
+</Property>
+
 <Method name="%OnNew">
-<FormalSpec>Van:%Date,Tot:%Date</FormalSpec>
+<FormalSpec>Jaar:%String</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
+	Set ..Jaar=Jaar
 	Set ..VanDatum=+$G(Van)
 	Set ..TotDatum=+$G(Tot)
-	Set:..VanDatum=0 ..VanDatum=$$CALCDATE^vhLib.DataTypes($H,"BJ",-1,"FD")
-	Set:..TotDatum=0 ..TotDatum=$$CALCDATE^vhLib.DataTypes($H,"BJ",-1,"LD") 
-	Set ..VanDatum=..TotDatum-30 ;$$CALCDATE^vhLib.DataTypes($H,"M",-24,"FD")
+	If ..Jaar="All"
+	{
+		Set ..VanDatum=$$INTDATE^vhLib.DataTypes("01/07/"_2017)
+		Set ..TotDatum=$$INTDATE^vhLib.DataTypes("31/12/"_2017)
+	}
+	Else
+	{
+		Set:..VanDatum=0 ..VanDatum=$$INTDATE^vhLib.DataTypes("01/01/"_..Jaar)
+		Set:..TotDatum=0 ..TotDatum=$$INTDATE^vhLib.DataTypes("31/12/"_..Jaar)
+	}
 	;Set ..TotDatum=$$CALCDATE^vhLib.DataTypes($H,"M",-1,"LD") 
-	Set ..AfstandBepaler=##class(APPS.BD.CarbonFootprint.impl.AfstandBepaler).%New()
-	
+	;Set ..AfstandBepaler=##class(APPS.BD.CarbonFootprint.impl.AfstandBepaler).%New()
+	 Set ..Translator=##class(AX.Uitgaand.EC.DataAX.impl.Translator).%New()
+
 	Quit $$$OK
 ]]></Implementation>
 </Method>
 
 <Method name="BouwEnFile">
 <Description>
-	D ##class(APPS.BD.OrderStat.impl.Extract2IntakeEnGeleverd).%New().BouwEnFile("I")</Description>
+	D ##class(APPS.BD.OrderStat.impl.Extract2IntakeEnGeleverd).%New("All").BouwEnFile("F")
+	D ##class(APPS.BD.OrderStat.impl.Extract2IntakeEnGeleverd).%New(),CorrStatistiek()</Description>
 <FormalSpec>WelkBestand:%String="IL"</FormalSpec>
 <Implementation><![CDATA[
 	;Set Dev=$$OPEN^vhDEV("c:\scratch","OrderStat_Build.txt","W","T")
 	;Use Dev
 
 	Do ..HerbouwenOrders()
 	;Do CLOSE^vhDEV(Dev)
+	Do:WelkBestand["F" ##class(APPS.BD.OrderStat.impl.OrderFacturen).Export2File(..Jaar),##class(APPS.BD.OrderStat.impl.BIProduct).Export2File(..Jaar)
 	Do:WelkBestand["L" ##class(APPS.BD.OrderStat.impl.OrderGeleverd).Export2File()
 	Do:WelkBestand["I" ##class(APPS.BD.OrderStat.impl.OrderIntake).Export2File()
 ]]></Implementation>
@@ -159,11 +177,17 @@
 <Implementation><![CDATA[
 	Do ##class(APPS.BD.OrderStat.impl.OrderIntake).DeleteAll()
 	Do ##class(APPS.BD.OrderStat.impl.OrderGeleverd).DeleteAll()
+	Do ##class(APPS.BD.OrderStat.impl.OrderFacturen).DeleteAll()
+	Do ##class(APPS.BD.OrderStat.impl.BIProduct).DeleteAll()
+	k ^||MaandCumul
+	k ^||MaandCumulK
 
 	Do ..HerbouwenOrdersVanuitKFA()
-	Do ..HerbouwenOrdersVanuitKFAP()
-	Do ..HerbouwenOrdersVanuitKUL()
-	Do ..HerbouwenOrdersVanuitKOD()
+	Do ..CorrStatistiekKlant()
+	Do ..CorrStatistiekAll()
+	;Do ..HerbouwenOrdersVanuitKFAP()
+	;Do ..HerbouwenOrdersVanuitKUL()
+	;Do ..HerbouwenOrdersVanuitKOD()
 ]]></Implementation>
 </Method>
 
@@ -186,7 +210,7 @@
 	 		While ..FAKNr'="" 
 	 		{
 			;w !,"  Faktuur",..MinDatum," ",..FAKNr
-				Do ..HerbouwOrderVanuitKFALijnen()
+				Do:..CheckDatum(-..MinDatum) ..HerbouwOrderVanuitKFALijnen()
 		 		Set ..FAKNr=$O(^KFA1(..Node,..KLNr,..MinDatum,..FAKNr))	
 	 		}
 	 		Set ..MinDatum=$O(^KFA1(..Node,..KLNr,..MinDatum))
@@ -222,7 +246,7 @@
 				Set VerwachteLeverDatum=$P(Rec,"\",29)
 				Set OmzetVerkoop=$P(Rec,"\",34)
 				Set OmzetAankoop=$P(Rec,"\",33)
-				Do ..AddIntake(PRNr,Qty,BevestigdeLeverDatum,VerwachteLeverDatum,OmzetVerkoop,OmzetAankoop)
+				;Do ..AddIntake(PRNr,Qty,BevestigdeLeverDatum,VerwachteLeverDatum,OmzetVerkoop,OmzetAankoop)
 				Do ..AddGeleverd(PRNr,Qty,BevestigdeLeverDatum,VerwachteLeverDatum,OmzetVerkoop,OmzetAankoop)
 			}
 			Set LNr=$O(^KFA(..Node,..FAKNr,BONNr,LNr))
@@ -281,7 +305,7 @@
 				Set VerwachteLeverDatum=$P(Rec,"\",29)
 				Set OmzetVerkoop=$P(Rec,"\",34)
 				Set OmzetAankoop=$P(Rec,"\",33)
-				Do ..AddIntake(PRNr,Qty,BevestigdeLeverDatum,VerwachteLeverDatum,OmzetVerkoop,OmzetAankoop)
+				;Do ..AddIntake(PRNr,Qty,BevestigdeLeverDatum,VerwachteLeverDatum,OmzetVerkoop,OmzetAankoop)
 				Do ..AddGeleverd(PRNr,Qty,BevestigdeLeverDatum,VerwachteLeverDatum,OmzetVerkoop,OmzetAankoop)
 			}
 			Set LNr=$O(^KFAP(..Node,..FAKNr,BONNr,LNr))
@@ -299,15 +323,22 @@
 	While ..KLNr'=""
 	{
 		Set ..Node=$O(^KUL(..KLNr,""))
-		While ..Node="F"
+		While ..Node'=""
 		{
-			Set ..FromType=$S(..Node="F":"U",1:"F") ; in levering of reeds gefactureerd
-	 		Set ..BONNr=$O(^KUL(..KLNr,..Node,""))
-	 		While ..BONNr'="" 
-	 		{
-				Do ..HerbouwOrderVanuitKULLijnen()
-		 		Set ..BONNr=$O(^KUL(..KLNr,..Node,..BONNr))	
-	 		}
+			If ((..Node="F")||(..Node="G"))
+			{
+				Set ..FromType=$S(..Node="F":"U",1:"F") ; in levering of reeds gefactureerd
+		 		Set ..BONNr=$O(^KUL(..KLNr,..Node,""))
+		 		While ..BONNr'="" 
+		 		{
+					Set LeverDatum=$$INTDATE^vhLib.DataTypes($P(^KUL(..KLNr,..Node,..BONNr,1),"\",2),"DKP")
+					If (..Node="F")||((..Node="G")&&(LeverDatum>$$INTDATE^vhLib.DataTypes("01.01.18","DKP")))
+					{
+						Do ..HerbouwOrderVanuitKULLijnen()
+					}
+			 		Set ..BONNr=$O(^KUL(..KLNr,..Node,..BONNr))	
+		 		}
+			}
 	 		Set ..Node=$O(^KUL(..KLNr,..Node))
 		}
 		Set ..KLNr=$O(^KUL(..KLNr))
@@ -335,7 +366,7 @@
 			Set VerwachteLeverDatum=$P(Rec,"\",29)
  			Set OmzetVerkoop=$P(Rec,"\",9)
  			Set OmzetAankoop=..CifPPL(PRNr)*Qty
- 			Do ..AddIntake(PRNr,Qty,BevestigdeLeverDatum,VerwachteLeverDatum,OmzetVerkoop,OmzetAankoop)
+ 			;Do ..AddIntake(PRNr,Qty,BevestigdeLeverDatum,VerwachteLeverDatum,OmzetVerkoop,OmzetAankoop)
 			Do ..AddGeleverd(PRNr,Qty,BevestigdeLeverDatum,VerwachteLeverDatum,OmzetVerkoop,OmzetAankoop)
 		}
 		Set LNr=$O(^KUL(..KLNr,..Node,..BONNr,LNr))
@@ -377,12 +408,12 @@
 	{
 		Set AdresNode="   "_$P(AdresRec,"\",1)
 		Set AdresNode="L"_$E(AdresNode,$L(AdresNode)-3)
-		Set AdresRec=$G(^KKL(^KK1(..KLNr),AdresNode))
+		Set AdresRec=$G(^KKL(^KK1(KLNr),AdresNode))
 	}
 	
 	If $TR($P(AdresRec,"\",1,9),"\ ","")="" ; geen adres opgegeven default naar de klant hoofdadres
 	{
-		Set AdresRec=$G(^KKL(^KK1(..KLNr),0))
+		Set AdresRec=$G(^KKL(^KK1(KLNr),0))
 	}
 	Set ..Woonplaats=$P(AdresRec,"\",7)
 	Set ..PostKode=$P(AdresRec,"\",6)
@@ -496,20 +527,89 @@
 <Method name="AddGeleverd">
 <FormalSpec>PRNr:%String,Qty:%Integer,BevestigdeLeverDatum:%Date,VerwachteLeverDatum:%Date,OmzetVerkoop:%Float,OmzetAankoop:%Float</FormalSpec>
 <Implementation><![CDATA[
+	If '..ExistProduct(PRNr)
 	
-	Quit:'..ExistProduct(PRNr)
-	Quit:'..CheckDatum(..PickDatum)
-	
-	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)
+	Quit:'..CheckDatum(-..MinDatum)
+	;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)
+	Do ##class(OrderFacturen).MaandCumul(OrderFactuur)
 ]]></Implementation>
 </Method>
 
+<Method name="CorrStatistiekKlant">
+<Implementation><![CDATA[
+	Set KLNr=$O(^||MaandCumulK(""))
+
+	While KLNr
+	{
+		Set ..KLNr=KLNr
+		Do ..ExtractLeverAdres("")
+		Set Maand=$O(^||MaandCumul(""))
+		While Maand
+		{
+			Set FaktOmz=$LG($G(^||MaandCumulK(KLNr,Maand)),1)
+			Set FaktKost=$LG($G(^||MaandCumulK(KLNr,Maand)),2)
+			Set Maand4J=$$EXTDATE^vhLib.DataTypes(Maand,"DM4")_" "
+			Set StatOmz=$P($G(^KSTKL(KLNr,0,Maand4J)),"\",3)
+			Set StatMarge=$P($G(^KSTKL(KLNr,0,Maand4J)),"\",4)
+			
+			Set Verschil=StatOmz-FaktOmz
+			Set:Verschil<0 Verschil=-Verschil
+			If Verschil>1
+			{
+				Write KLNr," ",Maand, " ",Maand4J," o:",FaktOmz," = ",StatOmz," M:",FaktKost," = ",StatOmz-StatMarge,!
+				Set PRNr=902707
+				Set OrderFactuur=##class(OrderFacturen).Add(..Translator,"999999",Maand,"X",KLNr,999999,Maand,0,"OV","",999999,Maand,"INT",0,0,..Straat,..PostKode,..Woonplaats,..LandKode,..Afstand.Afstand,PRNr,1,Maand,Maand,(StatOmz-FaktOmz),(StatOmz-StatMarge-FaktKost))
+				Do ##class(OrderFacturen).MaandCumul(OrderFactuur)
+			}
+			Set Maand=$O(^||MaandCumul(Maand))
+		}
+		Set KLNr=$O(^||MaandCumulK(KLNr))
+	}
+]]></Implementation>
+</Method>
+
+<Method name="CorrStatistiekAll">
+<Implementation><![CDATA[
+	w !!
+		Set ..KLNr=$$$KlantVanHoeckeNV
+		Do ..ExtractLeverAdres("")
+		Set Maand=$O(^||MaandCumul(""))
+		While Maand
+		{
+			Set FaktOmz=$LI(^||MaandCumul(Maand),1)
+			Set FaktKost=$LI(^||MaandCumul(Maand),2)
+			Set Maand4J=$$EXTDATE^vhLib.DataTypes(Maand,"DM4")_" "
+			Set StatOmz=0, StatMarge=0
+			Set KLNr=$O(^KSTKL(0))
+			w Maand4J,!
+			While KLNr
+			{
+				Set StatOmz=StatOmz+$P($G(^KSTKL(KLNr,0,Maand4J)),"\",3)
+				Set StatMarge=StatMarge+$P($G(^KSTKL(KLNr,0,Maand4J)),"\",4)
+				Set KLNr=$O(^KSTKL(KLNr))
+			}
+			
+			Set Verschil=StatOmz-FaktOmz
+			Set:Verschil<0 Verschil=-Verschil
+			If Verschil>1
+			{
+				Write ..KLNr," ",Maand, " ",Maand4J," o:",FaktOmz," = ",StatOmz," M:",FaktKost," = ",StatOmz-StatMarge,!
+				Set PRNr=902707
+				Set OrderFactuur=##class(OrderFacturen).Add(..Translator,"999999",Maand,"X",..KLNr,888888,Maand,0,"OV","",888888,Maand,"INT",0,0,..Straat,..PostKode,..Woonplaats,..LandKode,..Afstand.Afstand,PRNr,1,Maand,Maand,(StatOmz-FaktOmz),(StatOmz-StatMarge-FaktKost))
+			}
+			Set Maand=$O(^||MaandCumul(Maand))
+		}
+]]></Implementation>
+</Method>
+
 <Method name="ExistProduct">
 <ClassMethod>1</ClassMethod>
 <FormalSpec>PRNr:%String</FormalSpec>
 <Implementation><![CDATA[
-	Quit:PRNr'?4.8N 0
-	Quit:'$D(^KPR(PRNr)) 0
+	Quit:PRNr'?4.10N 0
+	
+	Quit:('$D(^KPR(PRNr))) 0
 	;Quit:'(($P($$GENTYP^HAD(PRNr),"\")="TBX")||($P($$GENTYP^HAD(PRNr),"\")="LBX")) 0
 	Quit 1
 ]]></Implementation>
@@ -522,7 +622,7 @@
 <Implementation><![CDATA[
 	Quit:'..ExistProduct(PRNr) 0
 	Set D="\"
-	Quit $P($$PRIJSGEG^KPRIJS(PRNr,.NoSa),D,6)
+	Quit $$CifPPL^KPRIJS(PRNr,.NoSa)
 ]]></Implementation>
 </Method>