Index: EXT/Unishop/PurchaseOrder001/BestandVerwerker.cls.xml
===================================================================
diff -u -r54219 -r54352
--- EXT/Unishop/PurchaseOrder001/BestandVerwerker.cls.xml	(.../BestandVerwerker.cls.xml)	(revision 54219)
+++ EXT/Unishop/PurchaseOrder001/BestandVerwerker.cls.xml	(.../BestandVerwerker.cls.xml)	(revision 54352)
@@ -48,8 +48,18 @@
 <Private>1</Private>
 </Property>
 
+<Property name="DocumentReferentiesRepository">
+<Type>DOM.VKP.DocumentReferentiesRepository</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="OfferteRepository">
+<Type>APPS.VKP.Offerte.OfferteRepository</Type>
+<Private>1</Private>
+</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</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</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
@@ -62,6 +72,8 @@
 	Set ..KlantBepaler = $$$Inject(KlantBepaler, ##class(DOM.common.impl.PersonalityKlantBepaler).%New())
 	Set ..CommonApi = $$$Inject(CommonApi, ##class(DOM.DomeinContext).Instance().GeefCommonAPI())
 	Set ..VerkoopApi = $$$Inject(VerkoopApi, ##class(DOM.DomeinContext).Instance().GeefVerkoopAPI())
+	Set ..DocumentReferentiesRepository = $$$Inject(DocumentReferentiesRepository, ##class(DOM.VKP.DocumentReferentiesRepository).%New())
+	Set ..OfferteRepository = $$$Inject(OfferteRepository, ##class(APPS.VKP.Offerte.impl.OfferteRepository).%New())
 	
 	Quit $$$OK
 ]]></Implementation>
@@ -76,6 +88,10 @@
 	#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 = "SFS_83723") && ($$$HasLength(Order.OrderReferentie))) {
+		Do ..CheckDubbels(Order)
+	}
+	
 	If ($IsObject(..OrderConverter)) {
 		#dim Resultaat As APPS.EDI.Bestel.BestelService.PlaatsBestelling.Resultaat = ..BestelService.PlaatsBestelling(..OrderConverter.Converteer(Order))
 		If $IsObject(Resultaat.Exceptie) {
@@ -142,6 +158,21 @@
 	Do ..MailApi.VerstuurMail(Mail)
 ]]></Implementation>
 </Method>
+
+<Method name="CheckDubbels">
+<FormalSpec>Order:EXT.Unishop.PurchaseOrder001.CreateOrder.Order</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim DocumentReferentiesIterator As TECH.Iterator = ..DocumentReferentiesRepository.ZoekViaOrderReferentie(Order.OrderReferentie)
+	If DocumentReferentiesIterator.HasNext() {
+		#dim DocumentReferenties As DOM.VKP.DocumentReferenties = DocumentReferentiesIterator.Next()
+		#dim Offerte As APPS.VKP.Offerte = ..OfferteRepository.GeefViaDocumentReferentiesId(DocumentReferenties.GeefID())
+		If (Offerte.GeefKlantID() = "SFS_83723") {
+			Do ##class(TECH.Exceptions.InvalidInputException).Throw("Er bestaat reeds een offerte met OrderReferentie '"_Order.OrderReferentie_"' voor klant Alpnach.")
+		}
+	}
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: vhUnitTest/EXT/Unishop/PurchaseOrder001/BestandVerwerker/VerwerkBestand/Test.cls.xml
===================================================================
diff -u -r54219 -r54352
--- vhUnitTest/EXT/Unishop/PurchaseOrder001/BestandVerwerker/VerwerkBestand/Test.cls.xml	(.../Test.cls.xml)	(revision 54219)
+++ vhUnitTest/EXT/Unishop/PurchaseOrder001/BestandVerwerker/VerwerkBestand/Test.cls.xml	(.../Test.cls.xml)	(revision 54352)
@@ -95,8 +95,11 @@
 <Implementation><![CDATA[
 	Set XmlCorrelaterSpy = ##class(vhTest.Spy.TECH.XMLCorrelater).%New()
 	Set DummyEdiBestelService = ##class(vhTest.Dummy.APPS.EDI.Bestel.BestelService).%New()
+	
+	Set DocumentReferentiesRepositoryMock = ##class(vhTest.Mock.DOM.VKP.DocumentReferentiesRepository).%New()
+	Do DocumentReferentiesRepositoryMock.IndienMethodCall("ZoekViaOrderReferentie",$$$ElkeWaarde).DanReturn(..EmptyIterator())
 
-	Set Verwerker = ##class(EXT.Unishop.PurchaseOrder001.BestandVerwerker).%New(XmlCorrelaterSpy, DummyEdiBestelService, ##class(vhTest.Fake.TECH.Mail.MailAPI).%New())
+	Set Verwerker = ##class(EXT.Unishop.PurchaseOrder001.BestandVerwerker).%New(XmlCorrelaterSpy, DummyEdiBestelService, ##class(vhTest.Fake.TECH.Mail.MailAPI).%New(),,,,DocumentReferentiesRepositoryMock)
 	Do Verwerker.VerwerkBestand(..BestandVolledigeNaam)
 	
 	#dim CorrelatedObjects As %ListOfObjects = XmlCorrelaterSpy.GeefObjecten()
@@ -132,7 +135,10 @@
 	
 	Set EdiBestelServiceSpy = ##class(vhTest.Spy.APPS.EDI.Bestel.BestelService).%New()
 	
-	Set Verwerker = ##class(EXT.Unishop.PurchaseOrder001.BestandVerwerker).%New(StubCorrelator, EdiBestelServiceSpy, ##class(vhTest.Fake.TECH.Mail.MailAPI).%New())
+	Set DocumentReferentiesRepositoryMock = ##class(vhTest.Mock.DOM.VKP.DocumentReferentiesRepository).%New()
+	Do DocumentReferentiesRepositoryMock.IndienMethodCall("ZoekViaOrderReferentie",DummyOrder.OrderReferentie).DanReturn(..EmptyIterator())
+	
+	Set Verwerker = ##class(EXT.Unishop.PurchaseOrder001.BestandVerwerker).%New(StubCorrelator, EdiBestelServiceSpy, ##class(vhTest.Fake.TECH.Mail.MailAPI).%New(),,,,DocumentReferentiesRepositoryMock)
 	Do Verwerker.VerwerkBestand(..BestandVolledigeNaam)
 	
 	#dim Aanvraag As APPS.EDI.Bestel.BestelService.PlaatsBestelling.Aanvraag = EdiBestelServiceSpy.GeefAanvraag()
@@ -190,6 +196,35 @@
 ]]></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 = ##class(vhTest.Utils.APPS.VKP.Offerte).StandaardOfferte()
+	Do OfferteStub.ZetKlantID("SFS_83723")
+	Set OfferteRepository = ##class(vhTest.Mock.APPS.VKP.Offerte.OfferteRepository).%New()
+	Do OfferteRepository.IndienMethodCall("GeefViaDocumentReferentiesId",DocumentReferentiesId).DanReturn(OfferteStub)
+	
+	#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[
@@ -226,7 +261,10 @@
 	Set ..CorrelaterStub = ##class(vhTest.Mock.TECH.XMLCorrelater).%New()
 	Do ..CorrelaterStub.IndienMethodCall("GeefObjectVanBestand", ..BestandVolledigeNaam, "EXT.Unishop.PurchaseOrder001.CreateOrder.Order", "PurchaseOrder").DanReturn(..DummyOrder)
 	
-	Set ..Verwerker = ##class(EXT.Unishop.PurchaseOrder001.BestandVerwerker).%New(..CorrelaterStub, ..EdiBestelServiceMock, ..MailApiMock, ..VerkoopApiStub, ..PersonalityKlantBepalerStub, ..CommonApiStub)
+	Set DocumentReferentiesRepositoryMock = ##class(vhTest.Mock.DOM.VKP.DocumentReferentiesRepository).%New()
+	Do DocumentReferentiesRepositoryMock.IndienMethodCall("ZoekViaOrderReferentie",..DummyOrder.OrderReferentie).DanReturn(..EmptyIterator())
+	
+	Set ..Verwerker = ##class(EXT.Unishop.PurchaseOrder001.BestandVerwerker).%New(..CorrelaterStub, ..EdiBestelServiceMock, ..MailApiMock, ..VerkoopApiStub, ..PersonalityKlantBepalerStub, ..CommonApiStub, DocumentReferentiesRepositoryMock)
 ]]></Implementation>
 </Method>