Index: AXimpl/Dynamics/InventoryOut/Converter/SyncAllModule.cls.xml
===================================================================
diff -u -r44473 -r44487
--- AXimpl/Dynamics/InventoryOut/Converter/SyncAllModule.cls.xml	(.../SyncAllModule.cls.xml)	(revision 44473)
+++ AXimpl/Dynamics/InventoryOut/Converter/SyncAllModule.cls.xml	(.../SyncAllModule.cls.xml)	(revision 44487)
@@ -3,6 +3,11 @@
 <Class name="AXimpl.Dynamics.InventoryOut.Converter.SyncAllModule">
 <Super>TECH.RegisteredObject,TECH.Iterator</Super>
 
+<Property name="SubjectIdList">
+<Type>%ListOfDataTypes</Type>
+<Private>1</Private>
+</Property>
+
 <Property name="InventoryOutConverter">
 <Type>AXimpl.Dynamics.InventoryOut.Converter.InventoryOutConverter</Type>
 <Private>1</Private>
@@ -23,11 +28,6 @@
 <Private>1</Private>
 </Property>
 
-<Property name="SubjectIdList">
-<Type>%ListOfDataTypes</Type>
-<Private>1</Private>
-</Property>
-
 <Method name="%OnNew">
 <FormalSpec>QueryAPI:TECH.Query.QueryAPI=""</FormalSpec>
 <Private>1</Private>
@@ -52,55 +52,43 @@
 	#Dim SqlStatement as %String
 	Set SqlStatement = "SELECT ID FROM Prod.Product WHERE isnull(Gentype,'')='' and KortTekst not like 'GEN%' AND KortTekst NOT LIKE 'IO%' AND (NonAktief IS null OR NonAktief = '2')"
 	
-	// Filters voor beperkte resultaten:
+	// Filter voor beperkt resultaat:
 	_" and ID in (1175,1988,2865,161441,161442)"
-	/*
-	_" and ID in (1175,1988,2865,161441,161442,254245,254258,268026,353741,353743,353744,383880,665626,682391,"
-	_"709825,830257,830507,878186,878220,906194,1038806,1039173,1039208,1067709,1067714,1124771,1155640,1168369,1168689,"
-	_"1168696,1169509,1194443,1247980,1259381,1359867,1425095,1425096,1432225,1572233)"
-	*/
+	
 	Set ..ResultSet = ..QueryAPI.GetResultSet(##class(TECH.DynamicQuery).%New(SqlStatement))
 ]]></Implementation>
 </Method>
 
 <Method name="HasNext">
 <ReturnType>%Boolean</ReturnType>
-<Implementation><![CDATA[
-	#dim HeeftVolgendProduct As %Boolean = $$$False
-	
-	If (..DynIterator.HasNext() > 0) {
-		Set HeeftVolgendProduct = $$$True
-	} Else {
-		Do ..Converteer()
-	}
-	
-	Quit HeeftVolgendProduct
+<Implementation><![CDATA[	Quit ..DynIterator.HasNext()
 ]]></Implementation>
 </Method>
 
 <Method name="Next">
-<ReturnType>AXif.Dynamics.InventoryOut.MessageParts.AxdEntityInventSync</ReturnType>
+<ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
-	#dim ProductPRNr As %String = ..DynIterator.Next().GetData(1)
 	Set ..SubjectIdList = ##class(%ListOfDataTypes).%New()
-	Do ..SubjectIdList.Insert(ProductPRNr)
-
-	Quit
+	
+	Quit ..DynIterator.Next().GetData(1)
 ]]></Implementation>
 </Method>
 
-<Method name="Converteer">
-<Private>1</Private>
-<ReturnType>AXif.Dynamics.InventoryOut.MessageParts.AxdEntityInventSync</ReturnType>
-<Implementation><![CDATA[
-	#dim List As %String = $$ListToPieces^vhLib(..SubjectIdList,", ")
-	Set Request = ##class(AXimpl.Request).%New("", List)
+<UDLText name="T">
+<Content><![CDATA[
+/*
+Method SyncAll() As AXif.Dynamics.InventoryOut.MessageParts.AxdEntityInventSync
+{
+	#dim Lijst As %String = $$ListToDelimited^vhLib(..SubjectIdList,",")
+	Set Request = ##class(AXimpl.Request).%New("",Lijst)
 	#dim MessageId As %String = ""
 	#dim ConvertedInventSyncProduct As AXif.Dynamics.InventoryOut.MessageParts.AxdEntityInventSync = ..InventoryOutConverter.Convert(Request, MessageId)	
 	
 	Quit ConvertedInventSyncProduct
-]]></Implementation>
-</Method>
+}
+*/
+]]></Content>
+</UDLText>
 </Class>