Index: AX/Uitgaand/EC/Klanten/impl/pxAdres.cls.xml
===================================================================
diff -u
--- AX/Uitgaand/EC/Klanten/impl/pxAdres.cls.xml	(revision 0)
+++ AX/Uitgaand/EC/Klanten/impl/pxAdres.cls.xml	(revision 37150)
@@ -0,0 +1,134 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+
+
+<Class name="AX.Uitgaand.EC.Klanten.impl.pxAdres">
+<ClassType/>
+<IncludeCode>vhLib.Macro</IncludeCode>
+<ProcedureBlock>0</ProcedureBlock>
+<Super>%RegisteredObject,%XML.Adaptor</Super>
+<Inheritance>right</Inheritance>
+
+<Property name="AdresID">
+<Type>%Library.String</Type>
+<Parameter name="TRUNCATE" value="1"/>
+</Property>
+
+<Property name="Aanspreking">
+<Type>%Library.String</Type>
+<Parameter name="TRUNCATE" value="1"/>
+</Property>
+
+<Property name="Land">
+<Type>%Library.String</Type>
+<Parameter name="TRUNCATE" value="1"/>
+</Property>
+
+<Property name="Naam">
+<Type>%Library.String</Type>
+<Parameter name="TRUNCATE" value="1"/>
+</Property>
+
+<Property name="PostCode">
+<Type>%Library.String</Type>
+<Parameter name="TRUNCATE" value="1"/>
+</Property>
+
+<Property name="StraatNrBus">
+<Type>%Library.String</Type>
+<Parameter name="TRUNCATE" value="1"/>
+</Property>
+
+<Property name="Toenaam">
+<Type>%Library.String</Type>
+<Parameter name="TRUNCATE" value="1"/>
+</Property>
+
+<Property name="WoonPlaats">
+<Type>%Library.String</Type>
+<Parameter name="TRUNCATE" value="1"/>
+<Parameter name="XMLNAME" value="Woonplaats"/>
+</Property>
+
+<Property name="Telefoon1">
+<Type>%Library.String</Type>
+<Parameter name="TRUNCATE" value="1"/>
+</Property>
+
+<Property name="Telefoon2">
+<Type>%Library.String</Type>
+<Parameter name="TRUNCATE" value="1"/>
+</Property>
+
+<Property name="AlternatieveNaam">
+<Type>%Library.String</Type>
+<Parameter name="TRUNCATE" value="1"/>
+</Property>
+
+<Property name="Opmerking1">
+<Type>%Library.String</Type>
+<Parameter name="TRUNCATE" value="1"/>
+</Property>
+
+<Property name="Opmerking2">
+<Type>%Library.String</Type>
+<Parameter name="TRUNCATE" value="1"/>
+</Property>
+
+<Method name="ToevoegenLeveringsAdressen">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>Klant:Derde.Klant.Klant,Array:%ArrayOfObjects</FormalSpec>
+<Implementation><![CDATA[
+	; Klant adres - facturatie adres
+ 	Set VolgNr=0
+	If ($TR($ZCVT(Klant.StraatNrBus,"U")," ","")'["POSTBUS") Do ; geen postbus adres
+	. Set pxAdres=..%New()
+	. Do pxAdres.Fill("H",Klant.Aanspreking, Klant.Naam, Klant.Toenaam, Klant.StraatNrBus, Klant.Postnummer, Klant.Woonplaats, Klant.LandCode)
+	. Do Array.SetAt(pxAdres,VolgNr)
+
+	; 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
+		FROM Derde_Klant.LevAdres
+		WHERE Klant = :KLNr 
+		ORDER BY TypeAdres )
+   	&sql(OPEN FAP)
+
+ 	For  &sql(FETCH FAP) Quit:SQLCODE  Do
+ 	. Set pxAdres=..%New()
+ 	. If KodeLeveringsadres?4.6N Do  ; Het leveringsadres kan een link zijn naar het hoofdadres van een andere klant
+ 	. . Set oAndereKlant=##class(Derde.Klant.Klant).%OpenId(KodeLeveringsadres)
+ 	. . 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 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>
+<Implementation><![CDATA[
+	if TypeAdres = "B" { 
+		Set Naam = $extract(Naam,1,21)_" (B)"
+	}
+	Set ..AdresID=$TR(AdresID,"L ") ;verwijderen van L en spaties
+	Set ..Naam=Naam
+	Set ..Toenaam=Toenaam
+	Set ..Aanspreking=Aanspreking
+	Set ..PostCode=PostCode
+	Set ..StraatNrBus=StraatNrBus
+	Set ..WoonPlaats=WoonPlaats
+	Set ..Land=LandCode
+	Set ..Telefoon1=$G(Telefoon1)
+	Set ..Telefoon2=$G(Telefoon2)
+	Set ..AlternatieveNaam=$G(AlternatieveNaam)
+	Set ..Opmerking1=$G(Opmerking1)
+	Set ..Opmerking2=$G(Opmerking2)
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: AX/Uitgaand/EC/Service.cls.xml
===================================================================
diff -u -r36472 -r37150
--- AX/Uitgaand/EC/Service.cls.xml	(.../Service.cls.xml)	(revision 36472)
+++ AX/Uitgaand/EC/Service.cls.xml	(.../Service.cls.xml)	(revision 37150)
@@ -38,7 +38,7 @@
 <Implementation><![CDATA[
 	Set ..ExportDefaults=##class(AX.Uitgaand.EC.impl.ExportDefaults).%New(, $G(BeperkAantal,0))
 	Set ..ExportSamenvatting=##class(AX.Uitgaand.EC.impl.ExportSamenvatting).%New(..ExportDefaults)
-	Set ..ExportDefaults.NewGenerationID=+$h ;##class(AX.Uitgaand.EC.Klanten.impl.Klanten).LaatsteGenerationID()
+	Set ..ExportDefaults.NewGenerationID=##class(AX.Uitgaand.EC.Klanten.impl.Klanten).LaatsteGenerationID()
 	Set ..Tijdstip=$zdt($H,3)
 	Set ..Debug=1
 	Quit $$$OK
@@ -71,38 +71,42 @@
 ]]></Implementation>
 </Method>
 
-<Method name="InitLog">
-<Implementation><![CDATA[	Set ..TijdStipStartLog=$H
-]]></Implementation>
-</Method>
-
-<Method name="ZetLog">
-<FormalSpec>Bericht:%String</FormalSpec>
-<Implementation><![CDATA[	Set:..Debug ^AX.EC.Log($I(^AX.EC.Log))=..Tijdstip_" "_Bericht_" : "_$$DIFFTIME^vhLib.DataTypes(..TijdStipStartLog,$H)
-]]></Implementation>
-</Method>
-
 <Method name="ExportAll">
 <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()
 	
 	Do ..ExportBestandsSamenvatting()
+	Do ..VerplaatsBestanden()
 ]]></Implementation>
 </Method>
 
+<Method name="ExportVeranderdeVoorraad">
+<Description>
+d ##class(AX.Uitgaand.EC.Service).%New().ExportVeranderdeVoorraad()</Description>
+<Implementation><![CDATA[
+	Do ..InitLog()
+	d ##class(AX.Uitgaand.EC.Voorraad.impl.ExportVoorraad).%New(..ExportDefaults, ..ExportSamenvatting).ExportVeranderde()
+	Do ..ZetLog("Export veranderde voorraad")
+	Do ..ExportBestandsSamenvatting()
+	Do ..VerplaatsBestanden()
+]]></Implementation>
+</Method>
+
 <Method name="GenerateBasisAssortiment">
+<Private>1</Private>
 <Implementation><![CDATA[
 	Do ..InitLog()
 	d ##class(AX.Uitgaand.EC.Assortiment.impl.GenerateBasisAssortiment).%New(..ExportDefaults).GenerateAll()
@@ -111,6 +115,7 @@
 </Method>
 
 <Method name="GenerateKlantUitzAssortiment">
+<Private>1</Private>
 <Implementation><![CDATA[
 	Do ..InitLog()
 	d ##class(AX.Uitgaand.EC.Assortiment.impl.GenerateKlantAssortiment).%New(..ExportDefaults).GenerateAll()
@@ -119,6 +124,7 @@
 </Method>
 
 <Method name="GenerateKlanten">
+<Private>1</Private>
 <Implementation><![CDATA[
 	Do ..InitLog()
 	d ##class(AX.Uitgaand.EC.Klanten.impl.GenerateKlanten).%New(..ExportDefaults).GenerateAll()
@@ -127,6 +133,7 @@
 </Method>
 
 <Method name="GenerateCodexPrijzen">
+<Private>1</Private>
 <Implementation><![CDATA[
 	Do ..InitLog()
 	d ##class(AX.Uitgaand.EC.Prijzen.impl.GenerateCodexPrijzen).%New(..ExportDefaults).GenerateAll()
@@ -135,6 +142,7 @@
 </Method>
 
 <Method name="GenerateKlantUitzPrijzen">
+<Private>1</Private>
 <Implementation><![CDATA[
 	Do ..InitLog()
 	 d ##class(AX.Uitgaand.EC.Prijzen.impl.GenerateKlantPrijzen).%New(..ExportDefaults).GenerateAll()
@@ -151,6 +159,7 @@
 </Method>
 
 <Method name="ExportKlantUitzAssortiment">
+<Private>1</Private>
 <Implementation><![CDATA[
 	Do ..InitLog()
 	d ##class(AX.Uitgaand.EC.Assortiment.impl.ExportKlant).%New(..ExportDefaults, ..ExportSamenvatting).ExportAll()
@@ -167,6 +176,7 @@
 </Method>
 
 <Method name="ExportKlanten">
+<Private>1</Private>
 <Implementation><![CDATA[
 	Do ..InitLog()
 	d ##class(AX.Uitgaand.EC.Klanten.impl.ExportKlanten).%New(..ExportDefaults, ..ExportSamenvatting).ExportAll()
@@ -175,6 +185,7 @@
 </Method>
 
 <Method name="ExportKlantGroepen">
+<Private>1</Private>
 <Implementation><![CDATA[
 	Do ..InitLog()
 	d ##class(AX.Uitgaand.EC.Klanten.impl.ExportKlantGroepen).%New(..ExportDefaults, ..ExportSamenvatting).ExportAll()
@@ -183,6 +194,7 @@
 </Method>
 
 <Method name="ExportCodexPrijzen">
+<Private>1</Private>
 <Implementation><![CDATA[
 	Do ..InitLog()
 	d ##class(AX.Uitgaand.EC.Prijzen.impl.ExportCodex).%New(..ExportDefaults, ..ExportSamenvatting).ExportAll()
@@ -191,6 +203,7 @@
 </Method>
 
 <Method name="ExportKlantUitzPrijzen">
+<Private>1</Private>
 <Implementation><![CDATA[
 	Do ..InitLog()
 	 d ##class(AX.Uitgaand.EC.Prijzen.impl.ExportKlantUitz).%New(..ExportDefaults, ..ExportSamenvatting).ExportAll()
@@ -199,25 +212,38 @@
 </Method>
 
 <Method name="ExportAlleVoorraad">
+<Private>1</Private>
 <Implementation><![CDATA[
 	Do ..InitLog()
-	d ##class(AX.Uitgaand.EC.Voorraad.impl.ExportVoorraad).%New().ExportAll()
+	d ##class(AX.Uitgaand.EC.Voorraad.impl.ExportVoorraad).%New(..ExportDefaults, ..ExportSamenvatting).ExportAll()
 	Do ..ZetLog("Export alle voorraad")
 ]]></Implementation>
 </Method>
 
-<Method name="ExportVeranderdeVoorraad">
-<Implementation><![CDATA[
-	Do ..InitLog()
-	d ##class(AX.Uitgaand.EC.Voorraad.impl.ExportVoorraad).%New().ExportVeranderde()
-	Do ..ZetLog("Export veranderde voorraad")
+<Method name="ExportBestandsSamenvatting">
+<Private>1</Private>
+<Implementation><![CDATA[	Do ..ExportSamenvatting.ExportSamenvatting()
 ]]></Implementation>
 </Method>
 
-<Method name="ExportBestandsSamenvatting">
-<Implementation><![CDATA[	Do ..ExportSamenvatting.Export()
+<Method name="VerplaatsBestanden">
+<Private>1</Private>
+<Implementation><![CDATA[	;Do ##class(AX.Uitgaand.EC.impl.VerplaatsBestanden).%New(..ExportDefaults, ..ExportSamenvatting).DoIt()
 ]]></Implementation>
 </Method>
+
+<Method name="InitLog">
+<Private>1</Private>
+<Implementation><![CDATA[	Set ..TijdStipStartLog=$H
+]]></Implementation>
+</Method>
+
+<Method name="ZetLog">
+<FormalSpec>Bericht:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[	Set:..Debug ^AX.EC.Log($I(^AX.EC.Log))=..Tijdstip_" "_Bericht_" : "_$$DIFFTIME^vhLib.DataTypes(..TijdStipStartLog,$H)
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: AX/Uitgaand/EC/Voorraad/impl/ExportVoorraad.cls.xml
===================================================================
diff -u -r36472 -r37150
--- AX/Uitgaand/EC/Voorraad/impl/ExportVoorraad.cls.xml	(.../ExportVoorraad.cls.xml)	(revision 36472)
+++ AX/Uitgaand/EC/Voorraad/impl/ExportVoorraad.cls.xml	(.../ExportVoorraad.cls.xml)	(revision 37150)
@@ -16,6 +16,7 @@
 
 <Property name="ExporteerAlleProducten">
 <Type>%Boolean</Type>
+<InitialExpression>0</InitialExpression>
 </Property>
 
 <Property name="PraktischeVoorraad">
@@ -42,15 +43,20 @@
 <Type>%Boolean</Type>
 </Property>
 
+<Property name="ExportDefaults">
+<Type>AX.Uitgaand.EC.impl.ExportDefaults</Type>
+</Property>
+
+<Property name="ExportSamenvatting">
+<Type>AX.Uitgaand.EC.impl.ExportSamenvatting</Type>
+</Property>
+
 <Method name="%OnNew">
-<Description>
-d ##class(AX.Uitgaand.EC.Voorraad.impl.ExportVoorraad).%New().ExportAll()
-d ##class(AX.Uitgaand.EC.Voorraad.impl.ExportVoorraad).%New().ExportVeranderde()</Description>
-<FormalSpec>Pad:%String</FormalSpec>
+<FormalSpec>ExportDefaults:AX.Uitgaand.EC.impl.ExportDefaults,ExportSamenvatting:AX.Uitgaand.EC.impl.ExportSamenvatting</FormalSpec>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
-	Set ..FileName=$$FULLPAD^vhDEV($G(Pad,"F:\AX.EC"),"EC Voorraad")
-	Set ..DomeinID="VH"
+	Set ..ExportDefaults=ExportDefaults
+	Set ..ExportSamenvatting=ExportSamenvatting
 	Quit $$$OK
 ]]></Implementation>
 </Method>
@@ -64,6 +70,7 @@
 
 <Method name="ExportVeranderde">
 <Implementation><![CDATA[
+
 	Set it=..GeefProductIterator()
 	While it.HasNext() {
 		Set rs=it.Next()
@@ -162,6 +169,7 @@
 	}		
 	Set Proxy=..BuildProxy()
 	Do ..Writer.Object(Proxy,"Voorraad")
+	Do ..ExportSamenvatting.Increment()
 ]]></Implementation>
 </Method>
 
@@ -188,21 +196,26 @@
 	Set ..Writer=##class(%XML.Writer).%New()
 	Set ..Writer.NoXMLDeclaration=1
 	Set ..Writer.Indent=1
-	Set sc=..Writer.OutputToFile(..FileName_" "_$tr($zdt($H,8),":")_".xml")
+	Set Omschrijving="Voorraad"
+	Set BestandsNaam=..ExportDefaults.GeefBestandsNaam(Omschrijving)
+	Do ..ExportSamenvatting.NieuwBestand(Omschrijving, BestandsNaam,..ExporteerAlleProducten)
+	Set sc=..Writer.OutputToFile(..ExportDefaults.GeefPadEnBestandsNaam(Omschrijving))
 	Quit:$$$ISERR(sc) sc
 	Set ..Writer.Charset="UTF-8"
 	Do ..Writer.RootElement("Voorraden")
 	Do ..Writer.Element("Domein")
 	Do ..Writer.Write(..DomeinID)
 	Do ..Writer.EndElement()
-	Do ..Writer.Element("AlleProducten")
-	Do ..Writer.Write(..ExporteerAlleProducten)
-	Do ..Writer.EndElement()
+	;Do ..Writer.Element("AlleProducten")
+	;Do ..Writer.Write(..ExporteerAlleProducten)
+	;Do ..Writer.EndElement()
 ]]></Implementation>
 </Method>
 
 <Method name="CloseOutput">
-<Implementation><![CDATA[	Do ..Writer.EndRootElement()
+<Implementation><![CDATA[
+	Do ..Writer.EndRootElement()
+	Do ..ExportSamenvatting.SluitBestand()
 ]]></Implementation>
 </Method>
 </Class>
Index: AX/Uitgaand/EC/Prijzen/impl/ExportKlantUitz.cls.xml
===================================================================
diff -u -r36472 -r37150
--- AX/Uitgaand/EC/Prijzen/impl/ExportKlantUitz.cls.xml	(.../ExportKlantUitz.cls.xml)	(revision 36472)
+++ AX/Uitgaand/EC/Prijzen/impl/ExportKlantUitz.cls.xml	(.../ExportKlantUitz.cls.xml)	(revision 37150)
@@ -109,7 +109,7 @@
 <Implementation><![CDATA[
 		Set Proxy=..BuildProxy(PrijsUitzID)
 		;Write PRNr,! Do Proxy.XMLExport()
-		Do ..Writer.Object(Proxy,"PrijsUitz")
+		Do ..Writer.Object(Proxy,"Prijs")
 		Do ..ExportSamenvatting.Increment()
 ]]></Implementation>
 </Method>
Index: AX/Uitgaand/EC/impl/pxExportSamenvatting.cls.xml
===================================================================
diff -u -r36472 -r37150
--- AX/Uitgaand/EC/impl/pxExportSamenvatting.cls.xml	(.../pxExportSamenvatting.cls.xml)	(revision 36472)
+++ AX/Uitgaand/EC/impl/pxExportSamenvatting.cls.xml	(.../pxExportSamenvatting.cls.xml)	(revision 37150)
@@ -33,6 +33,10 @@
 <Calculated>1</Calculated>
 </Property>
 
+<Property name="IsVolledig">
+<Type>%Boolean</Type>
+</Property>
+
 <Method name="TijdGet">
 <Implementation><![CDATA[	Quit $$DIFFTIME^vhLib.DataTypes($zdth(..BeginTijd,3),$zdth(..EindeTijd,3))
 ]]></Implementation>
Index: AX/Uitgaand/EC/Gebruiker/impl/pxGebruiker.cls.xml
===================================================================
diff -u -r36472 -r37150
--- AX/Uitgaand/EC/Gebruiker/impl/pxGebruiker.cls.xml	(.../pxGebruiker.cls.xml)	(revision 36472)
+++ AX/Uitgaand/EC/Gebruiker/impl/pxGebruiker.cls.xml	(.../pxGebruiker.cls.xml)	(revision 37150)
@@ -35,21 +35,36 @@
 <Collection>list</Collection>
 <Parameter name="XMLITEMNAME" value="KlantGroepID"/>
 <Parameter name="XMLNAME" value="ToegelatenKlantGroepen"/>
+<Parameter name="XMLPROJECTION" value="NONE"/>
 </Property>
 
 <Property name="MultiKlanten">
 <Type>%String</Type>
 <Collection>list</Collection>
 <Parameter name="XMLITEMNAME" value="KlantID"/>
 <Parameter name="XMLNAME" value="ToegelatenKlanten"/>
+<Parameter name="XMLPROJECTION" value="NONE"/>
 </Property>
 
+<Property name="HeeftMultiKlantGroepen">
+<Type>%Integer</Type>
+</Property>
+
+<Property name="HeeftMultiKlanten">
+<Type>%Integer</Type>
+</Property>
+
 <Property name="Favorieten">
 <Type>pxFavoriet</Type>
 <Collection>list</Collection>
 <Parameter name="XMLITEMNAME" value="Favoriet"/>
+<Parameter name="XMLPROJECTION" value="NONE"/>
 </Property>
 
+<Property name="LastLogin">
+<Type>%Date</Type>
+</Property>
+
 <Property name="DefaultKlantID">
 <Type>%String</Type>
 </Property>
@@ -69,8 +84,11 @@
 	Set:$Random(100)>50 ..WachtwoordIntern=..WWBiDirectEncrypt("VH12HA") ; rs.Data("WachtWoordIntern")
 	Set ..Taal=rs.Data("Taal")
 	Set ..DefaultKlantID=rs.Data("DefaultKlant")
+	Set ..LastLogin=+rs.Data("LastLoginTijdStip")
 	Do ..VoegToeKlanten(rs.Data("Klanten"),GenerationID)
 	Do ..VoegToeRegios(rs.Data("Regio"))
+	Set ..HeeftMultiKlantGroepen=..MultiKlantGroep.Count()
+	Set ..HeeftMultiKlanten=..MultiKlanten.Count()
 	Do ..VoegToeFavorieten()
 ]]></Implementation>
 </Method>
Index: AX/Uitgaand/EC/impl/ExportSamenvatting.cls.xml
===================================================================
diff -u -r36472 -r37150
--- AX/Uitgaand/EC/impl/ExportSamenvatting.cls.xml	(.../ExportSamenvatting.cls.xml)	(revision 36472)
+++ AX/Uitgaand/EC/impl/ExportSamenvatting.cls.xml	(.../ExportSamenvatting.cls.xml)	(revision 37150)
@@ -32,11 +32,12 @@
 </Method>
 
 <Method name="NieuwBestand">
-<FormalSpec>Omschrijving:%String,Bestandsnaam:%String</FormalSpec>
+<FormalSpec>Omschrijving:%String,Bestandsnaam:%String,IsVolledig:%Boolean=1</FormalSpec>
 <Implementation><![CDATA[
 	Set ..Actueel=##class(pxExportSamenvatting).%New()
 	Set ..Actueel.Omschrijving=Omschrijving
 	Set ..Actueel.Bestandsnaam=Bestandsnaam
+	Set ..Actueel.IsVolledig=IsVolledig
 	Set ..Actueel.BeginTijd=$ZDT($H,3)
 ]]></Implementation>
 </Method>
Index: AX/Uitgaand/EC/Prijzen/impl/ExportCodex.cls.xml
===================================================================
diff -u -r36472 -r37150
--- AX/Uitgaand/EC/Prijzen/impl/ExportCodex.cls.xml	(.../ExportCodex.cls.xml)	(revision 36472)
+++ AX/Uitgaand/EC/Prijzen/impl/ExportCodex.cls.xml	(.../ExportCodex.cls.xml)	(revision 37150)
@@ -184,7 +184,7 @@
 		Set Proxy=..BuildProxy()
 		If $isObject(Proxy)
 		{
-			Do ..Writer.Object(Proxy,"Product")
+			Do ..Writer.Object(Proxy,"Prijs")
 		}
 		else
 		{
Index: AX/Uitgaand/EC/Klanten/impl/pxKlant.cls.xml
===================================================================
diff -u -r36472 -r37150
--- AX/Uitgaand/EC/Klanten/impl/pxKlant.cls.xml	(.../pxKlant.cls.xml)	(revision 36472)
+++ AX/Uitgaand/EC/Klanten/impl/pxKlant.cls.xml	(.../pxKlant.cls.xml)	(revision 37150)
@@ -80,7 +80,7 @@
 </Property>
 
 <Property name="LeveringsAdressen">
-<Type>BL.EC.pxKlantInfoAdres</Type>
+<Type>pxAdres</Type>
 <Collection>array</Collection>
 <Parameter name="XMLITEMNAME" value="Adres"/>
 <Parameter name="XMLKEYNAME" value="VolgNr"/>
@@ -108,19 +108,8 @@
 	Set ..Taal=..Klant.Taal
 	Set ..BTWNr=..Klant.BTWnummer
 	Set ..IsInclusiefBTW=("GEEN"[..BTWNr)
-	Do ..ToevoegenLeveringsAdressen()
+	Do ##class(pxAdres).ToevoegenLeveringsAdressen(..Klant, ..LeveringsAdressen)
 ]]></Implementation>
 </Method>
-
-<Method name="ToevoegenLeveringsAdressen">
-<Implementation><![CDATA[
-	Do ##class(BL.EC.pxKlantInfoAdres).FillArray(..Klant, ..LeveringsAdressen, 0)
-	Set HoofdAdres=..LeveringsAdressen.GetAt("H")
-	If $isObject(HoofdAdres) {
-		Do ..LeveringsAdressen.SetAt(HoofdAdres,0)
-		Do ..LeveringsAdressen.RemoveAt("H")
-	}
-]]></Implementation>
-</Method>
 </Class>
 </Export>