Index: APPS/EC/Transport/impl/ZendingDetails.cls.xml =================================================================== diff -u -r41668 -r46610 --- APPS/EC/Transport/impl/ZendingDetails.cls.xml (.../ZendingDetails.cls.xml) (revision 41668) +++ APPS/EC/Transport/impl/ZendingDetails.cls.xml (.../ZendingDetails.cls.xml) (revision 46610) @@ -23,23 +23,18 @@ 1 - -APPS.EC.Transport.impl.VerkoopprijsBerekenaarFactory + +APPS.EC.Transport.impl.Factory 1 - -APPS.EC.Transport.impl.TransportFirmaBepalerFactory -1 - - APPS.EC.Transport.dto.KlantIdentificatie 1 -TransportOfferteService:APPS.TRANSP.OfferteService,VerzendingMogelijkheidRepository:APPS.EC.Transport.impl.VerzendingMogelijkheidRepository,VertaalAPI:DOM.common.Transl.VertaalAPI,VerkoopprijsBerekenaarFactory:APPS.EC.Transport.impl.VerkoopprijsBerekenaarFactory,TransportFirmaBepalerFactory:APPS.EC.Transport.impl.TransportFirmaBepalerFactory +TransportOfferteService:APPS.TRANSP.OfferteService,VerzendingMogelijkheidRepository:APPS.EC.Transport.impl.VerzendingMogelijkheidRepository,VertaalAPI:DOM.common.Transl.VertaalAPI,TransportFactory:APPS.EC.Transport.impl.Factory 1 1 %Status @@ -48,8 +43,7 @@ Set ..TransportOfferteService = $$$Implementation(TransportOfferteService, ##class(APPS.TRANSP.impl.OfferteService).%New()) Set ..VerzendingMogelijkheidRepository = $$$Inject(VerzendingMogelijkheidRepository, ##class(APPS.EC.Transport.impl.VerzendingMogelijkheidRepository).%New()) Set ..VertaalAPI = $$$Inject(VertaalAPI, ##class(DOM.DomeinContext).Instance().GeefVertaalAPI()) - Set ..VerkoopprijsBerekenaarFactory = $$$Inject(VerkoopprijsBerekenaarFactory,##class(APPS.EC.Transport.impl.VerkoopprijsBerekenaarFactory).%New()) - Set ..TransportFirmaBepalerFactory = $$$Inject(TransportFirmaBepalerFactory,##class(APPS.EC.Transport.impl.TransportFirmaBepalerFactory).%New()) + Set ..TransportFactory = $$$Inject(TransportFactory,##class(APPS.EC.Transport.impl.Factory).%New()) quit $$$OK ]]> @@ -78,7 +72,7 @@ #dim Exceptions As List Of %String = ##class(%ListOfDataTypes).%New() #dim OfferteDetails As List Of %String = ##class(%ListOfDataTypes).%New() - #dim TransportFirmas As TECH.ListIterator = ..TransportFirmaBepalerFactory.GeefTransportFirmaBepaler(..Sessie).GeefTransportFirmas() + #dim TransportFirmas As TECH.ListIterator = ..TransportFactory.GeefTransportFirmaBepaler(..Sessie).GeefTransportFirmas() While TransportFirmas.HasNext() { #dim TransportFirma As %String = TransportFirmas.Next() try { @@ -175,7 +169,7 @@ Set Verzendingmogelijkheid.Duurtijd = OfferteItem.Duurtijd Set Verzendingmogelijkheid.Omschrijving = OfferteItem.Omschrijving Set Verzendingmogelijkheid.ExtraInfo = ..Vertaler.GeefVertaling(OfferteItem.Omschrijving) - Set Verzendingmogelijkheid.TransportKost = ..VerkoopprijsBerekenaarFactory.GeefVerkoopprijsBerekenaar(..Sessie).BerekenVerkoopPrijs(OfferteItem) + Set Verzendingmogelijkheid.TransportKost = ..TransportFactory.GeefVerkoopprijsBerekenaar(..Sessie).BerekenVerkoopPrijs(OfferteItem) Set Verzendingmogelijkheid.Optie = ..MaakCarbonNeutralOptie(OfferteItem.CarbonNeutralPrijs) Set Verzendingmogelijkheid.TransportFirma = TransportFirma if (OfferteItem.AantalPalletten '= "") {