Index: AX/Uitgaand/EC/Assortiment/impl/pxProduct.cls.xml
===================================================================
diff -u
--- AX/Uitgaand/EC/Assortiment/impl/pxProduct.cls.xml	(revision 0)
+++ AX/Uitgaand/EC/Assortiment/impl/pxProduct.cls.xml	(revision 37151)
@@ -0,0 +1,156 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+
+
+<Class name="AX.Uitgaand.EC.Assortiment.impl.pxProduct">
+<IncludeCode>BL.EC.Common</IncludeCode>
+<Super>%RegisteredObject,%XML.Adaptor</Super>
+
+<Property name="Product">
+<Type>Prod.Product</Type>
+<Parameter name="XMLPROJECTION" value="NONE"/>
+</Property>
+
+<Property name="ProductID">
+<Type>%String</Type>
+</Property>
+
+<Property name="KortTekst">
+<Type>%String</Type>
+</Property>
+
+<Property name="VerpakkingGroot">
+<Type>%Integer</Type>
+</Property>
+
+<Property name="VerpakkingNorm">
+<Type>%Integer</Type>
+</Property>
+
+<Property name="AantalIsVerplichtVeelvoud">
+<Type>%Integer</Type>
+<Parameter name="XMLNAME" value="VerplichtVeelvoud"/>
+</Property>
+
+<Property name="AantalIsSuggestieVeelvoud">
+<Type>%Integer</Type>
+<Parameter name="XMLNAME" value="SuggestieVeelvoud"/>
+</Property>
+
+<Property name="KleineVoorraadAfname">
+<Type>%Float</Type>
+</Property>
+
+<Property name="GroteVoorraadAfname">
+<Type>%Float</Type>
+</Property>
+
+<Property name="KleineWeekAfname">
+<Type>%Integer</Type>
+</Property>
+
+<Property name="GroteWeekAfname">
+<Type>%Integer</Type>
+</Property>
+
+<Property name="MinBestelhoeveelheid">
+<Type>%Integer</Type>
+</Property>
+
+<Property name="Leveringstermijn">
+<Type>%Integer</Type>
+</Property>
+
+<Property name="LeveringstermijnEenheid">
+<Description>
+A: Arbeidsdagen, D: Dagen, W: Weken</Description>
+<Type>%String</Type>
+</Property>
+
+<Property name="StockNietStock">
+<Type>%String</Type>
+</Property>
+
+<Method name="InvullenMetProductData">
+<FormalSpec>PRNr:%String,AssortimentsGroep:%String</FormalSpec>
+<Implementation><![CDATA[
+	Do ..ProductSetObjectId(PRNr)
+	Set ..ProductID=PRNr
+	Set ..KortTekst=..Product.KortTekst
+	Set ..Leveringstermijn=..Product.Prijs.LeveringsTermijn
+	Set ..LeveringstermijnEenheid="W"
+	Set ..StockNietStock=$S(..Product.StockNietStock=1:"S",1:"NS")
+	Set ..VerpakkingNorm=..Product.Prijs.NormaleVerpakking
+	Set ..VerpakkingGroot=..Product.Prijs.GrootVerpakking
+	Do ..BepaalVeelvoud(AssortimentsGroep)
+	Do ..DefinieerVoorraadNiveaus()
+]]></Implementation>
+</Method>
+
+<Method name="BepaalVeelvoud">
+<FormalSpec>AssortimentsGroep:%String</FormalSpec>
+<Implementation><![CDATA[
+	#dim VerkoopPerStuk as %String
+	Set VerkoopPerStuk=..Product.Prijs.VerkoopPerStuk
+	Set:(..Product.KSPrijsLijst=-1)&&(AssortimentsGroep'="Industrie") VerkoopPerStuk=-1 ; Per stuk niet toegelaten -> veelvoud van de kleinste verpakking
+	
+	If '..Product.StockNietStock
+	{
+		Set ..AantalIsSuggestieVeelvoud=..Product.Prijs.GrootVerpakking
+		Set ..AantalIsVerplichtVeelvoud=..AantalIsSuggestieVeelvoud
+		Set ..MinBestelhoeveelheid=..Product.Prijs.MinimumBestelhoeveelheid
+	}
+	If VerkoopPerStuk=1 ; Toegelaten
+	{
+		Set ..AantalIsSuggestieVeelvoud=1
+		Set ..AantalIsVerplichtVeelvoud=..AantalIsSuggestieVeelvoud
+		Set ..MinBestelhoeveelheid=..AantalIsVerplichtVeelvoud
+
+	}
+	ElseIf VerkoopPerStuk="" ; Toegelaten na vraagstelling
+	{
+		Set ..AantalIsSuggestieVeelvoud=..GeefKleinsteVerpakking()
+		Set ..AantalIsVerplichtVeelvoud=1
+		Set ..MinBestelhoeveelheid=..AantalIsVerplichtVeelvoud
+
+	}
+	Else ; Per stuk niet toegelaten -> veelvoud van de kleinste verpakking
+	{
+		Set ..AantalIsSuggestieVeelvoud=..GeefKleinsteVerpakking()
+		Set ..AantalIsVerplichtVeelvoud=..AantalIsSuggestieVeelvoud
+		Set ..MinBestelhoeveelheid=..AantalIsVerplichtVeelvoud
+	}
+]]></Implementation>
+</Method>
+
+<Method name="GeefKleinsteVerpakking">
+<Implementation><![CDATA[
+	If ..Product.Prijs.KleinVerpakking
+	{
+		Set Verpakking=..Product.Prijs.KleinVerpakking
+	}
+	Elseif ..Product.Prijs.NormaleVerpakking
+	{
+		Set Verpakking=..Product.Prijs.NormaleVerpakking
+	}
+	Else
+	{
+		Set Verpakking=..Product.Prijs.GrootVerpakking
+	}
+	Quit Verpakking
+]]></Implementation>
+</Method>
+
+<Method name="DefinieerVoorraadNiveaus">
+<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
+	}
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: AX/Uitgaand/EC/impl/VerplaatsBestanden.cls.xml
===================================================================
diff -u
--- AX/Uitgaand/EC/impl/VerplaatsBestanden.cls.xml	(revision 0)
+++ AX/Uitgaand/EC/impl/VerplaatsBestanden.cls.xml	(revision 37151)
@@ -0,0 +1,98 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="AX.Uitgaand.EC.impl.VerplaatsBestanden">
+<Description>
+Verzamelen van de export bestanden en het aantal records per bestand</Description>
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="FtpServer">
+<Type>TECH.Ftp.FtpAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="FtpConfig">
+<Type>TECH.Ftp.FtpConfiguratie</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="ExportDefaults">
+<Type>AX.Uitgaand.EC.impl.ExportDefaults</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="ExportSamenvatting">
+<Type>AX.Uitgaand.EC.impl.ExportSamenvatting</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>ExportDefaults:AX.Uitgaand.EC.impl.ExportDefaults,ExportSamenvatting:ExportSamenvatting</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set ..ExportDefaults=ExportDefaults
+	Set ..ExportSamenvatting=ExportSamenvatting
+
+	Set ..FtpConfig=##class(TECH.Ftp.FtpConfiguratie).%New()
+	Set ..FtpConfig.Adres="vhisiedownload.vanhoecke.be"
+	Set ..FtpConfig.Gebruiker="Tineke"
+	Set ..FtpConfig.Paswoord="T!neKe"
+	Set ..FtpConfig.Poort=21
+	Set ..FtpConfig.ServerBestandsLocatie=""
+	Set ..FtpServer=##class(TECH.Ftp.impl.FtpAPI).%New()
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="DoIt">
+<Implementation><![CDATA[
+	Do ..MaakVerbinding()
+	Do ..VerplaatsBestandenInSamenvatting()
+	Do ..VerplaatsSamenvatting() ; steeds als laatste
+	Do ..VerbreekVerbinding()
+]]></Implementation>
+</Method>
+
+<Method name="VerplaatsBestandenInSamenvatting">
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set it=..ExportSamenvatting.BestandsIterator()
+	While it.HasNext()
+	{
+		Set pxBestand=it.Next()
+		Do ..VerplaatsBestand(pxBestand.Bestandsnaam)
+	}
+]]></Implementation>
+</Method>
+
+<Method name="VerplaatsSamenvatting">
+<Description>
+Steeds als laatste omdat dit de trigger is om te starten met het inlezen van alle ervoor geplaatste bestanden</Description>
+<Private>1</Private>
+<Implementation><![CDATA[	Do ..VerplaatsBestand(..ExportSamenvatting.BestandsnaamSamenvatting)
+]]></Implementation>
+</Method>
+
+<Method name="VerplaatsBestand">
+<FormalSpec>BestandsNaam:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Write " Transfer ",BestandsNaam,!
+	;Do ..FtpServer.VerzendBestand(..ExportDefaults.GeefVolledigPad(BestandsNaam), BestandsNaam)
+]]></Implementation>
+</Method>
+
+<Method name="MaakVerbinding">
+<Private>1</Private>
+<Implementation><![CDATA[	Do ..FtpServer.Connecteer(..FtpConfig)
+]]></Implementation>
+</Method>
+
+<Method name="VerbreekVerbinding">
+<Private>1</Private>
+<Implementation><![CDATA[	Do ..FtpServer.VerbreekVerbinding()
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>