Index: vhTest/Fake/APPS/EC/Verkoop/impl/OfferteConverter.cls.xml =================================================================== diff -u --- vhTest/Fake/APPS/EC/Verkoop/impl/OfferteConverter.cls.xml (revision 0) +++ vhTest/Fake/APPS/EC/Verkoop/impl/OfferteConverter.cls.xml (revision 42570) @@ -0,0 +1,19 @@ + + + + +Deze klasse werd automatisch gegenereerd en onderhouden, nieuwe methodes worden automatisch bijgevoegd, bestaande blijven zoals ze zijn. +Een hercompilatie van de basis interface - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt +1 +APPS.EC.Verkoop.impl.OfferteConverter + + +Offerte:APPS.VKP.Offerte +APPS.EC.dto.Offerte + + + + + + Index: APPS/EC/Verkoop/impl/OfferteConverter.cls.xml =================================================================== diff -u -r42491 -r42570 --- APPS/EC/Verkoop/impl/OfferteConverter.cls.xml (.../OfferteConverter.cls.xml) (revision 42491) +++ APPS/EC/Verkoop/impl/OfferteConverter.cls.xml (.../OfferteConverter.cls.xml) (revision 42570) @@ -1,7 +1,7 @@ -TECH.RegisteredObject +TECH.Mockable APPS.EC.Winkelkar.WinkelkarService @@ -49,7 +49,7 @@ Set Resultaat = ##class(APPS.EC.dto.Offerte).%New() Set Resultaat.OfferteID = Offerte.GeefID() Set Resultaat.Hoofding = ..ConverteerHoofdingNaarECommerce(Offerte) - Set Resultaat.Winkelkar = ..WinkelkarService.GeefWinkelkar(Offerte.WinkelkarID) + Set Resultaat.Winkelkar = ..WinkelkarService.GeefWinkelkar(Offerte.GeefWinkelkarID()) Set Resultaat.GeldigheidVermelding = ..GeldigheidVermeldingBepaler.BepaalVermelding(Offerte) Set Resultaat.PrijzenGeldigTotEnMetDatum = Offerte.GeefPrijzenGeldigTotEnMetDatum() @@ -70,19 +70,19 @@ #Dim Hoofding As APPS.EC.dto.Hoofding = ##class(APPS.EC.dto.Hoofding).%New() Set Hoofding.BestelDatum = Offerte.GeefBestelDatum() - Set Hoofding.BestelOpmerking = Offerte.BestelOpmerking + Set Hoofding.BestelOpmerking = Offerte.GeefBestelOpmerking() Set Hoofding.Referentie = ##class(APPS.VKP.dto.DocumentReferenties).%New() - Set Hoofding.Referentie.OrderReferentie = Offerte.DocumentReferenties.OrderReferentie - Set Hoofding.Referentie.CommissieReferentie = Offerte.DocumentReferenties.CommissieReferentie - Set Hoofding.Referentie.KlantOrderNummer = Offerte.DocumentReferenties.KlantOrderNummer + Set Hoofding.Referentie.OrderReferentie = Offerte.GeefDocumentReferenties().OrderReferentie + Set Hoofding.Referentie.CommissieReferentie = Offerte.GeefDocumentReferenties().CommissieReferentie + Set Hoofding.Referentie.KlantOrderNummer = Offerte.GeefDocumentReferenties().KlantOrderNummer Set Hoofding.LeveringDetail = ##class(APPS.EC.dto.LeveringDetail).%New() If ($isObject(Offerte.GeefLeverAdres())) { Set Hoofding.LeveringDetail.Adres = ##class(APPS.common.impl.AdresConvertor).%New().NaarDataTransferObject(Offerte.GeefLeverAdres()) } - Set Hoofding.LeveringDetail.Datum = Offerte.LeverDatum - Set Hoofding.LeveringDetail.WensDatum = Offerte.WensLeverDatum + Set Hoofding.LeveringDetail.Datum = Offerte.GeefLeverDatum() + Set Hoofding.LeveringDetail.WensDatum = Offerte.GeefWensLeverDatum() Quit Hoofding ]]> Index: vhTest/Mock/APPS/EC/Verkoop/impl/OfferteConverter.cls.xml =================================================================== diff -u --- vhTest/Mock/APPS/EC/Verkoop/impl/OfferteConverter.cls.xml (revision 0) +++ vhTest/Mock/APPS/EC/Verkoop/impl/OfferteConverter.cls.xml (revision 42570) @@ -0,0 +1,20 @@ + + + + +Deze klasse werd automatisch gegenereerd en onderhouden - lokale aanpassingen zijn niet nodig. +Een hercompilatie van de basis interface - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt +1 +APPS.EC.Verkoop.impl.OfferteConverter,Tools.Mock.MockClassBase +right + + +Offerte:APPS.VKP.Offerte +APPS.EC.dto.Offerte + + + + + +