Index: BL/Derde/Agenda/GeoDynamicsImport.cls.xml
===================================================================
diff -u -r37533 -r38084
--- BL/Derde/Agenda/GeoDynamicsImport.cls.xml	(.../GeoDynamicsImport.cls.xml)	(revision 37533)
+++ BL/Derde/Agenda/GeoDynamicsImport.cls.xml	(.../GeoDynamicsImport.cls.xml)	(revision 38084)
@@ -16,7 +16,7 @@
 </Parameter>
 
 <Parameter name="KortePeriodeStilstand">
-<Default>90</Default>
+<Default>60</Default>
 </Parameter>
 
 <Parameter name="KortePeriodeRijden">
@@ -39,10 +39,6 @@
 <Type>%Time</Type>
 </Property>
 
-<Property name="LaatsteGeoMobile">
-<Type>Derde.Agenda.GeoMobile</Type>
-</Property>
-
 <Method name="%OnNew">
 <FormalSpec>User:Res.InternePersoon</FormalSpec>
 <ReturnType>%Status</ReturnType>
@@ -60,7 +56,7 @@
 
 <Method name="OphalenLocaties">
 <Description>
-d ##class(BL.Derde.Agenda.GeoDynamicsImport).%New(1017).OphalenLocaties()</Description>
+d ##class(BL.Derde.Agenda.GeoDynamicsImport).%New(17).OphalenLocaties()</Description>
 <Implementation><![CDATA[
 	Set WebService=##class(WS.GeoDynamics.IntegratorWebserviceSoap).%New()
 	Set WebService.SSLConfiguration="GeoDynamicsAPI"
@@ -138,6 +134,7 @@
 		Continue:MultiTrips.Count()=0
 		Do ..OpslaanTrips(MultiTrips.GetAt(1).TripItemEntities)
 	}
+	Do ..UpdateAfstand()
 ]]></Implementation>
 </Method>
 
@@ -162,18 +159,20 @@
 
 	Set Rijden=..VertaalNaarRijden(Trip)
 	
-	Set GeoData=##class(Derde.Agenda.GeoMobile).Create("",..User,$P(Tijdstip,",",1),$P(Tijdstip,",",2), Rijden, -Trip.MileageDriven, "", Trip.FromLocation.Latitude, Trip.FromLocation.Longitude,"","trip")
+	Set GeoData=##class(Derde.Agenda.GeoMobile).Create("",..User,$P(Tijdstip,",",1),$P(Tijdstip,",",2), Rijden, Trip.MileageDriven, "", Trip.FromLocation.Latitude, Trip.FromLocation.Longitude,"","trip")
 	
 	Set GeoData.Gemeente=Trip.FromLocation.Address.City
 	Set GeoData.PostCode=Trip.FromLocation.Address.PostalCode
 	Set GeoData.Land=Trip.FromLocation.Address.Country
 	Set GeoData.Straat=Trip.FromLocation.Address.Street_" "_Trip.FromLocation.Address.HouseNumber
 
 	Set GeoMobile=##class(Derde.Agenda.GeoMobile).OpenExisting(GeoData)
-	If $isObject(GeoMobile)
+	If $isObject(GeoMobile) && (GeoMobile.Afstand'=Trip.MileageDriven)
 	{
-		Set GeoMobile.Afstand=-Trip.MileageDriven
+		Set Distance=Trip.MileageDriven-GeoMobile.Afstand
+		Set GeoMobile.Afstand=Trip.MileageDriven
 		Set sc=GeoMobile.%Save()
+		
 	}
 	ElseIf (GeoData.Datum>..LaatsteDatum)||((GeoData.Datum=..LaatsteDatum)&&((..LaatsteTijd="")||(GeoData.Tijd>..LaatsteTijd)))
 	{
@@ -182,6 +181,30 @@
 ]]></Implementation>
 </Method>
 
+<Method name="UpdateAfstand">
+<Implementation><![CDATA[
+	Set LaatsteDatum=..LaatsteDatum
+	Set UserID=..User.%Id()
+
+	&sql(DECLARE UPDAFST CURSOR FOR
+	SELECT Datum, AgendaSubID,Sum(Afstand) 
+    INTO Datum,AgendaSubID, Afstand
+	FROM Derde_Agenda.GeoMobile
+	WHERE Gebruiker=:UserID and Datum>=:LaatsteDatum 
+	Group by Datum, AgendaSubID)
+	
+   	&sql(OPEN UPDAFST)
+ 	For  &sql(FETCH UPDAFST) Quit:SQLCODE  Do
+	. If AgendaSubID Do
+	. .	Set Agenda=##class(Derde.Agenda.Agenda).%OpenId(UserID_"||"_Datum_"||"_AgendaSubID)
+	. .	If $isObject(Agenda) Do
+	. . . Set Agenda.Afstand=Afstand
+	. . . Set sc=Agenda.%Save()
+			
+ 	&sql(CLOSE UPDAFST)
+]]></Implementation>
+</Method>
+
 <Method name="BepaalLaatsteDatumEnTijd">
 <Implementation><![CDATA[
 	; Laatste datum
@@ -313,34 +336,6 @@
 ]]></Implementation>
 </Method>
 
-<Method name="TestLatLon">
-<Description>
-d ##class(BL.Derde.Agenda.GeoDynamics.OphalenGegevens).%New(17).TestTrip()</Description>
-<Implementation><![CDATA[
-	Set WebService=##class(WS.GeoDynamics.IntegratorWebserviceSoap).%New()
-	
-		;Set WebService.Https=1
-	Set WebService.SSLConfiguration="GeoDynamicsAPI"
-	Set Adres=##class(WS.GeoDynamics.tns.AddressEntity).%New()
-	Set Adres.Street="Kerkstraat"
-	Set Adres.HouseNumber=116
-	Set Adres.City="Temse"
-	Set Adres.Country="Belgium"
-	
-	Set result=WebService.GeoCodingFindAddress(..GeefCallerID(), Adres)
-	d DumpObject^%apiOBJ(result)
-	w !
-	w "Aantal trips:",result.Count(),!
-	d DumpObject^%apiOBJ(result.GetAt(1))
-	w !
-	d DumpObject^%apiOBJ(result.GetAt(1).TripItemEntities)
-	w !
-	d DumpObject^%apiOBJ(result.GetAt(1).TripItemEntities.GetAt(1))
-	w !
-	w !,"Aantal items ",result.GetAt(1).TripItemEntities.Count(),!
-]]></Implementation>
-</Method>
-
 <Method name="GeefCallerID">
 <ClassMethod>1</ClassMethod>
 <Private>1</Private>
Index: AX/Uitgaand/EC/impl/ExportDefaults.cls.xml
===================================================================
diff -u -r36472 -r38084
--- AX/Uitgaand/EC/impl/ExportDefaults.cls.xml	(.../ExportDefaults.cls.xml)	(revision 36472)
+++ AX/Uitgaand/EC/impl/ExportDefaults.cls.xml	(.../ExportDefaults.cls.xml)	(revision 38084)
@@ -37,6 +37,20 @@
 	Quit $$$OK
 ]]></Implementation>
 </Method>
+
+<Method name="AllowProduct">
+<FormalSpec>PRNr:%String</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit 1
+]]></Implementation>
+</Method>
+
+<Method name="AllowKlant">
+<FormalSpec>KLNr:%String</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit 1
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: AX/Uitgaand/EC/Klanten/impl/GenerateKlanten.cls.xml
===================================================================
diff -u -r36472 -r38084
--- AX/Uitgaand/EC/Klanten/impl/GenerateKlanten.cls.xml	(.../GenerateKlanten.cls.xml)	(revision 36472)
+++ AX/Uitgaand/EC/Klanten/impl/GenerateKlanten.cls.xml	(.../GenerateKlanten.cls.xml)	(revision 38084)
@@ -70,7 +70,8 @@
 	
 	Quit:Partij.GeefActiefStatus()'=##class(DOM.CRM.enu.ActiefStatus).Actief()
 	#dim KLNr as %String=Partij.GeefCode()
-		
+	Quit:'..ExportDefaults.AllowKlant(KLNr)
+
 	Set PrijzenKlant = ##class(AX.Uitgaand.EC.Klanten.impl.Klanten).%New()
 	Do PrijzenKlant.KlantSetObjectId(KLNr)
 	Set PrijzenKlant.KATPrijsGroep=..GeefKATPrijsGroep(PrijzenKlant.Klant)
Index: AX/Uitgaand/EC/Voorraad/impl/pxVoorraad.cls.xml
===================================================================
diff -u -r36472 -r38084
--- AX/Uitgaand/EC/Voorraad/impl/pxVoorraad.cls.xml	(.../pxVoorraad.cls.xml)	(revision 36472)
+++ AX/Uitgaand/EC/Voorraad/impl/pxVoorraad.cls.xml	(.../pxVoorraad.cls.xml)	(revision 38084)
@@ -8,6 +8,7 @@
 
 <Property name="Product">
 <Type>%String</Type>
+<Parameter name="XMLNAME" value="ProductID"/>
 </Property>
 
 <Property name="PraktischeVoorraad">
Index: BL/EC/Data.cls.xml
===================================================================
diff -u -r29059 -r38084
--- BL/EC/Data.cls.xml	(.../Data.cls.xml)	(revision 29059)
+++ BL/EC/Data.cls.xml	(.../Data.cls.xml)	(revision 38084)
@@ -3044,7 +3044,7 @@
 ]]></Implementation>
 </Method>
 
-<Method name="GetDocumentURL">
+<Method name="GetDocumentURLold">
 <Description>
 s x=##class(BL.EC.Data).%New().GetDocumentURL("XX","MN:PL","CHK","",1239)</Description>
 <FormalSpec>URLKey,Toegang,RecordType,DocNr,KlantNr</FormalSpec>
@@ -3153,6 +3153,172 @@
 ]]></Implementation>
 </Method>
 
+<Parameter name="DocumentPadDocBase">
+<Default>\\cache01\AX.EC\TempDoc</Default>
+</Parameter>
+
+<Parameter name="DocumentPadCache">
+<Default>f:\AX.EC\TempDoc</Default>
+</Parameter>
+
+<Method name="GetDocumentURL">
+<Description>
+s x=##class(BL.EC.Data).%New().GetDocumentURL2("XX","MN:FA","PDF","409656",1736)
+s x=##class(BL.EC.Data).%New().GetDocumentURL2("XX","MN:OD","PDF","166946",1736)
+s x=##class(BL.EC.Data).%New().GetDocumentURL2("XX","MN:OF","PDF","573781",1736)
+s x=##class(BL.EC.Data).%New().GetDocumentURL2("XX","MN:UL","PDF","324914",1736)</Description>
+<FormalSpec>URLKey,Toegang,RecordType,DocNr,KlantNr</FormalSpec>
+<ReturnType>BL.EC.pxDocLink</ReturnType>
+<Implementation><![CDATA[
+	#Define errCannotOpenDoc      "PR:CannotOpenDoc"
+	#Define errOfferteIsOngeldig   "OfferteIsOngeldig"
+	
+	Set DocURL=""						;Indien leeg, dan geeft de functie een fout terug
+	Set Status=$$$OK        ;Invullen bij fout (komt in de logging terecht=INTERNAL MESSAGE, gebruiker ziet deze boodschap NIET)
+	Set InterfaceError=""   ;Invullen als een andere boodschap dan de standaard boodschap aan de gebruiker moet getoond worden
+	
+	;Factuur
+	If Toegang=$$$tgFactuur Do
+	. Set Status=##class(BL.Flow.Factuur.Doc).ValidateFactNr("F",DocNr,KlantNr)
+	. Quit:($$$ISERR(Status))
+	. If RecordType=$$$rtPDF Do
+	. . Set FileNameMetPlaceholder=..GeefUniekeNaamVoorFTP(URLKey,"FAC"_DocNr,"pdf")
+	. . Set FileName=..VervangPlaceholder(FileNameMetPlaceholder)
+	. . Set FilePad=$$FULLPAD^vhDEV(..#DocumentPadDocBase,FileName)
+	. . Set Status=##class(BL.Flow.Factuur.Doc).RenderAndFileDoc(DocNr,"F",,.FilePad)
+	. . If ($$$ISOK(Status)) Do
+	. . . Do ..CopyFileFTP(..#DocumentPadCache,$$$vHisieDownloadIntern,FileName)
+	. . . Set DocURL=$$$vHisieDownloadExtern_"/"_FileName
+	;Order
+	Else  If (Toegang=$$$tgOrder) || (Toegang=$$$tgContractOrder) Do
+	. Set Status=##class(BL.Flow.Order.Doc).ValidateORDNr(DocNr,KlantNr)
+	. Quit:($$$ISERR(Status))
+	. If RecordType=$$$rtPDF Do
+	. . Set FileNameMetPlaceholder=..GeefUniekeNaamVoorFTP(URLKey,"ORD"_DocNr,"pdf")
+	. . Set FileName=..VervangPlaceholder(FileNameMetPlaceholder)
+	. . Set FilePad=$$FULLPAD^vhDEV(..#DocumentPadDocBase,FileName)
+	. . Set Status=##class(BL.Flow.Order.Doc).RenderAndFileDoc(DocNr,.FilePad)
+	. . If ($$$ISOK(Status)) Do
+	. . . Do ..CopyFileFTP(..#DocumentPadCache,$$$vHisieDownloadIntern,FileName)
+	. . . Set DocURL=$$$vHisieDownloadExtern_"/"_FileName
+	;Offerte
+	Else  If Toegang=$$$tgOfferte Do
+	. Set Status=##class(BL.Flow.Offerte.Doc).ValidateOFFNr(DocNr,KlantNr)
+	. Quit:($$$ISERR(Status))
+	. If RecordType=$$$rtPDF Do
+	. . Set FileNameMetPlaceholder=..GeefUniekeNaamVoorFTP(URLKey,"OFF"_DocNr,"pdf")
+	. . Set FileName=..VervangPlaceholder(FileNameMetPlaceholder)
+	. . Set FilePad=$$FULLPAD^vhDEV(..#DocumentPadDocBase,FileName)
+	. . Set Status=##class(BL.Flow.Offerte.Doc).RenderAndFileDoc("O-"_DocNr,.FilePad) 
+	. . If ($$$ISOK(Status)) Do
+	. . . Do ..CopyFileFTP(..#DocumentPadCache,$$$vHisieDownloadIntern,FileName)
+	. . . Set DocURL=$$$vHisieDownloadExtern_"/"_FileName
+	;Uitlevering
+	Else  If Toegang=$$$tgUitlevering Do
+	. Set Status=##class(BL.Flow.Levering.Doc).ValidateBONNr(DocNr,KlantNr)
+	. Quit:($$$ISERR(Status))
+	. If RecordType=$$$rtPDF Do
+	. . Set FileNameMetPlaceholder=..GeefUniekeNaamVoorFTP(URLKey,"LEV"_DocNr,"pdf")
+	. . Set FileName=..VervangPlaceholder(FileNameMetPlaceholder)
+	. . Set FilePad=$$FULLPAD^vhDEV(..#DocumentPadDocBase,FileName)
+	. . Set Status=##class(BL.Flow.Levering.Doc).RenderAndFileDoc(DocNr,.FilePad) 
+	. . If ($$$ISOK(Status)) Do
+	. . . Do ..CopyFileFTP(..#DocumentPadCache,$$$vHisieDownloadIntern,FileName)
+	. . . Set DocURL=$$$vHisieDownloadExtern_"/"_FileName
+	;Prijslijst
+	Else  If Toegang=$$$tgPrijsLijst Do
+	. If RecordType=$$$rtPDF Do 
+	. . // Converteren van gearchiveerde prijslijst XML naar PDF 
+	. .	Set XMLPad=..GeefXMLPadVoorActuelePrijslijst(KlantNr) 
+	. . Set FileNameMetPlaceholder=..GeefUniekeNaamVoorFTP(URLKey,"PL","pdf")
+	. . Set FileName=..VervangPlaceholder(FileNameMetPlaceholder)
+	. . Set FilePad=$$FULLPAD^vhDEV(..#DocumentPadDocBase,FileName)
+	. . Set Status=##class(BL.Flow.PrijsLijst.Doc).RenderAndFileFromXML(XMLPad,FilePad) 
+	. . If ($$$ISOK(Status)) Do
+	. . . Do ..CopyFileFTP(..#DocumentPadCache,$$$vHisieDownloadIntern,FileName)
+	. . . Set DocURL=$$$vHisieDownloadExtern_"/"_FileName
+	. Else  If RecordType=$$$rtXML Do
+	. . // Converteren van gearchiveerde prijslijst XML naar XML voor XLS 
+	. .	Set XMLPad=..GeefXMLPadVoorActuelePrijslijst(KlantNr) 
+	. . Set FileNameMetPlaceholder=..GeefUniekeNaamVoorFTP(URLKey,"PL","xml")
+	. . Set FileName=..VervangPlaceholder(FileNameMetPlaceholder)
+	. . Set FilePad=$$FULLPAD^vhDEV(..#DocumentPadDocBase,FileName)
+	. . Set Status=##class(BL.Flow.PrijsLijst.Doc).TransformToXMLFromXML(XMLPad,FilePad) 
+	. . If ($$$ISOK(Status)) Do
+	. . . Do ..CopyFileFTP(..#DocumentPadCache,$$$vHisieDownloadIntern,FileName)
+	. . . Set DocURL=$$$vHisieDownloadExtern_"/"_FileName
+	. Else  If RecordType=$$$rtCHECK Do
+	. . // Alleen controleren of er een gearchiveerde prijslijst XML bestaat 
+	. .	Set XMLPad=..GeefXMLPadVoorActuelePrijslijst(KlantNr) 
+	. . Set KlantHeeftPrijslijst=($L(XMLPad)) && (KlantNr'=1000)   ; Klant 1000 als test : geen prijslijst (09/09/2011)
+	. . Set DocURL=$S(KlantHeeftPrijslijst:"HAS DOC", 1:"NO DOC")
+	;Webshop
+	Else  If Toegang=$$$tgWebShop Do
+	. $$$blFlowOfferte
+	. Set:'DocNr DocNr=%ECSession.PrevWebShopID ; onthouden omdat de flex app na goedvoor order geen WebShopId meer heeft
+	. Set objOfferte=%blFlowOfferte.Open(DocNr)
+	. If '$IsObject(objOfferte) Do  Quit
+	. . Set Status=$$$ERROR($$$GeneralError,"Offerte hoofding '"_DocNr_"' kan niet geopend worden.")
+	. Set Status=##class(BL.Flow.Offerte.Doc).ValidateFlowOfferte(objOfferte,KlantNr)
+	. Quit:($$$ISERR(Status))
+	. If %blFlowOfferte.IsVervallen() Do  Quit
+	. . Set InterfaceError=$$$Translate($$$errOfferteIsOngeldig)
+	. . Set Status=$$$ERROR($$$GeneralError,"Offerte vervallen") 
+	. If objOfferte.Controle="P" Do  Quit
+	. . Set Status=$$$ERROR($$$GeneralError,"Er zijn fouten opgetreden tijdens controle van offerte '"_DocNr_"' ("_objOfferte.Commentaar_").") 
+	. If RecordType=$$$rtPDF Do
+	. . Set FileNameMetPlaceholder=..GeefUniekeNaamVoorFTP(URLKey,"F"_DocNr,"pdf")
+	. . Set FileName=..VervangPlaceholder(FileNameMetPlaceholder)
+	. . Set FilePad=$$FULLPAD^vhDEV(..#DocumentPadDocBase,FileName)
+	. . Set Status=##class(BL.Flow.Offerte.Doc).RenderAndFileDoc(DocNr,.FilePad) 
+	. . If ($$$ISOK(Status)) Do
+	. . . Do ..CopyFileFTP(..#DocumentPadCache,$$$vHisieDownloadIntern,FileName)
+	. . . Set DocURL=$$$vHisieDownloadExtern_"/"_FileName
+	Else  Do
+	. Set Status=$$$ERROR($$$GeneralError,"Toegang '"_Toegang_"' is onbekend")
+
+	;-----------------------------
+	;TIJDELIJK: OPZETTELIJKE ERROR
+	;Set DocURL=""						;Indien leeg, dan geeft de functie een fout terug
+	;Set Status=$$$ERROR($$$GeneralError,"PDFs kunnen tijdelijk niet worden aangemaakt wegens onderhoud.")        ;Invullen bij fout (komt in de logging terecht=INTERNAL MESSAGE, gebruiker ziet deze boodschap NIET)
+	;Set InterfaceError="Deze optie is tijdelijk buiten gebruik wegens onderhoud, onze excuses voor het eventuele ongemak."
+	;Set InterfaceError=InterfaceError_$C(13,10)_"Veuillez noter que, en raison de l'entretien, les services de site web ne seront pas disponibles. Nous sommes désolés pour le dérangement"
+	;Set InterfaceError=InterfaceError_$C(13,10)_"Export temporary unavailable due to maintanance, we apologize for any inconvenience."   ;Invullen als een andere boodschap dan de standaard boodschap aan de gebruiker moet getoond worden
+	;-----------------------------
+	
+	If DocURL="" Do
+	. ;ERROR!
+	. Set:(InterfaceError="") InterfaceError=$$$Translate($$$errCannotOpenDoc)   ;Std error invullen indien niet ingevuld
+	. Set pxDocLink=##class(BL.EC.pxDocLink).Create(InterfaceError,"","")
+	. Do AddToLog^BL.EC.Common($$$logGrpError,"Data","GetDocURL",InterfaceError_"(extra info: "_$$ParseStatus^vhLib(Status)_"), URLKey: "_URLKey_", Toegang: "_Toegang_", RecordType: "_RecordType_", DocNr: "_DocNr)
+	Else  Do
+	. ;SUCCESS!
+	. 
+	. Do AddToLog^BL.EC.Common($$$logGrpToegang,"Data","GetDocURL","URLKey: "_URLKey_", Toegang: "_Toegang_", RecordType: "_RecordType_", DocNr: "_DocNr_" -> "_DocURL)
+	. Set pxDocLink=##class(BL.EC.pxDocLink).Create("","",DocURL)
+
+	Quit pxDocLink
+]]></Implementation>
+</Method>
+
+<Method name="CopyFileFTP">
+<FormalSpec>FromPath:%String,ToPath:%String,FileName:%String</FormalSpec>
+<Implementation><![CDATA[
+	Set FTPFileName=$P(FileName,".",$L(FileName,".")-1)_".ftp"
+	Set FTPFileDevice=$$OPEN^vhDEV(FromPath,FTPFileName,"W","M")
+	Use FTPFileDevice
+	Write "OPEN "_$$$vHisieDownloadIntern,!!
+	Write "USER Tineke ""T!neKe""",!
+	Write "PUT "_$$FULLPAD^vhDEV(FromPath,FileName),!
+	Write "BYE",!
+	Do CLOSE^vhDEV(FTPFileDevice) 
+	Set Command="FTP -s:"_$$FULLPAD^vhDEV(FromPath,FTPFileName)
+	Set X=$ZF(-1,Command)
+	; opkuis bestanden
+	Do SCANDIR^vhDEV(FromPath,"*.*",,"X",1)
+]]></Implementation>
+</Method>
+
 <Method name="GeefXMLPadVoorActuelePrijslijst">
 <ClassMethod>1</ClassMethod>
 <FormalSpec>KlantNr:%String</FormalSpec>
Index: AX/Uitgaand/EC/Service.cls.xml
===================================================================
diff -u -r37150 -r38084
--- AX/Uitgaand/EC/Service.cls.xml	(.../Service.cls.xml)	(revision 37150)
+++ AX/Uitgaand/EC/Service.cls.xml	(.../Service.cls.xml)	(revision 38084)
@@ -36,7 +36,14 @@
 <FormalSpec>BeperkAantal:%Boolean</FormalSpec>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
-	Set ..ExportDefaults=##class(AX.Uitgaand.EC.impl.ExportDefaults).%New(, $G(BeperkAantal,0))
+	If $G(BeperkAantal)
+	{
+		Set ..ExportDefaults=##class(AX.Uitgaand.EC.impl.ExportDefaultsBeperktAantal).%New()
+	}	 
+	ELse
+	{
+		Set ..ExportDefaults=##class(AX.Uitgaand.EC.impl.ExportDefaults).%New()
+	}
 	Set ..ExportSamenvatting=##class(AX.Uitgaand.EC.impl.ExportSamenvatting).%New(..ExportDefaults)
 	Set ..ExportDefaults.NewGenerationID=##class(AX.Uitgaand.EC.Klanten.impl.Klanten).LaatsteGenerationID()
 	Set ..Tijdstip=$zdt($H,3)
@@ -75,16 +82,16 @@
 <Description>
 d ##class(AX.Uitgaand.EC.Service).%New().ExportAll()</Description>
 <Implementation><![CDATA[
-	;Do ..ExportGebruiker()
+	Do ..ExportGebruiker()
 	
-	;Do ..ExportKlanten()
-	;Do ..ExportKlantGroepen()
+	Do ..ExportKlanten()
+	Do ..ExportKlantGroepen()
 	
-	;Do ..ExportBasisAssortiment()
-	;Do ..ExportKlantUitzAssortiment()
+	Do ..ExportBasisAssortiment()
+	Do ..ExportKlantUitzAssortiment()
 	
-	;Do ..ExportCodexPrijzen()
-	;Do ..ExportKlantUitzPrijzen()
+	Do ..ExportCodexPrijzen()
+	Do ..ExportKlantUitzPrijzen()
 	
 	Do ..ExportAlleVoorraad()
 	
Index: AX/Uitgaand/EC/impl/ExportDefaultsBeperktAantal.cls.xml
===================================================================
diff -u
--- AX/Uitgaand/EC/impl/ExportDefaultsBeperktAantal.cls.xml	(revision 0)
+++ AX/Uitgaand/EC/impl/ExportDefaultsBeperktAantal.cls.xml	(revision 38084)
@@ -0,0 +1,24 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="AX.Uitgaand.EC.impl.ExportDefaultsBeperktAantal">
+<Description>
+Verzamelen van de export bestanden en het aantal records per bestand</Description>
+<Super>ExportDefaults</Super>
+
+<Method name="AllowProduct">
+<FormalSpec>PRNr:%String</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit (PRNr#100)=0
+]]></Implementation>
+</Method>
+
+<Method name="AllowKlant">
+<FormalSpec>KLNr:%String</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit (KLNr#100)=0
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: AX/Uitgaand/EC/Klanten/impl/pxAdres.cls.xml
===================================================================
diff -u -r37150 -r38084
--- AX/Uitgaand/EC/Klanten/impl/pxAdres.cls.xml	(.../pxAdres.cls.xml)	(revision 37150)
+++ AX/Uitgaand/EC/Klanten/impl/pxAdres.cls.xml	(.../pxAdres.cls.xml)	(revision 38084)
@@ -44,7 +44,7 @@
 <Parameter name="TRUNCATE" value="1"/>
 </Property>
 
-<Property name="WoonPlaats">
+<Property name="Woonplaats">
 <Type>%Library.String</Type>
 <Parameter name="TRUNCATE" value="1"/>
 <Parameter name="XMLNAME" value="Woonplaats"/>
@@ -89,8 +89,8 @@
 	; Leveringsadressen
    	Set KLNr=Klant.%Id()
 	&sql(DECLARE FAP CURSOR FOR
-		SELECT NummerLeveringsadres,Aanspreking, Naam, PostNummer, StraatNrBus, ToeNaam, WoonPlaats, Land->Code,KodeLeveringsadres,Telefoon, Telefoon2, AlternatieveNaam, Opmerking1,Opmerking2,TypeAdres
-    	INTO AdresID,Aanspreking, Naam, PostCode, StraatNrBus, ToeNaam, WoonPlaats, LandCode,KodeLeveringsadres,Telefoon1, Telefoon2, AlternatieveNaam, Opmerking1,Opmerking2,TypeAdres
+		SELECT NummerLeveringsadres,Aanspreking, Naam, PostNummer, StraatNrBus, ToeNaam, Woonplaats, Land->Code,KodeLeveringsadres,Telefoon, Telefoon2, AlternatieveNaam, Opmerking1,Opmerking2,TypeAdres
+    	INTO AdresID,Aanspreking, Naam, PostCode, StraatNrBus, ToeNaam, Woonplaats, LandCode,KodeLeveringsadres,Telefoon1, Telefoon2, AlternatieveNaam, Opmerking1,Opmerking2,TypeAdres
 		FROM Derde_Klant.LevAdres
 		WHERE Klant = :KLNr 
 		ORDER BY TypeAdres )
@@ -103,14 +103,14 @@
  	. . Quit:'$isObject(oAndereKlant)
  	. . Do pxAdres.Fill(AdresID,oAndereKlant.Aanspreking,oAndereKlant.Naam, oAndereKlant.Toenaam, oAndereKlant.StraatNrBus, oAndereKlant.Postnummer, oAndereKlant.Woonplaats, oAndereKlant.LandCode,,,,"Link",,TypeAdres)
 	. Else  Do
-	. . Do pxAdres.Fill(AdresID,Aanspreking, Naam, ToeNaam, StraatNrBus, PostCode, WoonPlaats, LandCode,Telefoon1,Telefoon2,AlternatieveNaam,Opmerking1,Opmerking2,TypeAdres)
+	. . Do pxAdres.Fill(AdresID,Aanspreking, Naam, ToeNaam, StraatNrBus, PostCode, Woonplaats, LandCode,Telefoon1,Telefoon2,AlternatieveNaam,Opmerking1,Opmerking2,TypeAdres)
 	. Do Array.SetAt(pxAdres,$I(VolgNr))
  	&sql(CLOSE FAP)
 ]]></Implementation>
 </Method>
 
 <Method name="Fill">
-<FormalSpec>AdresID:%String,Aanspreking:%String,Naam:%String,Toenaam:%String,StraatNrBus:%String,PostCode:%String,WoonPlaats:%String,LandCode:%String,Telefoon1:%String="",Telefoon2:%String="",AlternatieveNaam:%String="",Opmerking1:%String="",Opmerking2:%String="",TypeAdres:%String=""</FormalSpec>
+<FormalSpec>AdresID:%String,Aanspreking:%String,Naam:%String,Toenaam:%String,StraatNrBus:%String,PostCode:%String,Woonplaats:%String,LandCode:%String,Telefoon1:%String="",Telefoon2:%String="",AlternatieveNaam:%String="",Opmerking1:%String="",Opmerking2:%String="",TypeAdres:%String=""</FormalSpec>
 <Implementation><![CDATA[
 	if TypeAdres = "B" { 
 		Set Naam = $extract(Naam,1,21)_" (B)"
@@ -121,7 +121,7 @@
 	Set ..Aanspreking=Aanspreking
 	Set ..PostCode=PostCode
 	Set ..StraatNrBus=StraatNrBus
-	Set ..WoonPlaats=WoonPlaats
+	Set ..Woonplaats=Woonplaats
 	Set ..Land=LandCode
 	Set ..Telefoon1=$G(Telefoon1)
 	Set ..Telefoon2=$G(Telefoon2)
Index: BL/Legacy/EWORDSW.cls.xml
===================================================================
diff -u -r31456 -r38084
--- BL/Legacy/EWORDSW.cls.xml	(.../EWORDSW.cls.xml)	(revision 31456)
+++ BL/Legacy/EWORDSW.cls.xml	(.../EWORDSW.cls.xml)	(revision 38084)
@@ -67,20 +67,20 @@
  If ..IsInUglyEnBevat(MagList,Magazijn,lbProductTypesInConsolidatie,##class(BL.Legacy.enu.ProductBevatType).Orgalux()) {
 	 Set Magazijn = ##class(APPS.MAG.enu.Magazijn).Orgalux()
  }ElseIf ..IsInUglyEnBevat(MagList,Magazijn,lbProductTypesInConsolidatie,##class(BL.Legacy.enu.ProductBevatType).TaorIndeling()) {
-	 Set Magazijn = ##class(APPS.MAG.enu.Magazijn).TAORIndeling()
+	 Set Magazijn = ##class(APPS.MAG.enu.Magazijn).Orgalux() ;##class(APPS.MAG.enu.Magazijn).TAORIndeling() ; PV 17/11/2016
  }ElseIf ..KomtVanHaluxEnGeenPalletInAutomatischMagazijn(MagList,PRNr) {
 	 Set Magazijn = ##class(APPS.MAG.enu.Magazijn).Halux()
  }
  
  If ((Magazijn'=##class(APPS.MAG.enu.Magazijn).Orgalux()) && (Magazijn'=##class(APPS.MAG.enu.Magazijn).TAORIndeling())){ 
 	 If ((Magazijn=##class(APPS.MAG.enu.Magazijn).Ugly()||(Magazijn=##class(APPS.MAG.enu.Magazijn).Halux()))&&($$Is^PRODUKT2(PRNr,"TA")||$$Is^PRODUKT2(PRNr,"AV"))){ ; Groep tandembox en Aventos
-	 	Set Magazijn = ##class(APPS.MAG.enu.Magazijn).TandemAventos()
+	 	Set Magazijn = ##class(APPS.MAG.enu.Magazijn).Ugly() ; ##class(APPS.MAG.enu.Magazijn).TandemAventos() ; PV 17/11/2016
 	 } 	
 	 If ((Magazijn'=##class(APPS.MAG.enu.Magazijn).LangGoed()) && ..SmallQtyInUgly(.MagList,PRNr,Qty)){
 		 If $LF(lbProductTypesInConsolidatie,"KADERD"){ 			; Klein aantal beslag voor kaderdeur -> Halux 
 	 		Set Magazijn = ##class(APPS.MAG.enu.Magazijn).Halux()
 		 }ElseIf $LF(lbProductTypesInConsolidatie,"AVENTOS"){	; Klein aantal beslag behorende bij Aventos -> Tandem/Aventos
-			Set Magazijn = ##class(APPS.MAG.enu.Magazijn).TandemAventos()	 
+			Set Magazijn = ##class(APPS.MAG.enu.Magazijn).Ugly() ; ##class(APPS.MAG.enu.Magazijn).TandemAventos() ; PV 17/11/2016 
 		 }
 	 }
  }
Index: AX/Uitgaand/EC/Assortiment/impl/GenerateBasisAssortiment.cls.xml
===================================================================
diff -u -r36472 -r38084
--- AX/Uitgaand/EC/Assortiment/impl/GenerateBasisAssortiment.cls.xml	(.../GenerateBasisAssortiment.cls.xml)	(revision 36472)
+++ AX/Uitgaand/EC/Assortiment/impl/GenerateBasisAssortiment.cls.xml	(.../GenerateBasisAssortiment.cls.xml)	(revision 38084)
@@ -65,6 +65,7 @@
 <Method name="GeneratePerKlantGroep">
 <FormalSpec>PRNr:%String</FormalSpec>
 <Implementation><![CDATA[
+	Quit:'..ExportDefaults.AllowProduct(PRNr)
 	Quit:..IsVerkoopbaarProduct(PRNr)'=""			
 
 	Do:..IsBeschikbaarVoorKS(PRNr) ..Generate(PRNr,"KS")
@@ -93,11 +94,15 @@
 </Method>
 
 <Method name="IsVerkoopbaarProduct">
+<Description>
+w ##class(AX.Uitgaand.EC.Assortiment.impl.GenerateBasisAssortiment).IsVerkoopbaarProduct(584701)</Description>
 <ClassMethod>1</ClassMethod>
 <FormalSpec>PRNr:%String</FormalSpec>
 <ProcedureBlock>0</ProcedureBlock>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
+	
+	
  ; Controle of een product mag getoond worden
  New R,KLNr,IDNr,Ok,HoofdGr,Groep,SubGroep,CompKort,GenProd,IsKind,KortT,IsNonAkt,CheckKlas
  Set Ok=""
@@ -126,6 +131,7 @@
  }
  Quit:'CheckKlas "No Klas"
 
+ Quit:($E(IDNr)=8) "Klant specifiek"
  Quit:(($E(IDNr)'=0)&&($E(IDNr)'=9)) "No SOPR"
 
  Quit Ok