Index: APPS/VKP/Offerte/impl/BesteldeOfferteMelder/personality/common/dto/OfferteGenerator.cls.xml
===================================================================
diff -u -r35902 -r35907
--- APPS/VKP/Offerte/impl/BesteldeOfferteMelder/personality/common/dto/OfferteGenerator.cls.xml	(.../OfferteGenerator.cls.xml)	(revision 35902)
+++ APPS/VKP/Offerte/impl/BesteldeOfferteMelder/personality/common/dto/OfferteGenerator.cls.xml	(.../OfferteGenerator.cls.xml)	(revision 35907)
@@ -56,8 +56,9 @@
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
 	Set ..WinkelkarService = $$$Inject(WinkelkarService, ##class(APPS.EC.Winkelkar.impl.WinkelkarService).%New())
-	set ..WinkelkarRepository = $$$Inject(WinkelkarRepository,##class(DOM.EC.Winkelkar.impl.WinkelkarRepository).%New())
+	set ..WinkelkarRepository = $$$Inject(WinkelkarRepository, ##class(DOM.EC.Winkelkar.impl.WinkelkarRepository).%New())
 	Set ..FormatAPI = ##class(TECH.Context).Instance().GeefFormatAPI()
+	
 	Quit $$$OK
 ]]></Implementation>
 </Method>
@@ -68,9 +69,11 @@
 <Implementation><![CDATA[
 	Do ..Initialiseer(Offerte)
 	
-	Set ..OfferteDto=##class(APPS.VKP.Offerte.impl.BesteldeOfferteMelder.personality.common.dto.Offerte).%New()
+	Set ..OfferteDto = ##class(APPS.VKP.Offerte.impl.BesteldeOfferteMelder.personality.common.dto.Offerte).%New()
+	
 	Do ..VulInOfferteHoofding(Offerte)
 	Do ..VulInOfferteLijnen(Offerte)
+	
 	Quit ..OfferteDto
 ]]></Implementation>
 </Method>
@@ -80,47 +83,48 @@
 <Private>1</Private>
 <Implementation><![CDATA[
 	Set ..Winkelkar = ..WinkelkarRepository.GeefViaID(Offerte.GeefWinkelkarID())
+	
 	Do ..ControleerPersonality()
 	
-	Set ..Taal=..Winkelkar.GeefPersonality().GeefTaal()
-	Set ..TotaalEnPrijsBerekenaar=##class(APPS.EC.Winkelkar.impl.TotaalEnPrijsBerekenaar).%New(..Winkelkar)
-	Set ..LijnVolgnummer=0
-	
+	Set ..Taal = ..Winkelkar.GeefPersonality().GeefTaal()
+	Set ..TotaalEnPrijsBerekenaar = ##class(APPS.EC.Winkelkar.impl.TotaalEnPrijsBerekenaar).%New(..Winkelkar)
+	Set ..LijnVolgnummer = 0
 	Set ..ActieDefinitieRepository = ##class(DOM.EC.Winkelkar.Actie.impl.MaatwerkActieDefinitieObjectRepository).%New()
 ]]></Implementation>
 </Method>
 
 <Method name="ControleerPersonality">
 <Private>1</Private>
 <Implementation><![CDATA[
-	#dim Message As %String
+	#dim Message As %String = "OfferteGenerator voor winkelkar " _ ..Winkelkar.GeefID() _ ": "
 
-	If ..Winkelkar.GeefPersonalityID() = "" {
-		Set Message="OfferteDtoGenerator voor winkelkar "_..Winkelkar.GeefID()_" : Personality is leeg."
-		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New(Message))
+	If (..Winkelkar.GeefPersonalityID() = "") {
+		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New(Message _ "Personality is leeg."))
+	} Else {
+		#dim WinkelkarPersonalityId As %String = ..Winkelkar.GeefPersonalityID()
+		#dim ContextPersonalityId As %String = ##class(TECH.Context.RuntimeContext).Instance().GeefPersonalityID()
+		
+		If $$$Not(WinkelkarPersonalityId = ContextPersonalityId) {
+			Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New(Message _ "Personality van de winkelkar (" _ WinkelkarPersonalityId _ ") komt niet overeen met deze van de RuntimeContext (" _ ContextPersonalityId _ ")"))
+		}
 	}
-	ElseIf ..Winkelkar.GeefPersonalityID() '= ##class(TECH.Context.RuntimeContext).Instance().GeefPersonalityID() {
-		Set Message="OfferteDtoGenerator voor winkelkar "_..Winkelkar.GeefID()_" : Personality van de winkelkar ("_..Winkelkar.GeefPersonalityID()_") komt niet overeen met deze van de RuntimeContext ("_##class(TECH.Context.RuntimeContext).Instance().GeefPersonalityID()_")"
-		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New(Message))
-	}
 ]]></Implementation>
 </Method>
 
 <Method name="VulInOfferteHoofding">
 <FormalSpec>Offerte:APPS.VKP.impl.Offerte</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
-	Set ..OfferteDto.EDINummer    = Offerte.GeefEDINummerVoorEindklant()
+	Set ..OfferteDto.EDINummer = Offerte.GeefEDINummerVoorEindklant()
 	
 	Do ..VulInOfferteHoofdingKlantGegevens(Offerte)
 	
-	Set ..OfferteDto.LeverDatum   = ..GeefGeformatteerdeWensLeverDatum(Offerte.WensLeverDatum)
-	Set ..OfferteDto.Opmerking1   = Offerte.BestelOpmerking
-	Set ..OfferteDto.SubmitTS     = ..GeefGeformatteerdeDatum(Offerte.GeefBestelDatum())
+	Set ..OfferteDto.LeverDatum = ..GeefGeformatteerdeWensLeverDatum(Offerte.WensLeverDatum)
+	Set ..OfferteDto.Opmerking1 = Offerte.BestelOpmerking
+	Set ..OfferteDto.SubmitTS = ..GeefGeformatteerdeDatum(Offerte.GeefBestelDatum())
 	Set ..OfferteDto.URLPrintPage = ##class(APPS.EC.Webshop.impl.OfferteUrlBepaler).%New().GeefURL(Offerte, ##class(APPS.EC.enu.WebshopModus).AlleenLezen())
-
-	Set ..OfferteDto.EindklantTotaalPrijs  = ..GeefPrijsObject(..TotaalEnPrijsBerekenaar.GeefEindklantTotaalPrijs(), ..TotaalEnPrijsBerekenaar.GeefMuntVoorVerkoopPrijs())
-	Set ..OfferteDto.VHKlantTotaalPrijs    = ..GeefPrijsObject(..TotaalEnPrijsBerekenaar.GeefVHKlantTotaalPrijs(), ..TotaalEnPrijsBerekenaar.GeefMuntVoorAankoopPrijs())
+	Set ..OfferteDto.EindklantTotaalPrijs = ..GeefPrijsObject(..TotaalEnPrijsBerekenaar.GeefEindklantTotaalPrijs(), ..TotaalEnPrijsBerekenaar.GeefMuntVoorVerkoopPrijs())
+	Set ..OfferteDto.VHKlantTotaalPrijs = ..GeefPrijsObject(..TotaalEnPrijsBerekenaar.GeefVHKlantTotaalPrijs(), ..TotaalEnPrijsBerekenaar.GeefMuntVoorAankoopPrijs())
 	Set ..OfferteDto.TotaalAantalProducten = ..TotaalEnPrijsBerekenaar.GeefTotaalAantalProducten()
 ]]></Implementation>
 </Method>
@@ -134,9 +138,9 @@
 	#dim DataService As APPS.common.DataService = ##class(APPS.ApplicatieContext).Instance().GeefCommonAPI().GeefDataService()
 	#dim KlantData As DOM.common.dto.KlantData = DataService.GeefKlantData(Offerte.GeefKlantID())
 	// Opmerking : het KlantData-object zal afhankelijk zijn van de Personality. Is voorlopig enkel voor SFS en zal dus later moeten ge-refactored worden. 
-	Set ..OfferteDto.KlantNummer  = KlantData.Code
-	Set ..OfferteDto.KlantNaam    = KlantData.Naam
-	Set ..OfferteDto.KlantKorting = 0   ;  --> KlantDataBepaler.GeefKlantKorting() 
+	Set ..OfferteDto.KlantNummer = KlantData.Code
+	Set ..OfferteDto.KlantNaam = KlantData.Naam
+	Set ..OfferteDto.KlantKorting = 0 ; --> KlantDataBepaler.GeefKlantKorting() 
 	Set ..OfferteDto.KlantOrderReferentie = Offerte.DocumentReferenties.OrderReferentie
 ]]></Implementation>
 </Method>
@@ -147,17 +151,17 @@
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
 	#dim GeformatteerdeDatum As %String = ""
+	
 	Try {
-		If $L(Datum) {
+		If $Length(Datum) {
 			#dim Timestamp As %TimeStamp = ##class(TECH.Context).Instance().GeefDateTimeAPI().DateToTimeStamp(Datum)
-			Set GeformatteerdeDatum=..FormatAPI.FormatTimeStamp(Timestamp,"yyyy-mm-dd hh:nn:ss")
+			Set GeformatteerdeDatum = ..FormatAPI.FormatTimeStamp(Timestamp, "yyyy-mm-dd hh:nn:ss")
 		}
-	}
-	Catch {
+	} Catch {
 		Do ##class(TECH.ExceptionHandler).Catch()
-		// Rapporteer foutief datumformaat.  Moet gevalideerd worden bij input, dus zou hier wel correct moeten zijn. 
-		// Silent catch  :-P 
+		// Rapporteer foutief datumformaat. Silent catch: moet gevalideerd worden bij input, dus zou hier wel correct moeten zijn. 
 	}
+	
 	Quit GeformatteerdeDatum
 ]]></Implementation>
 </Method>
@@ -168,20 +172,19 @@
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
 	#dim GeformatteerdeWensLeverDatum As %String = WensLeverDatum
-	If ..WensLeverDatumHeeftGeldigFormaat(WensLeverDatum) {
+	
+	If (..WensLeverDatumHeeftGeldigFormaat(WensLeverDatum)) {
 		Try {
-			#dim OmgezetteDatum As %Date = $ZDH($TR(WensLeverDatum,".","/"),4)
+			#dim OmgezetteDatum As %Date = $ZDateH($Translate(WensLeverDatum,".","/"),4)
 			Set GeformatteerdeWensLeverDatum=..FormatAPI.FormatDate(OmgezetteDatum,"yyyymmdd")
-		}
-		Catch {
+		} Catch {
 			Do ##class(TECH.ExceptionHandler).Catch()
-			// Rapporteer foutief datumformaat.  Moet gevalideerd worden bij input, dus zou hier wel correct moeten zijn. 
-			// Silent catch  :-P 
-
+			// Rapporteer foutief datumformaat. Silent catch: moet gevalideerd worden bij input, dus zou hier wel correct moeten zijn. 
 			// Return ongeformatteerde datum
-			Set GeformatteerdeWensLeverDatum=WensLeverDatum
+			Set GeformatteerdeWensLeverDatum = WensLeverDatum
 		}
 	}
+	
 	Quit GeformatteerdeWensLeverDatum
 ]]></Implementation>
 </Method>
@@ -198,7 +201,8 @@
 <FormalSpec>Offerte:APPS.VKP.Offerte</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
-	Set MaatwerkLijnIterator=##class(TECH.ListIterator).%New(..WinkelkarService.GeefMaatwerkLijnen(Offerte.GeefWinkelkarID()))
+	#dim MaatwerkLijnIterator As TECH.Iterator = ##class(TECH.ListIterator).%New(..WinkelkarService.GeefMaatwerkLijnen(Offerte.GeefWinkelkarID()))
+	
 	While (MaatwerkLijnIterator.HasNext()) {
 		#dim MaatwerkLijn As DOM.EC.Winkelkar.MaatwerkLijn = MaatwerkLijnIterator.Next()
 		Do ..VoegToeOfferteLijn(MaatwerkLijn)
@@ -209,9 +213,7 @@
 <Method name="VoegToeOfferteLijn">
 <FormalSpec>MaatwerkLijn:DOM.EC.Winkelkar.MaatwerkLijn</FormalSpec>
 <Private>1</Private>
-<Implementation><![CDATA[
-	#dim OfferteLijn As APPS.VKP.Offerte.impl.BesteldeOfferteMelder.personality.common.dto.OfferteLijn = ..GeefOfferteLijn(MaatwerkLijn)
-	Do ..OfferteDto.Lijnen.Insert(OfferteLijn)
+<Implementation><![CDATA[	Do ..OfferteDto.Lijnen.Insert(..GeefOfferteLijn(MaatwerkLijn))
 ]]></Implementation>
 </Method>
 
@@ -220,17 +222,18 @@
 <Private>1</Private>
 <ReturnType>APPS.VKP.Offerte.impl.BesteldeOfferteMelder.personality.common.dto.OfferteLijn</ReturnType>
 <Implementation><![CDATA[
-	Set OfferteLijn=##class(APPS.VKP.Offerte.impl.BesteldeOfferteMelder.personality.common.dto.OfferteLijn).%New()
-	Set OfferteLijn.LijnVolgnummer            =..GeefVolgendeLijnVolgnummer()
-	Set OfferteLijn.KlantRef                  =MaatwerkLijn.GeefProjectReferentie()
-	Set OfferteLijn.Aantal                    =MaatwerkLijn.GeefAantal()
-	Set OfferteLijn.EindklantEenheidPrijs     =..GeefPrijsObject(MaatwerkLijn.GeefEindklantEenheidPrijsNettoExclBTW(), ..TotaalEnPrijsBerekenaar.GeefMuntVoorVerkoopPrijs())
-	Set OfferteLijn.VHKlantEenheidPrijs       =..GeefPrijsObject(MaatwerkLijn.GeefEenheidPrijsNettoExclBTW(), ..TotaalEnPrijsBerekenaar.GeefMuntVoorAankoopPrijs())
-	Set OfferteLijn.ProductVariantOmschrijving=..GeefProductVariantOmschrijving(MaatwerkLijn)
-	Set OfferteLijn.ProductKleurOmschrijving  =..GeefProductKleurOmschrijving(MaatwerkLijn)
-	Set OfferteLijn.ProductType               =..GeefProductType(MaatwerkLijn)
-	Set OfferteLijn.ActieCodesList            =..GeefActieCodes(MaatwerkLijn)
- ;	Set OfferteLijn.NietMeeleveren            =""
+	#dim OfferteLijn As APPS.VKP.Offerte.impl.BesteldeOfferteMelder.personality.common.dto.OfferteLijn = ##class(APPS.VKP.Offerte.impl.BesteldeOfferteMelder.personality.common.dto.OfferteLijn).%New()
+	
+	Set OfferteLijn.LijnVolgnummer = ..GeefVolgendeLijnVolgnummer()
+	Set OfferteLijn.KlantRef = MaatwerkLijn.GeefProjectReferentie()
+	Set OfferteLijn.Aantal = MaatwerkLijn.GeefAantal()
+	Set OfferteLijn.EindklantEenheidPrijs = ..GeefPrijsObject(MaatwerkLijn.GeefEindklantEenheidPrijsNettoExclBTW(), ..TotaalEnPrijsBerekenaar.GeefMuntVoorVerkoopPrijs())
+	Set OfferteLijn.VHKlantEenheidPrijs = ..GeefPrijsObject(MaatwerkLijn.GeefEenheidPrijsNettoExclBTW(), ..TotaalEnPrijsBerekenaar.GeefMuntVoorAankoopPrijs())
+	Set OfferteLijn.ProductVariantOmschrijving = ..GeefProductVariantOmschrijving(MaatwerkLijn)
+	Set OfferteLijn.ProductKleurOmschrijving = ..GeefProductKleurOmschrijving(MaatwerkLijn)
+	Set OfferteLijn.ProductType = ..GeefProductType(MaatwerkLijn)
+	Set OfferteLijn.ActieCodesList = ..GeefActieCodes(MaatwerkLijn)
+ 	
  	Quit OfferteLijn
 ]]></Implementation>
 </Method>
@@ -267,29 +270,32 @@
 <ReturnType>%ListOfDataTypes</ReturnType>
 <Implementation><![CDATA[
 	#dim ActieCodes As %ListOfDataTypes = ##class(%ListOfDataTypes).%New()
+	#dim ActieIterator As TECH.Iterator = ##class(TECH.ListIterator).%New(MaatwerkLijn.GeefActies())
 	
-	Set ActieIterator = ##class(TECH.ListIterator).%New(MaatwerkLijn.GeefActies())
 	While (ActieIterator.HasNext()) {
 		#dim Actie As DOM.EC.Winkelkar.PrijsLijnActie = ActieIterator.Next()
 		#dim ActieDefinitie As DOM.EC.Winkelkar.Actie.dto.MaatwerkActieDefinitie = ..ActieDefinitieRepository.GetByID(Actie.ID)
+		
 		Do ActieCodes.Insert(ActieDefinitie.Code)
 	}
+	
 	Quit ActieCodes
 ]]></Implementation>
 </Method>
 
 <Method name="GeefPrijsObject">
 <FormalSpec>Prijs:%Decimal,Munt:DOM.enu.Munt</FormalSpec>
 <Private>1</Private>
-<Implementation><![CDATA[	Quit ##class(BL.FOP.Basis.pxAttribMunt).Create(Prijs,Munt)
+<Implementation><![CDATA[	Quit ##class(BL.FOP.Basis.pxAttribMunt).Create(Prijs, Munt)
 ]]></Implementation>
 </Method>
 
 <Method name="GeefVolgendeLijnVolgnummer">
 <Private>1</Private>
 <ReturnType>%Integer</ReturnType>
 <Implementation><![CDATA[
-	Set ..LijnVolgnummer=..LijnVolgnummer+1
+	Set ..LijnVolgnummer = ..LijnVolgnummer + 1
+	
 	Quit ..LijnVolgnummer
 ]]></Implementation>
 </Method>