Index: DOM/EC/OL/Winkelkar/Visitor/WinkelkarToOfferte.cls.xml
===================================================================
diff -u -r946 -r966
--- DOM/EC/OL/Winkelkar/Visitor/WinkelkarToOfferte.cls.xml	(.../WinkelkarToOfferte.cls.xml)	(revision 946)
+++ DOM/EC/OL/Winkelkar/Visitor/WinkelkarToOfferte.cls.xml	(.../WinkelkarToOfferte.cls.xml)	(revision 966)
@@ -1,10 +1,10 @@
 <?xml version="1.0" encoding="UTF-8"?>
-<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-03-21 13:31:45">
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-03-24 16:59:57">
 <Class name="DOM.EC.OL.Winkelkar.Visitor.WinkelkarToOfferte">
 <IncludeCode>BL.EC.Common,BL.Derde.KlantSpecifiek,%VHMacro,%occStatus,TECH.Error</IncludeCode>
 <ProcedureBlock>1</ProcedureBlock>
 <Super>WinkelkarVisitor</Super>
-<TimeChanged>62171,48787.963771</TimeChanged>
+<TimeChanged>62174,61283.203508</TimeChanged>
 <ClassDefinitionError>0</ClassDefinitionError>
 
 <Property name="Offerte">
@@ -98,6 +98,9 @@
 <Private>1</Private>
 <ReturnType>DOM.CRM.Klant</ReturnType>
 <Implementation><![CDATA[
+	// [ JCL ] : weet niet of het nog nodig is om tekstlijnen toe te voegen (..VoegToeTekstInfo) 
+	// indien bon reeds op die klant staat.
+	
 	Set Consument = Hoofding.Consument
 	Set Onderneming = Hoofding.Consument.OndernemingGegevens
 	
@@ -106,47 +109,46 @@
 	
 	
 	/// Invullen van alle nodige eigenschappen
-	Set KlantObject = ##class(DOM.CRM.dto.Klant).%New()
-	Set KlantObject.Email = Consument.ContactGegevens.Email
-	Set KlantObject.Telefoon1 = Consument.ContactGegevens.TelefoonNummer
+	Set dtoKlant = ##class(DOM.CRM.dto.Klant).%New()
+	Set dtoKlant.Email = Consument.ContactGegevens.Email
+	Set dtoKlant.Telefoon1 = Consument.ContactGegevens.TelefoonNummer
 	
 	/// Als de naam van de onderneming is ingevuld, deze gebruiken als klantnaarm
 	/// Anders de voornaam en familienaam gebruiken
 	If (Onderneming.Naam '= "")
 	{
-		Set KlantObject.KlantNaam = Onderneming.Naam
-		Set KlantObject.Toenaam = Consument.ContactGegevens.Voornaam_" "_Consument.ContactGegevens.Familienaam		
+		Set dtoKlant.KlantNaam = Onderneming.Naam
+		Set dtoKlant.Toenaam = Consument.ContactGegevens.Voornaam_" "_Consument.ContactGegevens.Familienaam		
 	}Else
-	{
-		Set KlantObject.KlantNaam = Consument.ContactGegevens.Voornaam_" "_Consument.ContactGegevens.Familienaam		
+	{   
+		Set dtoKlant.KlantNaam = Consument.ContactGegevens.Voornaam_" "_Consument.ContactGegevens.Familienaam		
 	}
 	
 	/// Adres opsplitsen in AdresDeel, Postcode en Woonplaats
-	Set KlantObject.Adres = ##class(DOM.common.impl.Adres).%New()
-	Set KlantObject.Adres.Straat = Consument.ContactGegevens.Adres.StraatNrBus
-	Set KlantObject.Adres.Postcode = Consument.ContactGegevens.Adres.PostCode
-	Set KlantObject.Adres.Woonplaats =  Consument.ContactGegevens.Adres.Woonplaats
+	Set dtoKlant.Adres = ##class(DOM.common.impl.Adres).%New()
+	Set dtoKlant.Adres.Straat = Consument.ContactGegevens.Adres.StraatNrBus
+	Set dtoKlant.Adres.Postcode = Consument.ContactGegevens.Adres.PostCode
+	Set dtoKlant.Adres.Woonplaats =  Consument.ContactGegevens.Adres.Woonplaats
 	Set LandNr = $$LAND^vhRtn1(Consument.ContactGegevens.Adres.Land,"I")
-	Set KlantObject.Adres.LandNr = LandNr
+	Set dtoKlant.Adres.LandNr = LandNr
 	
-	/// TO DO JBL btwnr invullen !!!
-	If Onderneming.BTWNr'?.N
+	If $$BTW^cAFI1(Onderneming.BTWNr,"KL")
 	{
-		$$$ThrowError($$$errGeneralError,"BTWNr mag enkel getallen bevatten ("_Onderneming.BTWNr_").")
+		$$$ThrowError($$$errGeneralError,"BTWNr is niet correct ("_Onderneming.BTWNr_").")
 	}
-	Set KlantObject.BTWNummer = Onderneming.BTWNr
+	Set dtoKlant.BTWNummer = Onderneming.BTWNr  
 
 	/// Standaarden invullen voor Winkelkar
-	Set KlantObject.Taal = "N"
-	Set Klant = KlantAPI.MaakKlant(KlantObject,##class(DOM.CRM.enu.TypeTemplateKlant).Consument())
+	Set dtoKlant.Taal = "N"
+	Set Klant = KlantAPI.MaakKlant(dtoKlant,##class(DOM.CRM.enu.TypeTemplateKlant).Consument())
 	
 	
 	/// Relatie toevoegen
-	Do ##class(BL.Derde.Klant.Relaties).AddRelatie2Klant(Klant.KlantNummer,"KLANT",$$$KlantKeller)
+	Do ##class(BL.Derde.Klant.Relaties).AddRelatie2Klant(Klant.GeefNummer(),"KLANT",$$$KlantKeller)
 	
 	/// PDF foto instellen
 	Set CRMDef=##Class(BL.Prod.ImageLink).%New()
-	Do CRMDef.SetCRMDef(Klant.KlantNummer,"DEFAULT")
+	Do CRMDef.SetCRMDef(Klant.GeefNummer(),"DEFAULT")
 	
 	
 	Quit Klant
@@ -215,5 +217,5 @@
 ]]></Implementation>
 </Method>
 </Class>
-<Checksum value="3683065527"/>
+<Checksum value="860385973"/>
 </Export>