1 APPS.EC.Verkoop.impl.VerkoopService,APPS.EC.Verkoop.ExterneVerkoopService APPS.EC.Verkoop.impl.GeldigheidVermeldingBepaler 1 APPS.common.dto.Applicatie 1 APPS.VKP.event.OfferteEventRaiser 1 OfferteService:APPS.VKP.OfferteService="",WinkelkarService:APPS.EC.Winkelkar.WinkelkarService="",WinkelkarRepository:DOM.EC.Winkelkar.impl.WinkelkarRepository="",OfferteRepository:APPS.VKP.Offerte.impl.OfferteRepository="",OfferteEventRaiser:APPS.VKP.event.OfferteEventRaiser 1 1 %Status 1 OfferteID:%String APPS.EC.dto.Offerte Offerte:APPS.VKP.Offerte OfferteID:%String APPS.EC.dto.Offerte KlantID:DOM.VKP.VanHoeckeKlantID,PersonalityID:DOM.common.enu.Personality,ExterneId:%String="" APPS.EC.dto.OfferteIDEnWinkelkarID Offerte:APPS.VKP.Offerte Offerte:APPS.VKP.Offerte 1 DOM.common.impl.VH.Adres KlantID:DOM.VKP.VanHoeckeKlantID,WebshopVersie:APPS.EC.enu.WebshopVersie %ListOfObjects ELEMENTTYPE="APPS.EC.dto.OfferteSamenvatting" Offerte:APPS.VKP.impl.Offerte 1 APPS.EC.dto.OfferteSamenvatting 0 KlantDataReferentie = " ("_KlantDataReferentie_")" If ..OfferteService.HeeftOfferteVanHandel(Offerte) { #dim OfferteVanHandel As APPS.VKP.Offerte = ..OfferteService.GeefOfferteVanHandel(Offerte) Set OfferteSamenvatting.OrderReferentie = "EDInr: "_OfferteVanHandel.GeefID()_" - " } Set OfferteSamenvatting.OrderReferentie = OfferteSamenvatting.OrderReferentie_Offerte.DocumentReferenties.OrderReferentie_KlantDataReferentie If (Offerte.IsBesteld()) { Set OfferteSamenvatting.Status = "Besteld" } Else { Set OfferteSamenvatting.Status = "Niet besteld" } Set OfferteSamenvatting.WinkelkarID = Offerte.GeefWinkelkarID() Set OfferteSamenvatting.GeldigheidVermelding = ..GeldigheidVermeldingBepaler.BepaalVermelding(Offerte) Set OfferteSamenvatting.IsGeldig = 'Offerte.ZijnPrijzenVervallen() Set OfferteSamenvatting.TotaalPrijsExclusiefBTW = Winkelkar.TotaalPrijs Quit OfferteSamenvatting ]]> OfferteID:%String,KlantID:DOM.VKP.VanHoeckeKlantID,PersonalityID:DOM.common.enu.Personality Offerte:APPS.VKP.Offerte,KlantID:DOM.VKP.VanHoeckeKlantID,PersonalityID:DOM.common.enu.Personality 1 OfferteID:%String,Hoofding:APPS.EC.dto.Hoofding OfferteID:%String %ListOfDataTypes ELEMENTTYPE="%Date" OfferteID:%String %Boolean OfferteID:%String,IngegevenKenmerken:APPS.PM.Maatwerk.dto.IngegevenKenmerken,Aantal:%String,ProjectReferentie:%String="",ExterneId:%String="" %String OfferteID:%String %ListOfObjects ELEMENTTYPE="APPS.common.dto.Adres" OfferteID:%String,KlantID:DOM.VKP.VanHoeckeKlantID,PersonalityID:DOM.common.enu.Personality APPS.EC.dto.Bestelling 1 APPS.common.dto.Applicatie OfferteID:%String APPS.EC.dto.OfferteIDEnWinkelkarID