Index: AX/Uitgaand/PM/ExtArtOmschrKlanten/impl/ExtArtOmschrKlantenDixfConverter.cls.xml
===================================================================
diff -u
--- AX/Uitgaand/PM/ExtArtOmschrKlanten/impl/ExtArtOmschrKlantenDixfConverter.cls.xml	(revision 0)
+++ AX/Uitgaand/PM/ExtArtOmschrKlanten/impl/ExtArtOmschrKlantenDixfConverter.cls.xml	(revision 41174)
@@ -0,0 +1,83 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="AX.Uitgaand.PM.ExtArtOmschrKlanten.impl.ExtArtOmschrKlantenDixfConverter">
+<Super>TECH.RegisteredObject</Super>
+
+<Method name="%OnNew">
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="Convert">
+<FormalSpec>PakketOnderdeel:AX.Uitgaand.PM.Product.impl.Product</FormalSpec>
+<ReturnType>AXdixf.ExtArtOmschr.ExtArtOmschr</ReturnType>
+<Implementation><![CDATA[
+	Set AxPakketOnderdeel = ##class(AXdixf.ExtArtOmschr.ExtArtOmschr).%New()
+	Set AxPakketOnderdeel.CustVendRelation = ..BepaalCustVendRelation(PakketOnderdeel)
+	Set AxPakketOnderdeel.ExternalItemID = ..BepaalExternalItemID(PakketOnderdeel)
+	Set AxPakketOnderdeel.ExternalItemTXT = ""
+	Set AxPakketOnderdeel.InventDimID = "AllBlank"
+	Set AxPakketOnderdeel.ItemId = ..BepaalItemId(PakketOnderdeel)
+	Set AxPakketOnderdeel.ModuleType = "04"
+	
+	// OPGELET: Volgende "Set AxProduct"-lijnen moeten voor import in AX in comment staan, maar kunnen daarbuiten gebruikt worden ter controle:
+	/*
+	Set AxPakketOnderdeel.ID = PakketOnderdeel.PakketOnderdeel.%Id()
+	Set AxPakketOnderdeel.PakketNummer = PakketOnderdeel.PakketOnderdeel.PakketNummer
+	Set AxPakketOnderdeel.AantalProducten = PakketOnderdeel.PakketOnderdeel.Aantal
+	Set AxPakketOnderdeel.KortTekst = PakketOnderdeel.Basis.KortTekst
+	Set AxPakketOnderdeel.GenType = PakketOnderdeel.Basis.GenType
+	*/
+
+	Quit AxPakketOnderdeel
+]]></Implementation>
+</Method>
+
+<Method name="BepaalCustVendRelation">
+<FormalSpec>PakketOnderdeel:AX.Uitgaand.PM.Product.impl.Product</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim CustVendRelation As %String
+	#dim KlantNr As %Integer
+	#dim PakketNummer As %String = PakketOnderdeel.PakketOnderdeel.PakketNummer
+	
+	Set KlantNr = ##class(DOM.PM.impl.DataM.Pakket).%OpenId(PakketNummer).KlantNr
+	Set CustVendRelation = ##class(TECH.StringUtils).AddLeadingChar(KlantNr,"0",5)
+
+	Quit CustVendRelation
+]]></Implementation>
+</Method>
+
+<Method name="BepaalExternalItemID">
+<FormalSpec>PakketOnderdeel:AX.Uitgaand.PM.Product.impl.Product</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim ExternalItemID As %String
+	#dim PakketNummer As %String = PakketOnderdeel.PakketOnderdeel.PakketNummer
+	
+	Set ExternalItemID = ##class(DOM.PM.impl.DataM.Pakket).%OpenId(PakketNummer).Naam
+	
+	Quit ExternalItemID
+]]></Implementation>
+</Method>
+
+<Method name="BepaalItemId">
+<FormalSpec>PakketOnderdeel:AX.Uitgaand.PM.Product.impl.Product</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim ItemId As %String
+	#dim ProductNr As %String = PakketOnderdeel.PakketOnderdeel.ProductNr
+	
+	Set ItemId = ##class(Prod.Product).%OpenId(ProductNr).IdentNummer
+	
+	Quit ItemId
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: AX/Uitgaand/PM/ExtArtOmschrKlanten/impl/ExtArtOmschrKlantenDixfGenerator.cls.xml
===================================================================
diff -u
--- AX/Uitgaand/PM/ExtArtOmschrKlanten/impl/ExtArtOmschrKlantenDixfGenerator.cls.xml	(revision 0)
+++ AX/Uitgaand/PM/ExtArtOmschrKlanten/impl/ExtArtOmschrKlantenDixfGenerator.cls.xml	(revision 41174)
@@ -0,0 +1,56 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="AX.Uitgaand.PM.ExtArtOmschrKlanten.impl.ExtArtOmschrKlantenDixfGenerator">
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="BestandGenerator">
+<Type>APPS.common.Rapport.impl.BestandGenerator</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="GenerateAll">
+<Implementation><![CDATA[
+	Try {
+		#dim PakketOnderdeelIterator As TECH.Iterator = ##class(AX.Uitgaand.PM.ExtArtOmschrKlanten.impl.ExtArtOmschrKlantenIterator).%New()
+		do ..Generate(PakketOnderdeelIterator)
+		Write !,"Klaar"
+	} Catch {
+		Write ##class(TECH.ExceptionHandler).Catch().ToString()
+	}
+]]></Implementation>
+</Method>
+
+<Method name="Generate">
+<FormalSpec>PakketOnderdeelIterator:TECH.Iterator</FormalSpec>
+<Implementation><![CDATA[
+	#dim AXPakketOnderdeelData As APPS.common.Rapport.dto.BestandRapportDataObjectIteratorBased	
+	Set AXPakketOnderdeelData = ##class(APPS.common.Rapport.dto.BestandRapportDataObjectIteratorBased).%New()
+	Do AXPakketOnderdeelData.VoegToeVeld("AXdixf.ExtArtOmschr.ExtArtOmschr", "CustVendRelation")
+	Do AXPakketOnderdeelData.VoegToeVeld("AXdixf.ExtArtOmschr.ExtArtOmschr", "ExternalItemID")
+	Do AXPakketOnderdeelData.VoegToeVeld("AXdixf.ExtArtOmschr.ExtArtOmschr", "ExternalItemTXT")
+	Do AXPakketOnderdeelData.VoegToeVeld("AXdixf.ExtArtOmschr.ExtArtOmschr", "InventDimID")
+	Do AXPakketOnderdeelData.VoegToeVeld("AXdixf.ExtArtOmschr.ExtArtOmschr", "ItemId")
+	Do AXPakketOnderdeelData.VoegToeVeld("AXdixf.ExtArtOmschr.ExtArtOmschr", "ModuleType")
+	
+	// OPGELET: Volgende "VoegToeVeld"-lijnen moeten voor import in AX in comment staan, maar kunnen daarbuiten gebruikt worden ter controle:
+	/*
+	Do AXPakketOnderdeelData.VoegToeVeld("AXdixf.ExtArtOmschr.ExtArtOmschr", "ID")
+	Do AXPakketOnderdeelData.VoegToeVeld("AXdixf.ExtArtOmschr.ExtArtOmschr", "PakketNummer")
+	Do AXPakketOnderdeelData.VoegToeVeld("AXdixf.ExtArtOmschr.ExtArtOmschr", "AantalProducten")
+	Do AXPakketOnderdeelData.VoegToeVeld("AXdixf.ExtArtOmschr.ExtArtOmschr", "KortTekst")
+	Do AXPakketOnderdeelData.VoegToeVeld("AXdixf.ExtArtOmschr.ExtArtOmschr", "GenType")
+	*/
+
+	Set AXPakketOnderdeelData.ScheidingsTeken = ";"	
+	Set AXPakketOnderdeelData.Iterator = PakketOnderdeelIterator
+	Set AXPakketOnderdeelData.BestandVolledigeNaam = ##class(TECH.Files).AppendFile(##class(TECH.Config.ConfigMgr).Instance().GeefString("AX_DIXF"),"ExtArtOmschrKlanten.csv")
+	
+	#dim BestandGenerator As APPS.common.Rapport.impl.BestandGenerator
+	Set BestandGenerator = ##class(APPS.common.Rapport.impl.BestandGenerator).%New()
+	Do BestandGenerator.MaakBestand(AXPakketOnderdeelData)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: AX/Uitgaand/PM/ExtArtOmschrKlanten/impl/ExtArtOmschrKlantenIterator.cls.xml
===================================================================
diff -u
--- AX/Uitgaand/PM/ExtArtOmschrKlanten/impl/ExtArtOmschrKlantenIterator.cls.xml	(revision 0)
+++ AX/Uitgaand/PM/ExtArtOmschrKlanten/impl/ExtArtOmschrKlantenIterator.cls.xml	(revision 41174)
@@ -0,0 +1,128 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="AX.Uitgaand.PM.ExtArtOmschrKlanten.impl.ExtArtOmschrKlantenIterator">
+<Super>TECH.RegisteredObject,TECH.Iterator</Super>
+
+<Property name="QueryAPI">
+<Type>TECH.Query.QueryAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="ResultSet">
+<Type>TECH.ResultSet</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="PakketOnderdeel">
+<Type>AX.Uitgaand.PM.Product.impl.Product</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Converter">
+<Type>AX.Uitgaand.PM.ExtArtOmschrKlanten.impl.ExtArtOmschrKlantenDixfConverter</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>QueryAPI:TECH.Query.QueryAPI=""</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..QueryAPI = $$$Implementation(QueryAPI,##class(TECH.Context).Instance().GeefQueryAPI())
+	Do ..VoerUitQuery()
+	Set ..Converter = ##class(AX.Uitgaand.PM.ExtArtOmschrKlanten.impl.ExtArtOmschrKlantenDixfConverter).%New()
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="VoerUitQuery">
+<Private>1</Private>
+<Implementation><![CDATA[
+	#Dim SqlStatement as %String
+	Set SqlStatement = "select ID, ProductNr from DOM_PM_impl_DataM.PakketOnderdeel "
+	_"where PakketNummer IN (select PakketNummer from DOM_PM_impl_DataM.PakketOnderdeel "
+	/*_"where PakketNummer IN (1044,1171,5682,6703,14829,21093,21623,23276,26248,30886,50140,62755,62831) "*/ //Indien selectie nodig is
+	_"Group By PakketNummer Having sum (Aantal) = 1)"
+	Set ..ResultSet = ..QueryAPI.GetResultSet(##class(TECH.DynamicQuery).%New(SqlStatement))
+]]></Implementation>
+</Method>
+
+<Method name="HasNext">
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	#dim TeOutputtenPakketGevonden As %Boolean = 0
+	
+	while ( $$$Not(TeOutputtenPakketGevonden) && (..ResultSet.Next() > 0) )
+	 {
+		#dim MoetUitgeslotenWorden,MoetInCSV As %Boolean = $$$False
+	
+		Set ..PakketOnderdeel = ##class(AX.Uitgaand.PM.Product.impl.Product).%New(..ResultSet.Data("ProductNr"),..ResultSet.GetData(1))
+		#dim PakketNaam As %String = ..BepaalPakketNaam(..PakketOnderdeel)
+		#dim KortTekst As %String = ..BepaalKortTekst(..PakketOnderdeel)
+		#dim GenType As %Stream = ..BepaalGenType(..PakketOnderdeel)
+		
+		#dim OudAanwezig As %Boolean = $Find(PakketNaam," Oud")
+		#dim VervaltAanwezig As %Boolean = $Find(PakketNaam,"VERVALT")
+		#dim IsMaatproduct As %Boolean = (($Find(KortTekst,"GEN")) || (GenType '= ""))
+		
+		If (IsMaatproduct || OudAanwezig || VervaltAanwezig){
+			Set MoetUitgeslotenWorden = $$$True
+		}
+		Set TeOutputtenPakketGevonden = $$$Not(MoetUitgeslotenWorden)
+	 } 
+	 
+	 Quit TeOutputtenPakketGevonden
+]]></Implementation>
+</Method>
+
+<Method name="Next">
+<ReturnType>AXdixf.ExtArtOmschr.ExtArtOmschr</ReturnType>
+<Implementation><![CDATA[
+	#dim ConvertedPakketOnderdeel As AXdixf.ExtArtOmschr.ExtArtOmschr = ..Converter.Convert(..PakketOnderdeel)
+		
+	Quit ConvertedPakketOnderdeel
+]]></Implementation>
+</Method>
+
+<Method name="BepaalPakketNaam">
+<FormalSpec>PakketOnderdeel:AX.Uitgaand.PM.Product.impl.Product</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim PakketNaam As %String
+	#dim PakketNummer As %String = PakketOnderdeel.PakketOnderdeel.PakketNummer
+	
+	Set PakketNaam = ##class(DOM.PM.impl.DataM.Pakket).%OpenId(PakketNummer).Naam
+	
+	Quit PakketNaam
+]]></Implementation>
+</Method>
+
+<Method name="BepaalKortTekst">
+<FormalSpec>PakketOnderdeel:AX.Uitgaand.PM.Product.impl.Product</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim KortTekst As %String
+	
+	Set KortTekst = PakketOnderdeel.Basis.KortTekst
+	
+	Quit KortTekst
+]]></Implementation>
+</Method>
+
+<Method name="BepaalGenType">
+<FormalSpec>PakketOnderdeel:AX.Uitgaand.PM.Product.impl.Product</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim GenType As %String
+	
+	Set GenType = PakketOnderdeel.Basis.GenType
+
+	Quit GenType
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>