Index: AX/Uitgaand/EC/impl/VerplaatsBestanden.cls.xml
===================================================================
diff -u -r39484 -r39774
--- AX/Uitgaand/EC/impl/VerplaatsBestanden.cls.xml	(.../VerplaatsBestanden.cls.xml)	(revision 39484)
+++ AX/Uitgaand/EC/impl/VerplaatsBestanden.cls.xml	(.../VerplaatsBestanden.cls.xml)	(revision 39774)
@@ -31,18 +31,34 @@
 <Implementation><![CDATA[
 	Set ..ExportDefaults=ExportDefaults
 	Set ..ExportSamenvatting=ExportSamenvatting
+	Quit $$$OK
+]]></Implementation>
+</Method>
 
+<Method name="InitProduction">
+<Implementation><![CDATA[
 	Set ..FtpConfig=##class(TECH.Ftp.FtpConfiguratie).%New()
-	Set ..FtpConfig.Adres="192.168.100.60"
+	Set ..FtpConfig.Adres="192.168.100.61" ; production 
 	Set ..FtpConfig.Gebruiker="ftpuser"
 	Set ..FtpConfig.Paswoord="fE2_hpfYFXc-6H78"
 	Set ..FtpConfig.Poort=21
 	Set ..FtpConfig.ServerBestandsLocatie="current"
 	Set ..FtpServer=##class(TECH.Ftp.impl.FtpAPI).%New()
-	Quit $$$OK
 ]]></Implementation>
 </Method>
 
+<Method name="InitTest">
+<Implementation><![CDATA[
+	Set ..FtpConfig=##class(TECH.Ftp.FtpConfiguratie).%New()
+	Set ..FtpConfig.Adres="192.168.100.60" ; test
+	Set ..FtpConfig.Gebruiker="ftpuser"
+	Set ..FtpConfig.Paswoord="fE2_hpfYFXc-6H78"
+	Set ..FtpConfig.Poort=21
+	Set ..FtpConfig.ServerBestandsLocatie="current"
+	Set ..FtpServer=##class(TECH.Ftp.impl.FtpAPI).%New()
+]]></Implementation>
+</Method>
+
 <Method name="DoIt">
 <Implementation><![CDATA[
 	If ..ExportSamenvatting.HeeftBestanden()
Index: AX/Uitgaand/EC/Prijzen/impl/GenerateKlantPrijzen.cls.xml
===================================================================
diff -u -r39606 -r39774
--- AX/Uitgaand/EC/Prijzen/impl/GenerateKlantPrijzen.cls.xml	(.../GenerateKlantPrijzen.cls.xml)	(revision 39606)
+++ AX/Uitgaand/EC/Prijzen/impl/GenerateKlantPrijzen.cls.xml	(.../GenerateKlantPrijzen.cls.xml)	(revision 39774)
@@ -33,6 +33,10 @@
 <Type>AX.Uitgaand.EC.impl.ExportDefaults</Type>
 </Property>
 
+<Property name="RefDatum">
+<Type>%Date</Type>
+</Property>
+
 <Method name="%OnNew">
 <FormalSpec>ExportDefaults:AX.Uitgaand.EC.impl.ExportDefaults</FormalSpec>
 <Private>1</Private>
@@ -44,6 +48,7 @@
 	Set ..PartijAPI = ##class(DOM.DomeinContext).Instance().GeefPartijAPI()
 	Set ..ExportDefaults=ExportDefaults
 	Set ..NoSa="N"
+	Set ..RefDatum=$H+1
 
 	Quit $$$OK
 ]]></Implementation>
@@ -86,17 +91,24 @@
 <Description>
 d ##class(AX.Uitgaand.EC.Prijzen.impl.GenerateKlantPrijzen).%New().GenerateKlant(3042)</Description>
 <Implementation><![CDATA[
-	Quit:'..HeeftKlantPrijsUitz()
-	do ..InitLog()
+	Quit:'..HeeftKlantUitz()
+
+	Do ..InitLog()
 	Set ..Klant=##class(AX.Uitgaand.EC.Klanten.impl.Klanten).%OpenId(..ExportDefaults.NewGenerationID_"||"_..KLNr)
 	Do ..GeneratePerBasisAssortiment()
 	Do ..GeneratePerKlantAssortiment()
 	Do ..ZetLog("Klant prijzen "_..KLNr)
 ]]></Implementation>
 </Method>
 
-<Method name="HeeftKlantPrijsUitz">
-<Implementation><![CDATA[	Quit $D(^KLPUTZ(..NoSa,..KLNr))
+<Method name="HeeftKlantUitz">
+<Implementation><![CDATA[
+	;Prijsuitzondering
+	Quit:$D(^KLPUTZ(..NoSa,..KLNr)) 1
+	;Assortimentuitzondering
+	Set KLNr=..KLNr,GenerationID=..ExportDefaults.NewGenerationID
+	&SQL(Select Count(*) into :AantalProducten from AX_Uitgaand_EC_Assortiment_impl.KlantAssortiment where Klant=:KLNr and GenerationID=:GenerationID and isnull(Excluded,0)=0)
+	Quit $G(AantalProducten)
 ]]></Implementation>
 </Method>
 
@@ -116,11 +128,11 @@
 	Set rs=##class(TECH.ResultSet).%New()
 	Do rs.Prepare("Select DISTINCT Product from AX_Uitgaand_EC_Assortiment_impl.BasisAssortiment where AssortimentGroep=? and GenerationID=? and product not in (Select Product from AX_Uitgaand_EC_Assortiment_impl.KlantAssortiment  where Klant=? and GenerationID=? )")
  	Set sc=rs.Execute(..Klant.AssortimentGroep,..ExportDefaults.NewGenerationID,..KLNr,..ExportDefaults.NewGenerationID)
- 	
+	
 	While rs.%Next() {
 		Set PRNr=rs.Data("Product") 
 		Continue:'..CheckUitzKlassificatie(PRNr)
-		Do ..Generate(PRNr, "A")
+		Do ..Generate(PRNr, "B")
 	}
 ]]></Implementation>
 </Method>
@@ -161,15 +173,70 @@
 ]]></Implementation>
 </Method>
 
+<Method name="BepaalAantallen">
+<FormalSpec>PRNr</FormalSpec>
+<Implementation><![CDATA[
+	Set lbAantallen=""
+	Set (HoofdGroep,Groep,SubGroep)=" "
+	Set I=$O(^KPR(PRNr,"I"))
+	If $E(I)="I" Set R=^KPR(PRNr,I),HoofdGroep=$P(R,"\"),Groep=$P(R,"\",2),SubGroep=$P(R,"\",3)
+	Set OptieNr=$O(^KLPUTZ(..NoSa,..KLNr,HoofdGroep,Groep,SubGroep,PRNr,0))
+	While OptieNr'=""
+	{
+		Set UitzRec=^KLPUTZ(..NoSa,..KLNr,HoofdGroep,Groep,SubGroep,PRNr,OptieNr)
+		If ..GeldigeDatum(UitzRec) 
+		{
+			If $P(UitzRec,"\",5) ; Aantal
+			{
+				Set lbAantallen=lbAantallen_$LB($P(UitzRec,"\",5))
+			}
+		}
+		Set OptieNr=$O(^KLPUTZ(..NoSa,..KLNr,HoofdGroep,Groep,SubGroep,PRNr,OptieNr))
+	}
+	Quit lbAantallen
+]]></Implementation>
+</Method>
+
+<Method name="GeldigeDatum">
+<FormalSpec>UitzRec:%String</FormalSpec>
+<Implementation><![CDATA[
+	Quit:$P(UitzRec,"\",7)&&($P(UitzRec,"\",7)>..RefDatum) 0 ; Nog niet gestart
+	Quit:$P(UitzRec,"\",8)&&($P(UitzRec,"\",8)<..RefDatum) 0 ; Reeds vervallen
+	Quit 1
+]]></Implementation>
+</Method>
+
 <Method name="Generate">
 <FormalSpec>PRNr:%String,GeneratedFrom:%String</FormalSpec>
 <ProcedureBlock>0</ProcedureBlock>
 <Implementation><![CDATA[
 	New D
 	Set D="\"
-	Set PrijsRec=$$KLANTPR^KPRIJS(..KLNr,PRNr)
-	Quit:'..IsUitzonderingsPrijs(PRNr,PrijsRec)
+	Set lbAantallen=..BepaalAantallen(PRNr)
+	If $LL(lbAantallen) 
+	{
+		Set lbAantallen=$LB(0)_lbAantallen
+		For I=1:1:$LL(lbAantallen)
+		{
+			Set VanAantal=$LG(lbAantallen,I)
+			Set TotAantal=$LG(lbAantallen,I+1)
+			Set PrijsRec=$$KlantPrijs^KPRIJS(..KLNr,PRNr,..NoSa,..RefDatum, VanAantal)
+			;Quit:'..IsUitzonderingsPrijs(PRNr,PrijsRec)
+			Do ..GenerateOne(PRNr,PrijsRec, VanAantal, TotAantal,GeneratedFrom)
+		}
+	}
+	Else
+	{
+		Set PrijsRec=$$KlantPrijs^KPRIJS(..KLNr,PRNr,..NoSa,..RefDatum)
+		Quit:'..IsUitzonderingsPrijs(PRNr,PrijsRec)
+		Do ..GenerateOne(PRNr,PrijsRec ,,,GeneratedFrom)
+	}
+]]></Implementation>
+</Method>
 
+<Method name="GenerateOne">
+<FormalSpec>PRNr:%String,PrijsRec:%String,VanafAantal:%Integer,TotAantal:%Integer,GeneratedFrom:%String</FormalSpec>
+<Implementation><![CDATA[
 	;W PRNr," ",Klant.%Id()," ",PrijsRec,!
 	;Do DumpObject^%apiOBJ(##class(AX.Uitgaand.EC.Prijzen.impl.CodexPrijzen).%OpenId(PRNr_"||"_Klant.PrijsGroep_"||"_Klant.CodexPer3))
 	;w !
@@ -183,6 +250,9 @@
 	Set Prijs.GrootteOrde=$P(PrijsRec,"\",3)
 	Set Prijs.GeldigTotDatum=..GeefGeldigheidsDatum(PRNr)
 	
+	Set:+$G(VanafAantal) Prijs.GeldigVanafAantal=VanafAantal
+	Set:+$G(TotAantal) Prijs.GeldigTotAantal=TotAantal
+	
 	Set Prijs.GeneratedFrom=GeneratedFrom
 	Set Prijs.AanmaakTijdstip=..ExportDefaults.Tijdstip
 	Set Prijs.GenerationID=..ExportDefaults.NewGenerationID
Index: AX/Uitgaand/EC/Service.cls.xml
===================================================================
diff -u -r39484 -r39774
--- AX/Uitgaand/EC/Service.cls.xml	(.../Service.cls.xml)	(revision 39484)
+++ AX/Uitgaand/EC/Service.cls.xml	(.../Service.cls.xml)	(revision 39774)
@@ -44,6 +44,7 @@
 	{
 		Set ..ExportDefaults=##class(AX.Uitgaand.EC.impl.ExportDefaults).%New()
 	}
+	Set ..ExportDefaults.NewGenerationID=##class(AX.Uitgaand.EC.Klanten.impl.Klanten).LaatsteGenerationID()
 	Set ..ExportSamenvatting=##class(AX.Uitgaand.EC.impl.ExportSamenvatting).%New(..ExportDefaults)
 	Set ..Tijdstip=$zdt($H,3)
 	Set ..Debug=1
@@ -88,7 +89,6 @@
 <Method name="GenerateAll">
 <Description>
 d ##class(AX.Uitgaand.EC.Service).%New().GenerateAll()</Description>
-<Private>1</Private>
 <Implementation><![CDATA[
 	Do ..GenerateKlanten()
 	
@@ -104,7 +104,6 @@
 <Method name="ExportAll">
 <Description>
 d ##class(AX.Uitgaand.EC.Service).%New().ExportAll()</Description>
-<Private>1</Private>
 <Implementation><![CDATA[
 	Do ..ExportKlanten()
 	Do ..ExportKlantGroepen()
@@ -263,7 +262,12 @@
 
 <Method name="VerplaatsBestanden">
 <Private>1</Private>
-<Implementation><![CDATA[	Do ##class(AX.Uitgaand.EC.impl.VerplaatsBestanden).%New(..ExportDefaults, ..ExportSamenvatting).DoIt()
+<Implementation><![CDATA[
+	Set service=##class(AX.Uitgaand.EC.impl.VerplaatsBestanden).%New(..ExportDefaults, ..ExportSamenvatting)
+	Do service.InitProduction()
+	Do service.DoIt()
+	Do service.InitTest()
+	Do service.DoIt()
 ]]></Implementation>
 </Method>
 
Index: WS/Vhisie4/KlantDocument/dto/DocumentHoofding.cls.xml
===================================================================
diff -u -r39315 -r39774
--- WS/Vhisie4/KlantDocument/dto/DocumentHoofding.cls.xml	(.../DocumentHoofding.cls.xml)	(revision 39315)
+++ WS/Vhisie4/KlantDocument/dto/DocumentHoofding.cls.xml	(.../DocumentHoofding.cls.xml)	(revision 39774)
@@ -65,7 +65,7 @@
 				Do ..arProductGroepen.SetAt(pxProductGroep,SorteerSleutel)
 			}
 			Set pxProductGroep.AantalLijnen=pxProductGroep.AantalLijnen+1
-			Set pxProductGroep.AantalStuks=pxProductGroep.AantalStuks+pxLijn.Aantal
+			Set:pxProductGroep.ProductGroep'=##class(WS.Vhisie4.KlantDocument.enu.ProductGroep).Beslag() pxProductGroep.AantalStuks=pxProductGroep.AantalStuks+pxLijn.Aantal
 			Set pxProductGroep.TotaalPrijs=pxProductGroep.TotaalPrijs+pxLijn.TotaalPrijs
 			Set ..TotaalPrijs=..TotaalPrijs+pxLijn.TotaalPrijs
 		}
Index: AX/Uitgaand/EC/Assortiment/impl/pxProduct.cls.xml
===================================================================
diff -u -r37151 -r39774
--- AX/Uitgaand/EC/Assortiment/impl/pxProduct.cls.xml	(.../pxProduct.cls.xml)	(revision 37151)
+++ AX/Uitgaand/EC/Assortiment/impl/pxProduct.cls.xml	(.../pxProduct.cls.xml)	(revision 39774)
@@ -96,11 +96,11 @@
 	
 	If '..Product.StockNietStock
 	{
-		Set ..AantalIsSuggestieVeelvoud=..Product.Prijs.GrootVerpakking
+		Set ..AantalIsSuggestieVeelvoud=$S(..Product.Prijs.MinimumBestelhoeveelheid<..Product.Prijs.GrootVerpakking:..Product.Prijs.MinimumBestelhoeveelheid,1:..Product.Prijs.GrootVerpakking)
 		Set ..AantalIsVerplichtVeelvoud=..AantalIsSuggestieVeelvoud
 		Set ..MinBestelhoeveelheid=..Product.Prijs.MinimumBestelhoeveelheid
 	}
-	If VerkoopPerStuk=1 ; Toegelaten
+	ElseIf VerkoopPerStuk=1 ; Toegelaten
 	{
 		Set ..AantalIsSuggestieVeelvoud=1
 		Set ..AantalIsVerplichtVeelvoud=..AantalIsSuggestieVeelvoud
@@ -145,10 +145,20 @@
 <Implementation><![CDATA[
 	If ..Product.StockNietStock
 	{
-		Set ..KleineVoorraadAfname=.2 ; minder dan 20% is kleine afname -> voldoende voorraaad
-		Set ..GroteVoorraadAfname=.5 ; minder dan 50% is grote afname -> beperkte voorraad
-		Set ..KleineWeekAfname=.2*..Product.GewogenGemiddeldeWeekVerkoop ; minder dan 20% van de weekverkoop is kleine afname -> voldoende voorraaad
-		Set ..GroteWeekAfname=.5*..Product.GewogenGemiddeldeWeekVerkoop
+		Set ..KleineVoorraadAfname=.4 ; minder dan x% is kleine afname -> voldoende voorraaad
+		Set ..GroteVoorraadAfname=.6 ; minder dan x% is grote afname -> beperkte voorraad
+		
+		; frequentie van verkopen is minimaal om de 2 weken en de GemiddeldeWeekVerkoop is hoog genoeg om een berekening te maken
+		If ($P(..Product.GemiddeldeWeekVerkoop,"#",3)>25)&&($P(..Product.GewogenGemiddeldeWeekVerkoop,"#")>10)
+		{ 
+		  Set ..KleineWeekAfname=+$J(.3*$P(..Product.GewogenGemiddeldeWeekVerkoop,"#"),0,0) ; minder dan y% van de weekverkoop is kleine afname -> voldoende voorraaad
+		  Set ..GroteWeekAfname=+$J(.6*$P(..Product.GewogenGemiddeldeWeekVerkoop,"#"),0,0)
+		}
+		Else
+		{
+		  Set ..KleineWeekAfname=999999 ; de weekafname telt niet mee
+		  Set ..GroteWeekAfname=999999
+		}
 	}
 ]]></Implementation>
 </Method>