Index: vhUnitTest/WS/EC/Unishop/InternationaleZending/impl/ZendingDetails/Test.cls.xml =================================================================== diff -u -r37074 -r37112 --- vhUnitTest/WS/EC/Unishop/InternationaleZending/impl/ZendingDetails/Test.cls.xml (.../Test.cls.xml) (revision 37074) +++ vhUnitTest/WS/EC/Unishop/InternationaleZending/impl/ZendingDetails/Test.cls.xml (.../Test.cls.xml) (revision 37112) @@ -23,7 +23,7 @@ ]]> - + - + - + - + - + - + - -1 -%Date - - - - + - + - + - + + + +1 +%Date + + Index: WS/EC/Unishop/InternationaleZending/impl/ZendingDetails.cls.xml =================================================================== diff -u -r37074 -r37112 --- WS/EC/Unishop/InternationaleZending/impl/ZendingDetails.cls.xml (.../ZendingDetails.cls.xml) (revision 37074) +++ WS/EC/Unishop/InternationaleZending/impl/ZendingDetails.cls.xml (.../ZendingDetails.cls.xml) (revision 37112) @@ -66,7 +66,7 @@ Do ..VerzendingMogelijkheidRepository.VerwijderViaOfferteID(BerekenInput.Referentie) - Set ZendingDetails = ##class(WS.EC.ExterneVerkoop.dto.VerzendingMogelijkheden).%New() + Set VerzendingMogelijkheden = ##class(WS.EC.ExterneVerkoop.dto.VerzendingMogelijkheden).%New() #dim Exceptions As List Of %String = ##class(%ListOfDataTypes).%New() #dim OfferteDetails As List Of %String = ##class(%ListOfDataTypes).%New() @@ -81,9 +81,9 @@ #dim OfferteDataIterator As TECH.ListIterator = ##class(TECH.ListIterator).%New(OfferteData.Items) While OfferteDataIterator.HasNext() { #dim OfferteDataItem As APPS.TRANSP.OfferteService.dto.OfferteItem = OfferteDataIterator.Next() - #dim ZendingDetail As WS.EC.ExterneVerkoop.dto.VerzendingMogelijkheid = ..GeefZendingDetail(TransportFirma, OfferteDataItem) - Do ZendingDetails.VerzendingMogelijkheidList.Insert(ZendingDetail) - Do ..VerzendingMogelijkheidRepository.Bewaar(..ConverteerZendingDetail(BerekenInput.Referentie, ZendingDetail, OfferteDataItem)) + #dim Verzendingmogelijkheid As WS.EC.ExterneVerkoop.dto.VerzendingMogelijkheid = ..MaakVerzendingmogelijkheid(TransportFirma, OfferteDataItem) + Do VerzendingMogelijkheden.VerzendingMogelijkheidList.Insert(Verzendingmogelijkheid) + Do ..VerzendingMogelijkheidRepository.Bewaar(..ConverteerVerzendingMogelijkheid(BerekenInput.Referentie, Verzendingmogelijkheid, OfferteDataItem)) } } catch { Do Exceptions.Insert(##class(TECH.ExceptionHandler).Catch().ToString()) @@ -95,13 +95,13 @@ Do ..ThrowException(Exceptions, OfferteDetails) } - if (ZendingDetails.VerzendingMogelijkheidList.Count() = 1){ - Set ZendingDetails.Titel = ..Vertaler.GeefVertaling("ZendingDetailsTitelVoorEenVerzendingMogelijkheid") + if (VerzendingMogelijkheden.VerzendingMogelijkheidList.Count() = 1){ + Set VerzendingMogelijkheden.Titel = ..Vertaler.GeefVertaling("ZendingDetailsTitelVoorEenVerzendingMogelijkheid") } else { - Set ZendingDetails.Titel = ..Vertaler.GeefVertaling("ZendingDetailsTitel") + Set VerzendingMogelijkheden.Titel = ..Vertaler.GeefVertaling("ZendingDetailsTitel") } - Quit ZendingDetails + Quit VerzendingMogelijkheden ]]> @@ -138,55 +138,55 @@ ]]> - + TransportFirma:%String,OfferteItem:APPS.TRANSP.OfferteService.dto.OfferteItem 1 WS.EC.ExterneVerkoop.dto.VerzendingMogelijkheid - + CarbonNeutralPrijs:TECH.Decimal 1 WS.EC.ExterneVerkoop.dto.Optie - + OfferteLeverDag:%String 1 %String @@ -203,43 +203,45 @@ ]]> - -OfferteID:%String,ZendingDetail:WS.EC.ExterneVerkoop.dto.VerzendingMogelijkheid,OfferteItem:APPS.TRANSP.OfferteService.dto.OfferteItem + +OfferteID:%String,VerzendingMogelijkheid:WS.EC.ExterneVerkoop.dto.VerzendingMogelijkheid,OfferteItem:APPS.TRANSP.OfferteService.dto.OfferteItem 1 WSdata.EC.ExterneVerkoop.VerzendingMogelijkheid.VerzendingMogelijkheid - -ZendingDetail:WS.EC.ExterneVerkoop.dto.VerzendingMogelijkheid,OfferteItem:APPS.TRANSP.OfferteService.dto.OfferteItem + +VerzendingMogelijkheid:WS.EC.ExterneVerkoop.dto.VerzendingMogelijkheid,OfferteItem:APPS.TRANSP.OfferteService.dto.OfferteItem +1 WSdata.EC.ExterneVerkoop.VerzendingMogelijkheid.VerzendingItem CarbonNeutral:WS.EC.ExterneVerkoop.dto.Optie +1 WSdata.EC.ExterneVerkoop.VerzendingMogelijkheid.Optie MogelijkeWaarden:%ListOfObjects(ELEMENTTYPE="WS.EC.ExterneVerkoop.dto.Selectie") +1 %ListOfObjects ELEMENTTYPE="WSdata.EC.ExterneVerkoop.VerzendingMogelijkheid.Selectie" WS.EC.Unishop.InternationaleZending.impl.ZendingDetails,Tools.Mock.MockClassBase right - -CarbonNeutral:WS.EC.ExterneVerkoop.dto.Optie -WSdata.EC.ExterneVerkoop.VerzendingMogelijkheid.Optie - - - - -MogelijkeWaarden:%ListOfObjects(ELEMENTTYPE="WS.EC.ExterneVerkoop.dto.Selectie") -%ListOfObjects - - - - -ZendingDetail:WS.EC.ExterneVerkoop.dto.VerzendingMogelijkheid,OfferteItem:APPS.TRANSP.OfferteService.dto.OfferteItem -WSdata.EC.ExterneVerkoop.VerzendingMogelijkheid.VerzendingItem - - - BerekenInput:APPS.TRANSP.OfferteService.dto.BerekenInput,Taal:DOM.enu.Taal="N" WS.EC.ExterneVerkoop.dto.VerzendingMogelijkheden Index: vhTest/Fake/WS/EC/Unishop/InternationaleZending/impl/ZendingDetails.cls.xml =================================================================== diff -u -r37073 -r37112 --- vhTest/Fake/WS/EC/Unishop/InternationaleZending/impl/ZendingDetails.cls.xml (.../ZendingDetails.cls.xml) (revision 37073) +++ vhTest/Fake/WS/EC/Unishop/InternationaleZending/impl/ZendingDetails.cls.xml (.../ZendingDetails.cls.xml) (revision 37112) @@ -8,107 +8,11 @@ WS.EC.Unishop.InternationaleZending.impl.ZendingDetails -BerekenInput:APPS.TRANSP.OfferteService.dto.BerekenInput +BerekenInput:APPS.TRANSP.OfferteService.dto.BerekenInput,Taal:DOM.enu.Taal="N" WS.EC.ExterneVerkoop.dto.VerzendingMogelijkheden - - -CarbonNeutral:WS.EC.ExterneVerkoop.dto.Optie -WSdata.EC.ExterneVerkoop.VerzendingMogelijkheid.Optie - - - - -CarbonNeutral:WS.EC.ExterneVerkoop.dto.Optie -WSdata.EC.ExterneVerkoop.VerzendingMogelijkheid.Optie - - - - -MogelijkeWaarden:%ListOfObjects(ELEMENTTYPE="WS.EC.ExterneVerkoop.dto.Selectie") -%ListOfObjects - - - - -ZendingDetail:WS.EC.ExterneVerkoop.dto.VerzendingMogelijkheid -WSdata.EC.ExterneVerkoop.VerzendingMogelijkheid.VerzendingItem - - - - -ZendingDetail:WS.EC.ExterneVerkoop.dto.VerzendingMogelijkheid,OfferteItem:APPS.TRANSP.OfferteService.dto.OfferteItem -WSdata.EC.ExterneVerkoop.VerzendingMogelijkheid.VerzendingItem - - - - -CarbonNeutral:WS.EC.ExterneVerkoop.dto.Optie -WSdata.EC.ExterneVerkoop.VerzendingMogelijkheid.Optie - - - - -MogelijkeWaarden:%ListOfObjects(ELEMENTTYPE="WS.EC.ExterneVerkoop.dto.Selectie") -%ListOfObjects - - - - -OptieDto:WS.EC.ExterneVerkoop.dto.Optie -WSdata.EC.ExterneVerkoop.VerzendingMogelijkheid.Optie - - - - -MogelijkeWaardenDto:%ListOfObjects(ELEMENTTYPE="WS.EC.ExterneVerkoop.dto.Selectie") -%ListOfObjects - - - - -VerzendingMogelijkheidDto:WS.EC.ExterneVerkoop.dto.VerzendingMogelijkheid,OfferteItem:APPS.TRANSP.OfferteService.dto.OfferteItem -WSdata.EC.ExterneVerkoop.VerzendingMogelijkheid.VerzendingItem - - - - -MogelijkeWaarden:%ListOfObjects(ELEMENTTYPE="WS.EC.ExterneVerkoop.dto.Selectie") -%ListOfObjects - - - - -DOM.common.Transl.Vertaler - - - - -Verzending:WS.EC.ExterneVerkoop.dto.VerzendingMogelijkheid -WSdata.EC.ExterneVerkoop.VerzendingMogelijkheid.VerzendingItem - - - - -Taal:DOM.enu.Taal="N" - -