Index: APPS/EDIExport/AankoopOrderResponse/BLUM/impl/BLOrdRspService.cls.xml =================================================================== diff -u -r37903 -r37933 --- APPS/EDIExport/AankoopOrderResponse/BLUM/impl/BLOrdRspService.cls.xml (.../BLOrdRspService.cls.xml) (revision 37903) +++ APPS/EDIExport/AankoopOrderResponse/BLUM/impl/BLOrdRspService.cls.xml (.../BLOrdRspService.cls.xml) (revision 37933) @@ -74,6 +74,8 @@ Do ..SchrijfToeleveringLijn(Toelevering.ToeleveringHeader.CustomerOrderReference,+ $Piece(ToeleveringDetail.OrderLineIdentificationCustomer,".",2),RecNr,ToeleveringDetail.ToString()) set ProductNr = ..GeefProductNummer(ToeleveringDetail.IdentNumberSupplierBAU,Toelevering.ToeleveringHeader.CustomerNumberForInvoice) if ..ZoekReceptieInKTO5ProductNummer(Toelevering.ToeleveringHeader.CustomerOrderReference, ProductNr,ToeleveringDetail.OrderQuantity){ + ;opvangen van lijnen van voor de migratie naar xml berichten. toelevering wordt helemaal bevestigd,ook reeds geleverde lijnen + ;reeds geleverde lijnen zitten niet meer in KTO, maar in KTO5 maar kunnen ook van een vorige toelevering met de zelfde nummer zijn Do ..ZetRecordAlsVerwerkt(Toelevering.ToeleveringHeader.CustomerOrderReference,$Piece(ToeleveringDetail.OrderLineIdentificationCustomer,".",2),RecNr) } } @@ -283,10 +285,6 @@ do Items.Insert(LijnData) } - if Items.Count()>1 { - set Exception = ##class(TECH.Exceptions.GeneralErrorException).%New("oeps meer dan eentje gevonden voor "_ToelevNr_":"_ToelevLijnNr_":"_Aantal) - do ##class(TECH.ExceptionHandler).Throw(Exception) - } quit (Items.Count() > 0) ]]> @@ -307,10 +305,6 @@ do Items.Insert(LijnData) } - if Items.Count()>1 { - set Exception = ##class(TECH.Exceptions.GeneralErrorException).%New("oeps meer dan eentje gevonden voor "_ToelevNr_":"_ProductNummer_":"_Aantal) - do ##class(TECH.ExceptionHandler).Throw(Exception) - } quit (Items.Count() > 0) ]]>