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 '= "") {