Index: vhUnitTest/EXT/Unishop/PurchaseOrder001/BestandVerwerker/VerwerkBestand/Test.cls.xml
===================================================================
diff -u -r57967 -r59388
--- vhUnitTest/EXT/Unishop/PurchaseOrder001/BestandVerwerker/VerwerkBestand/Test.cls.xml	(.../Test.cls.xml)	(revision 57967)
+++ vhUnitTest/EXT/Unishop/PurchaseOrder001/BestandVerwerker/VerwerkBestand/Test.cls.xml	(.../Test.cls.xml)	(revision 59388)
@@ -203,6 +203,41 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Test: Indien Alpnach als directe klant al eens een order met dezelfde OrderReferentie heeft doorgestuurd, smijten we een error">
+<Implementation><![CDATA[
+	#dim DocumentReferentiesId As %String = "8888"
+	#dim DummyOrder As EXT.Unishop.PurchaseOrder001.CreateOrder.Order = ##class(vhTest.Utils.EXT.Unishop.PurchaseOrder001.CreateOrder.Order).TaorboxOrder()
+		
+	Set StubCorrelator = ##class(vhTest.Mock.TECH.XMLCorrelater).%New()
+	Do StubCorrelator.IndienMethodCall("GeefObjectVanBestand", ..BestandVolledigeNaam, "EXT.Unishop.PurchaseOrder001.CreateOrder.Order", "PurchaseOrder").DanReturn(DummyOrder)
+	
+	Set EdiBestelServiceSpy = ##class(vhTest.Spy.APPS.EDI.Bestel.BestelService).%New()
+	
+	#dim DocumentReferentieMock As DOM.VKP.DocumentReferenties = ##class(vhTest.Mock.DOM.VKP.DocumentReferenties).%New()
+	Do DocumentReferentieMock.IndienMethodCall("GeefID").DanReturn(DocumentReferentiesId)
+	#dim DocumentReferentiesIterator As TECH.Iterator = ##class(TECH.ListUtils).CreateIteratorOfObjects(DocumentReferentieMock)
+	Set DocumentReferentiesRepositoryMock = ##class(vhTest.Mock.DOM.VKP.DocumentReferentiesRepository).%New()
+	Do DocumentReferentiesRepositoryMock.IndienMethodCall("ZoekViaOrderReferentie",DummyOrder.OrderReferentie).DanReturn(DocumentReferentiesIterator)
+	
+	#dim OfferteStub As APPS.VKP.Offerte = ##class(vhTest.Utils.APPS.VKP.Offerte).StandaardOfferte()
+	Do OfferteStub.ZetKlantID(##class(DOM.VKP.enu.Klant).Alpnach())
+	Set OfferteRepository = ##class(vhTest.Mock.APPS.VKP.Offerte.OfferteRepository).%New()
+	Do OfferteRepository.IndienMethodCall("GeefViaDocumentReferentiesId",DocumentReferentiesId).DanReturn(OfferteStub)
+	
+	Set ..AanvraagStub = ##class(APPS.EDI.Bestel.BestelService.PlaatsBestelling.Aanvraag).%New()
+	Set ..AanvraagStub.Header.PersonalityID = ##class(DOM.common.enu.Personality).VanHoecke()
+	Set ..AanvraagStub.Header.KlantID = ##class(DOM.VKP.enu.Klant).Alpnach()
+	#dim AanvraagHeaderBepalerMock = ##class(vhTest.Mock.APPS.EDI.Bestel.impl.BestelService.PlaatsBestelling.AanvraagHeaderBepaler).%New()
+	Do AanvraagHeaderBepalerMock.IndienMethodCall("GeefAanvraagHeader",$$$ElkeWaarde).DanReturn(..AanvraagStub.Header)
+	
+	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("Er bestaat reeds een offerte met OrderReferentie '"_DummyOrder.OrderReferentie_"'")
+	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New(##class(TECH.Exceptions.InvalidInputException).%ClassName(1), Substrings))
+	
+	Set Verwerker = ##class(EXT.Unishop.PurchaseOrder001.BestandVerwerker).%New(StubCorrelator, EdiBestelServiceSpy, ##class(vhTest.Fake.TECH.Mail.MailAPI).%New(),,,, DocumentReferentiesRepositoryMock, OfferteRepository, AanvraagHeaderBepalerMock)
+	Do Verwerker.VerwerkBestand(..BestandVolledigeNaam)
+]]></Implementation>
+</Method>
+
 <Method name="Test: Indien Alpnach al eens een order met dezelfde OrderReferentie heeft doorgestuurd, smijten we een error">
 <Implementation><![CDATA[
 	#dim DocumentReferentiesId As %String = "8888"
@@ -228,12 +263,12 @@
 	Set ..AanvraagStub.Header.PersonalityID = ##class(DOM.common.enu.Personality).SFS()
 	Set ..AanvraagStub.Header.KlantID = ##class(DOM.VKP.enu.SfsKlant).Alpnach()
 	#dim AanvraagHeaderBepalerMock = ##class(vhTest.Mock.APPS.EDI.Bestel.impl.BestelService.PlaatsBestelling.AanvraagHeaderBepaler).%New()
-	Do AanvraagHeaderBepalerMock.IndienMethodCall("GeefAanvraagHeader",$$$ElkeWaarde).DanReturn(..AanvraagStub)
+	Do AanvraagHeaderBepalerMock.IndienMethodCall("GeefAanvraagHeader",$$$ElkeWaarde).DanReturn(..AanvraagStub.Header)
 	
 	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("Er bestaat reeds een offerte met OrderReferentie '"_DummyOrder.OrderReferentie_"'")
 	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New(##class(TECH.Exceptions.InvalidInputException).%ClassName(1), Substrings))
 	
-	Set Verwerker = ##class(EXT.Unishop.PurchaseOrder001.BestandVerwerker).%New(StubCorrelator, EdiBestelServiceSpy, ##class(vhTest.Fake.TECH.Mail.MailAPI).%New(),,,, DocumentReferentiesRepositoryMock, OfferteRepository)
+	Set Verwerker = ##class(EXT.Unishop.PurchaseOrder001.BestandVerwerker).%New(StubCorrelator, EdiBestelServiceSpy, ##class(vhTest.Fake.TECH.Mail.MailAPI).%New(),,,, DocumentReferentiesRepositoryMock, OfferteRepository,AanvraagHeaderBepalerMock)
 	Do Verwerker.VerwerkBestand(..BestandVolledigeNaam)
 ]]></Implementation>
 </Method>
Index: EXT/Unishop/PurchaseOrder001/BestandVerwerker.cls.xml
===================================================================
diff -u -r57966 -r59388
--- EXT/Unishop/PurchaseOrder001/BestandVerwerker.cls.xml	(.../BestandVerwerker.cls.xml)	(revision 57966)
+++ EXT/Unishop/PurchaseOrder001/BestandVerwerker.cls.xml	(.../BestandVerwerker.cls.xml)	(revision 59388)
@@ -88,7 +88,7 @@
 	#dim ClassName As %String = ##class(EXT.Unishop.PurchaseOrder001.CreateOrder.Order).%ClassName(1)
 	#dim Order As EXT.Unishop.PurchaseOrder001.CreateOrder.Order = ..XmlCorrelater.GeefObjectVanBestand(BestandVolledigeNaam,ClassName,"PurchaseOrder")
 	
-	If ((..AanvraagHeader.KlantID = ##class(DOM.VKP.enu.SfsKlant).Alpnach()) && ($$$HasLength(Order.OrderReferentie))) {
+	If (((..AanvraagHeader.KlantID = ##class(DOM.VKP.enu.SfsKlant).Alpnach()) && ($$$HasLength(Order.OrderReferentie))) || (..AanvraagHeader.KlantID = ##class(DOM.VKP.enu.Klant).Alpnach())) {
 		Do ..CheckDubbels(Order)
 	}
 	
@@ -184,7 +184,7 @@
 	If DocumentReferentiesIterator.HasNext() {
 		#dim DocumentReferenties As DOM.VKP.DocumentReferenties = DocumentReferentiesIterator.Next()
 		#dim Offerte As APPS.VKP.Offerte = ..OfferteRepository.GeefViaDocumentReferentiesId(DocumentReferenties.GeefID())
-		If (Offerte.GeefKlantID() = ##class(DOM.VKP.enu.SfsKlant).Alpnach()) {
+		If ((Offerte.GeefKlantID() = ##class(DOM.VKP.enu.SfsKlant).Alpnach()) || (Offerte.GeefKlantID() = ##class(DOM.VKP.enu.Klant).Alpnach())) {
 			Do ##class(TECH.Exceptions.InvalidInputException).Throw("Er bestaat reeds een offerte met OrderReferentie '"_Order.OrderReferentie_"' voor klant Alpnach.")
 		}
 	}