1 TECH.RegisteredObject,APPS.EC.ExterneVerkoopService APPS.VKP.OfferteService 1 APPS.EC.impl.ExterneVerkoopService.OfferteHerberekening 1 APPS.EC.ExterneVerkoopService.GeldigheidVermeldingBepaler 1 APPS.EC.Winkelkar.WinkelkarService 1 APPS.common.dto.Applicatie 1 OfferteService:APPS.VKP.OfferteService,WinkelkarService:APPS.EC.Winkelkar.WinkelkarService="" 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 APPS.EC.dto.OfferteIDEnWinkelkarID Offerte:APPS.VKP.Offerte Offerte:APPS.VKP.Offerte 1 DOM.common.impl.VH.Adres OfferteID:%String KlantID:DOM.VKP.VanHoeckeKlantID %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 Tekst:%String 1 %String OfferteID:%String %ListOfDataTypes ELEMENTTYPE="%Date" OfferteID:%String,IngegevenKenmerken:APPS.PM.Maatwerk.dto.IngegevenKenmerken,Aantal:%String,ProjectReferentie:%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