Index: EXT/Unishop/PurchaseOrder001/BestandVerwerker.cls.xml
===================================================================
diff -u -r54695 -r54758
--- EXT/Unishop/PurchaseOrder001/BestandVerwerker.cls.xml	(.../BestandVerwerker.cls.xml)	(revision 54695)
+++ EXT/Unishop/PurchaseOrder001/BestandVerwerker.cls.xml	(.../BestandVerwerker.cls.xml)	(revision 54758)
@@ -59,15 +59,15 @@
 </Property>
 
 <Method name="%OnNew">
-<FormalSpec>XmlCorrelater:TECH.XMLCorrelater,BestelService:APPS.EDI.Bestel.BestelService,MailApi:TECH.Mail.impl.MailAPI,VerkoopApi:DOM.VKP.VerkoopAPI,KlantBepaler:DOM.common.PersonalityKlantBepaler,CommonApi:DOM.common.CommonAPI,DocumentReferentiesRepository:DOM.VKP.DocumentReferentiesRepository,OfferteRepository:APPS.VKP.Offerte.OfferteRepository</FormalSpec>
+<FormalSpec>XmlCorrelater:TECH.XMLCorrelater,BestelService:APPS.EDI.Bestel.BestelService,MailApi:TECH.Mail.impl.MailAPI,VerkoopApi:DOM.VKP.VerkoopAPI,KlantBepaler:DOM.common.PersonalityKlantBepaler,CommonApi:DOM.common.CommonAPI,DocumentReferentiesRepository:DOM.VKP.DocumentReferentiesRepository,OfferteRepository:APPS.VKP.Offerte.OfferteRepository,AanvraagHeaderBepaler:APPS.EDI.Bestel.impl.BestelService.PlaatsBestelling.AanvraagHeaderBepaler</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
 	Set ..XmlCorrelater = $$$Inject(XmlCorrelater,##class(TECH.XMLCorrelater).%New())
 	Set ..BestelService = $$$Inject(BestelService,##class(APPS.EDI.Bestel.impl.BestelService).%New())
-	Set ..AanvraagHeaderBepaler = ##class(APPS.EDI.Bestel.impl.BestelService.PlaatsBestelling.AanvraagHeaderBepaler).%New()	
+	Set ..AanvraagHeaderBepaler = $$$Inject(AanvraagHeaderBepaler, ##class(APPS.EDI.Bestel.impl.BestelService.PlaatsBestelling.AanvraagHeaderBepaler).%New())
 	Set ..MailApi = $$$Inject(MailApi,##class(TECH.Context).Instance().GeefMailAPI())
 	Set ..KlantBepaler = $$$Inject(KlantBepaler, ##class(DOM.common.impl.PersonalityKlantBepaler).%New())
 	Set ..CommonApi = $$$Inject(CommonApi, ##class(DOM.DomeinContext).Instance().GeefCommonAPI())
@@ -91,6 +91,9 @@
 	If ((..AanvraagHeader.KlantID = ##class(DOM.VKP.enu.SfsKlant).AlpnachOud()) && ($$$HasLength(Order.OrderReferentie))) {
 		Do ..CheckDubbels(Order)
 	}
+	If ((..AanvraagHeader.KlantID = ##class(DOM.VKP.enu.SfsKlant).Alpnach()) && ($$$HasLength(Order.OrderReferentie))) {
+		Do ..CheckDubbels(Order)
+	}
 	
 	If ($IsObject(..OrderConverter)) {
 		#dim Resultaat As APPS.EDI.Bestel.BestelService.PlaatsBestelling.Resultaat = ..BestelService.PlaatsBestelling(..OrderConverter.Converteer(Order))
@@ -167,7 +170,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).AlpnachOud()) {
+		If ((Offerte.GeefKlantID() = ##class(DOM.VKP.enu.SfsKlant).AlpnachOud()) || (Offerte.GeefKlantID() = ##class(DOM.VKP.enu.SfsKlant).Alpnach())) {
 			Do ##class(TECH.Exceptions.InvalidInputException).Throw("Er bestaat reeds een offerte met OrderReferentie '"_Order.OrderReferentie_"' voor klant Alpnach.")
 		}
 	}
Index: vhUnitTest/EXT/Unishop/PurchaseOrder001/BestandVerwerker/VerwerkBestand/Test.cls.xml
===================================================================
diff -u -r54695 -r54758
--- vhUnitTest/EXT/Unishop/PurchaseOrder001/BestandVerwerker/VerwerkBestand/Test.cls.xml	(.../Test.cls.xml)	(revision 54695)
+++ vhUnitTest/EXT/Unishop/PurchaseOrder001/BestandVerwerker/VerwerkBestand/Test.cls.xml	(.../Test.cls.xml)	(revision 54758)
@@ -198,7 +198,7 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test: Indien Alpnach al eens een order met dezelfde OrderReferentie heeft doorgestuurd, smijten we een error">
+<Method name="Test: Indien AlpnachOud 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()
@@ -227,6 +227,41 @@
 ]]></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"
+	#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.SfsKlant).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).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)
+	
+	#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)
+	Do Verwerker.VerwerkBestand(..BestandVolledigeNaam)
+]]></Implementation>
+</Method>
+
 <Method name="Arrange">
 <Private>1</Private>
 <Implementation><![CDATA[