Index: WS/KlantDataService.cls.xml
===================================================================
diff -u
--- WS/KlantDataService.cls.xml	(revision 0)
+++ WS/KlantDataService.cls.xml	(revision 514)
@@ -0,0 +1,31 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="WS.KlantDataService">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%SOAP.WebService</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Parameter name="SERVICENAME">
+<Default>KlantDataService</Default>
+</Parameter>
+
+<Parameter name="NAMESPACE">
+<Default>http://www.vanhoecke.be</Default>
+</Parameter>
+
+<Method name="GeefKlantBestelInfo">
+<FormalSpec>Verwerker:%String,KlantNr:%String</FormalSpec>
+<ReturnType>APPS.VKP.dto.KlantBestelInfo</ReturnType>
+<WebMethod>1</WebMethod>
+<Implementation><![CDATA[		Quit ##class(APPS.VKP.KlantDataService).%New().GeefKlantBestelInfo(Verwerker,KlantNr)
+]]></Implementation>
+</Method>
+
+<Method name="GeefKlantenBestelInfo">
+<ReturnType>%ListOfObjects</ReturnType>
+<WebMethod>1</WebMethod>
+<Implementation><![CDATA[		Quit ##class(APPS.VKP.KlantDataService).%New().GeefKlantenBestelInfo()
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: APPS/VKP/dto/KlantBestelInfo.cls.xml
===================================================================
diff -u
--- APPS/VKP/dto/KlantBestelInfo.cls.xml	(revision 0)
+++ APPS/VKP/dto/KlantBestelInfo.cls.xml	(revision 514)
@@ -0,0 +1,20 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="APPS.VKP.dto.KlantBestelInfo">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%XML.Adaptor,%RegisteredObject</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Property name="Verwerker">
+<Type>%String</Type>
+</Property>
+
+<Property name="KlantNr">
+<Type>%String</Type>
+</Property>
+
+<Property name="VerpakkingType">
+<Type>%ListOfDataTypes</Type>
+</Property>
+</Class>
+</Export>
Index: APPS/VKP/KlantDataService.cls.xml
===================================================================
diff -u
--- APPS/VKP/KlantDataService.cls.xml	(revision 0)
+++ APPS/VKP/KlantDataService.cls.xml	(revision 514)
@@ -0,0 +1,48 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="APPS.VKP.KlantDataService">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%RegisteredObject</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Method name="GeefKlantBestelInfo">
+<FormalSpec>Verwerker:%String,KlantNr:%String</FormalSpec>
+<ReturnType>APPS.VKP.dto.KlantBestelInfo</ReturnType>
+<Implementation><![CDATA[
+		Set KlantBestelInfo = ##class(APPS.VKP.dto.KlantBestelInfo).%New()
+		Set KlantBestelInfo.Verwerker = Verwerker
+		Set KlantBestelInfo.KlantNr = KlantNr
+		If $Data(^WS.TBX.KlantData(0,Verwerker,KlantNr)){
+			If $Data(^WS.TBX.KlantData(0,Verwerker,KlantNr,"BULK")){
+				Set Data = ^WS.TBX.KlantData(0,Verwerker,KlantNr,"BULK")
+				Set KlantBestelInfo.VerpakkingType = ##class(%ListOfDataTypes).%New()
+				set VerpakkingData = $Piece(Data,"\",1)
+				For i=1:1:$L(VerpakkingData,";") {
+					Do KlantBestelInfo.VerpakkingType.Insert($Piece(VerpakkingData,";",i))
+				}
+			}
+		}
+		Quit KlantBestelInfo
+]]></Implementation>
+</Method>
+
+<Method name="GeefKlantenBestelInfo">
+<ReturnType>%ListOfObjects</ReturnType>
+<Implementation><![CDATA[
+		Set KlantenBestelInfo = ##class(%ListOfObjects).%New()
+		
+		Set Verwerker = $O(^WS.TBX.KlantData(0,""))
+		While Verwerker'="" {
+			Set KlantNr = $O(^WS.TBX.KlantData(0,Verwerker,""))
+			While KlantNr '= "" {
+				Do KlantenBestelInfo.Insert(..GeefKlantBestelInfo(Verwerker,KlantNr))
+			
+				Set KlantNr = $O(^WS.TBX.KlantData(0,Verwerker,KlantNr))
+			}
+			Set Verwerker = $O(^WS.TBX.KlantData(0,Verwerker))
+		}
+		Quit KlantenBestelInfo
+]]></Implementation>
+</Method>
+</Class>
+</Export>