Index: Stat/OmzetKlantProductMaand.cls.xml
===================================================================
diff -u -r1426 -r1600
--- Stat/OmzetKlantProductMaand.cls.xml	(.../OmzetKlantProductMaand.cls.xml)	(revision 1426)
+++ Stat/OmzetKlantProductMaand.cls.xml	(.../OmzetKlantProductMaand.cls.xml)	(revision 1600)
@@ -178,7 +178,7 @@
 <SqlProc>1</SqlProc>
 <SqlQuery>	</SqlQuery>
 <Parameter name="CONTAINID" value="0"/>
-<Parameter name="ROWSPEC" value="KLNr:%Integer,Naam:%String,Tel1:%String,Straat:%String,Postkode:%String,Gemeente:%String,Taal:%String,Regio:%Integer,Aktiviteit:%String,Kwantiteit:%String,Kwaliteit:%String,NonAkt:%Integer,Vervallen:%Integer,AantalBezoeken:%String,LaatsteBezoek:%String,KlachtenJr:%Integer,KlachtenMnd:%Integer,Codex:%String,Uitz:%String,Trend:%String,VoBlum:%Float,VoHAL:%Float,VoTBX:%Float,VoGRP:%Float,VoRest:%Float,VoOL:%Float,HuBlum:%Float,HuHAL:%Float,HuTBX:%Float,HuGRP:%Float,HuRest:%Float,HuOL:%Float,VoMaBlum:%Float,VoMaHAL:%Float,VoMaTBX:%Float,VoMaGRP:%Float,VoMaRest:%Float,VoMaOL:%Float,HuMaBlum:%Float,HuMaHAL:%Float,HuMaTBX:%Float,HuMaGRP:%Float,HuMaRest:%Float,HuMaOL:%Float,IndicVoBlum:%Float,IndicVoHAL:%Float,IndicVoTBX:%Float,IndicVoGRP:%Float,IndicVoRest:%Float,IndicVoOL:%Float,IndicHuBlum:%Float,IndicHuHAL:%Float,IndicHuTBX:%Float,IndicHuGRP:%Float,IndicHuRest:%Float,IndicHuOL:%Float,IndicVoMaBlum:%Float,IndicVoMaHAL:%Float,IndicVoMaTBX:%Float,IndicVoMaGRP:%Float,IndicVoMaRest:%Float,IndicVoMaOL:%Float,IndicHuMaBlum:%Float,IndicHuMaHAL:%Float,IndicHuMaTBX:%Float,IndicHuMaGRP:%Float,IndicHuMaRest:%Float,IndicHuMaOL:%Float,CatalogusInfo:%String,KostprijsVertegenwoordiging:%Float,Rentabiliteit:%Float"/>
+<Parameter name="ROWSPEC" value="KLNr:%Integer,Naam:%String,Tel1:%String,Straat:%String,Postkode:%String,Gemeente:%String,Taal:%String,Regio:%Integer,Aktiviteit:%String,Kwantiteit:%String,Kwaliteit:%String,NonAkt:%Integer,Vervallen:%Integer,AantalBezoeken:%String,LaatsteBezoek:%String,KlachtenJr:%Integer,KlachtenMnd:%Integer,Codex:%String,Uitz:%String,Trend:%String,VoBlum:%Float,VoHAL:%Float,VoTBX:%Float,VoGRP:%Float,VoRest:%Float,VoOL:%Float,HuBlum:%Float,HuHAL:%Float,HuTBX:%Float,HuGRP:%Float,HuRest:%Float,HuOL:%Float,VoMaBlum:%Float,VoMaHAL:%Float,VoMaTBX:%Float,VoMaGRP:%Float,VoMaRest:%Float,VoMaOL:%Float,HuMaBlum:%Float,HuMaHAL:%Float,HuMaTBX:%Float,HuMaGRP:%Float,HuMaRest:%Float,HuMaOL:%Float,IndicVoBlum:%Float,IndicVoHAL:%Float,IndicVoTBX:%Float,IndicVoGRP:%Float,IndicVoRest:%Float,IndicVoOL:%Float,IndicHuBlum:%Float,IndicHuHAL:%Float,IndicHuTBX:%Float,IndicHuGRP:%Float,IndicHuRest:%Float,IndicHuOL:%Float,IndicVoMaBlum:%Float,IndicVoMaHAL:%Float,IndicVoMaTBX:%Float,IndicVoMaGRP:%Float,IndicVoMaRest:%Float,IndicVoMaOL:%Float,IndicHuMaBlum:%Float,IndicHuMaHAL:%Float,IndicHuMaTBX:%Float,IndicHuMaGRP:%Float,IndicHuMaRest:%Float,IndicHuMaOL:%Float,CatalogusInfo:%String,KostprijsVertegenwoordiging:%Float,KostprijsMonster:%Float,KostprijsTotaal:%Float"/>
 </Query>
 
 <Method name="VerschilOmzetProdGrpExecute">
@@ -234,6 +234,25 @@
 	
 	Do ..ZoekPRNrsCatalogi()
 	
+	Set %RSet=##class(%ResultSet).%New()
+	Set %RSetMetType=##class(%ResultSet).%New()
+	Set %RSetZonderType=##class(%ResultSet).%New()
+	
+	Do %RSet.Prepare("Select KlantNr, KostType,SUM(Kost) As Kostprijs from APPS_common_KlantKost_impl_data.MaandKost WHERE ((Jaar = ? AND MAAND >= ?) OR (Jaar = ? AND MAAND <= ?)) GROUP BY KlantNr, KostType")
+	
+	Set JaarVan = ##class(TECH.DateTime).Jaar(+%HorologHuidigVan)
+	Set MaandVan = ##class(TECH.DateTime).Maand(+%HorologHuidigVan)
+	Set JaarTot = ##class(TECH.DateTime).Jaar(+%HorologHuidigTot)
+	Set MaandTot = ##class(TECH.DateTime).Maand(+%HorologHuidigTot)
+	Do %RSet.Execute(JaarVan,MaandVan,JaarTot,MaandTot)
+	
+	While(%RSet.Next()){
+		If (%RSet.Data("KostType") = ##class(APPS.common.KlantKost.enu.KostType).Bezoek()){
+			Set %BezoekKost(%RSet.Data("KlantNr")) = %RSet.Data("Kostprijs")	
+		}ElseIf (%RSet.Data("KostType") = ##class(APPS.common.KlantKost.enu.KostType).Monster()){
+			Set %MonsterKost(%RSet.Data("KlantNr")) = %RSet.Data("Kostprijs")
+		}
+	}
 	Quit $$$OK
 ]]></Implementation>
 </Method>
@@ -246,6 +265,7 @@
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
 	
+	
 	Set D="\",U=";",Q="K"
 
 	Set %VOKLId=$O(^KKL(%VOKLId))
@@ -280,7 +300,6 @@
 		 Set PRNr=$O(^KSTKL(KLNr,PRNr))
 	}
 	
-	
 	Set Klant=##class(Derde.Klant.Klant).%OpenId(KLNr)
 	Set LevAdr=$$DEFAULT^LEVADR(KLNr)
 	Set (OmzetHuidigList,OmzetVorigList,MargeVorigList,MargeHuidigList)=""
@@ -327,12 +346,14 @@
 	Set Row=Row_IOmzetVorigList_IOmzetHuidigList_IMargeVorigList_IMargeHuidigList
 	
 	Set Row=Row_$LB(CatalogusInfo)
-	
 	/// Kosten toevoegen
 	Set KostprijsVertegenw = ..GeefKostprijsVertegenwKlant(KLNr,##class(APPS.common.KlantKost.enu.KostType).Bezoek(),%HorologHuidigVan,%HorologHuidigTot)
-	Set AlleKosten = ..GeefKostprijsVertegenwKlant(KLNr,,%HorologHuidigVan,%HorologHuidigTot)
+	Set KostprijsMonsters = ..GeefKostprijsVertegenwKlant(KLNr,##class(APPS.common.KlantKost.enu.KostType).Monster(),%HorologHuidigVan,%HorologHuidigTot)
+	Set KostprijsTotaal = ..GeefKostprijsVertegenwKlant(KLNr,,%HorologHuidigVan,%HorologHuidigTot)
 	
-	Set Row=Row_$LB(KostprijsVertegenw,AlleKosten)
+	Set Row=Row_$LB(KostprijsVertegenw,KostprijsMonsters,KostprijsTotaal)
+	
+	//Set Row=Row_$LB(1,1,1)
 		
 	Quit $$$OK
 ]]></Implementation>
@@ -437,27 +458,24 @@
 <FormalSpec>KlantNr:%Integer,KostType:APPS.common.KlantKost.enu.KostType="",HuidigVan:%Date,HuidigTot:%Date</FormalSpec>
 <ReturnType>%Float</ReturnType>
 <Implementation><![CDATA[
-	Set Kostprijs = ""
-	Set JaarVan = ##class(TECH.DateTime).Jaar(+HuidigVan)
-	Set MaandVan = ##class(TECH.DateTime).Maand(+HuidigVan)
-	Set JaarTot = ##class(TECH.DateTime).Jaar(+HuidigTot)
-	Set MaandTot = ##class(TECH.DateTime).Maand(+HuidigTot)
-	Set RSet=##class(%ResultSet).%New()
-	
-	/// Enkel van specifiek kosttype de kosten berekenen
-	If (KostType '= ""){
-	    Do RSet.Prepare("Select SUM(Kost) As Kostprijs from APPS_common_KlantKost_impl_data.MaandKost WHERE ((Jaar = ? AND MAAND >= ?) OR (Jaar = ? AND MAAND <= ?)) AND KlantNr = ? AND KostType = ?")
-		Do RSet.Execute(JaarVan,MaandVan,JaarTot,MaandTot,KlantNr,KostType)
+	Set Kostprijs = 0
+	If (KostType = ##class(APPS.common.KlantKost.enu.KostType).Bezoek()){
+		If ($Data(%BezoekKost(KlantNr))){
+			Set Kostprijs = %BezoekKost(KlantNr)	
+		}
+	}ElseIf (KostType = ##class(APPS.common.KlantKost.enu.KostType).Monster()){
+		If ($Data(%MonsterKost(KlantNr))){
+			Set Kostprijs = %MonsterKost(KlantNr)	
+		}
+	}Else{ /// Totaal
+		If ($Data(%BezoekKost(KlantNr))){
+			Set Kostprijs = Kostprijs + %BezoekKost(KlantNr)	
+		}
+		If ($Data(%MonsterKost(KlantNr))){
+			Set Kostprijs = Kostprijs + %MonsterKost(KlantNr)	
+		}
 	}
-	/// Alle kosten berekenen
-	Else{
-	    Do RSet.Prepare("Select SUM(Kost) As Kostprijs from APPS_common_KlantKost_impl_data.MaandKost WHERE ((Jaar = ? AND MAAND >= ?) OR (Jaar = ? AND MAAND <= ?)) AND KlantNr = ? ")
-		Do RSet.Execute(JaarVan,MaandVan,JaarTot,MaandTot,KlantNr)	
-	}
-	If (RSet.Next()){
-		Set Kostprijs = RSet.Data("Kostprijs")
-	}
-	If (Kostprijs = "") Set Kostprijs = 0
+	
 	Quit Kostprijs
 ]]></Implementation>
 </Method>
Index: APPS/common/KlantKost/impl/MonsterKostCalculator.cls.xml
===================================================================
diff -u -r1384 -r1600
--- APPS/common/KlantKost/impl/MonsterKostCalculator.cls.xml	(.../MonsterKostCalculator.cls.xml)	(revision 1384)
+++ APPS/common/KlantKost/impl/MonsterKostCalculator.cls.xml	(.../MonsterKostCalculator.cls.xml)	(revision 1600)
@@ -10,7 +10,60 @@
 
 <Method name="BerekenKostenPerKlant">
 <FormalSpec>Jaar:%Integer,Maand:%Integer</FormalSpec>
-<Implementation><![CDATA[	Do ..VerwijderKosten(Jaar,Maand)
+<Implementation><![CDATA[
+	Do ..VerwijderKosten(Jaar,Maand)
+	
+	Set KlantAPI = ##class(DOM.DomeinContext).Instance().GeefKlantAPI()
+	Set AankoopPrijsAPI = ##class(DOM.DomeinContext).Instance().GeefAankoopPrijsAPI()
+	
+	Set Datum = +$zdh("01/"_Maand_"/"_Jaar,4)
+	
+	Set StartDatum = +$$CALCDATE^vhDTyp(Datum,"M","FD")
+	Set EindDatum = +$$CALCDATE^vhDTyp(Datum,"M","LD")
+	
+	Set KlantIt = KlantAPI.GeefKlantenIterator()	
+	While (KlantIt.HasNext()){	
+		Set Klant = KlantIt.Next()
+		Set KlantNr = Klant.GeefNummer()
+		
+		Set ProformaIt = Klant.GeefProformasIterator(StartDatum, EindDatum)
+		While (ProformaIt.HasNext()) {
+			Set Proforma = ProformaIt.Next()
+			Set ProformaNr = Proforma.GeefNr()			
+			Set Datum = Proforma.GeefDatum()			
+			Set TotaalKost = 0
+			
+			/// alle bonnen overlopen van een proforma
+			Set BonIt = Proforma.GeefBonIterator()
+			While (BonIt.HasNext()) {
+				Set Bon = BonIt.Next()						
+				/// Enkel de monster overlopen in de proforma's
+				If (Bon.GeefOrderType() = ##class(DOM.OV.enu.OrderType).Monster()){								
+					Set BonLijnIt = Bon.GeefBonLijnIterator()
+					While BonLijnIt.HasNext() {
+						Set BonLijn = BonLijnIt.Next()
+						If (BonLijn.%Extends("DOM.OV.impl.DataM.DataMProductOrderlijn")){							
+							Set Kost = BonLijn.GeefTotaalAankoopPrijs()
+							Set TotaalKost = TotaalKost + Kost
+						}
+					}
+				}
+			}
+			
+			/// MonsterKostItem toevoegen
+			If TotaalKost '= 0 {
+				Set KostItem = ##class(APPS.common.KlantKost.impl.data.MonsterKostItem).%New(Datum,KlantNr,TotaalKost,ProformaNr)
+				Set Status = KostItem.%Save()
+				If ($SYSTEM.Status.IsError(Status)){
+					Set Bericht = "Failed to save "_KostItem.%ClassName(1)_": "	
+					Set Bericht = Bericht_KlantNr_$c(9)_$c(9)_ProformaNr_$c(9)_TotaalKost
+					Set Bericht = Bericht_$c(13,10)_$$ParseStatus^vhLib(Status)
+					w Bericht,!,!,!
+					Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.BaseException).%New(##class(TECH.enu.ExceptionCode).SaveFailed(),Bericht))
+				}			
+			}
+		}		
+	}
 ]]></Implementation>
 </Method>
 
Index: APPS/common/KlantKost/impl/data/MonsterKostItem.cls.xml
===================================================================
diff -u -r1384 -r1600
--- APPS/common/KlantKost/impl/data/MonsterKostItem.cls.xml	(.../MonsterKostItem.cls.xml)	(revision 1384)
+++ APPS/common/KlantKost/impl/data/MonsterKostItem.cls.xml	(.../MonsterKostItem.cls.xml)	(revision 1600)
@@ -8,8 +8,38 @@
 <Super>APPS.common.KlantKost.impl.data.IndividueelKostItem</Super>
 <ClassDefinitionError>0</ClassDefinitionError>
 
-<Property name="Factuur">
+<Property name="ProformaNr">
 <Type>%String</Type>
 </Property>
+
+<Method name="%OnNew">
+<FormalSpec>Datum:%Date,KlantNr:%Integer,Kost:%Integer,ProformaNr:%String</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set ..Datum = Datum
+	Set ..KlantNr = KlantNr
+	Set ..KostType = ##class(APPS.common.KlantKost.enu.KostType).Monster()
+	Set ..Kost = Kost
+	Set ..ProformaNr = ProformaNr
+	Quit ##super()
+]]></Implementation>
+</Method>
+
+<Storage name="Default">
+<Type>%Library.CacheStorage</Type>
+<DefaultData>MonsterKostItemDefaultData</DefaultData>
+<Data name="MonsterKostItemDefaultData">
+<Structure>listnode</Structure>
+<Subscript>"MonsterKostItem"</Subscript>
+<Value name="1">
+<Value>Factuur</Value>
+</Value>
+<Value name="2">
+<Value>ProformaNr</Value>
+</Value>
+</Data>
+</Storage>
 </Class>
 </Export>
Index: DOM/OV/impl/DataM/DataMBonAbstract.cls.xml
===================================================================
diff -u -r1076 -r1600
--- DOM/OV/impl/DataM/DataMBonAbstract.cls.xml	(.../DataMBonAbstract.cls.xml)	(revision 1076)
+++ DOM/OV/impl/DataM/DataMBonAbstract.cls.xml	(.../DataMBonAbstract.cls.xml)	(revision 1600)
@@ -71,7 +71,7 @@
 </Method>
 
 <Method name="GeefOrderType">
-<ReturnType>%String</ReturnType>
+<ReturnType>DOM.OV.enu.OrderType</ReturnType>
 <Implementation><![CDATA[	Quit $P(..NodeHoofding,"\",25)
 ]]></Implementation>
 </Method>
Index: APPS/CRM/KlantService.cls.xml
===================================================================
diff -u -r1577 -r1600
--- APPS/CRM/KlantService.cls.xml	(.../KlantService.cls.xml)	(revision 1577)
+++ APPS/CRM/KlantService.cls.xml	(.../KlantService.cls.xml)	(revision 1600)
@@ -97,6 +97,7 @@
 	
 	if '$length(Bestandsnaam) {
 		Set ConfigMgr = ##class(TECH.Config.ConfigMgr).Instance()
+		Do ##class(vhLib.Logger).%New("APPS.CRM.KlantService").Info("VulKlantWijzigingenBestandAan","KlantNr : "_KlantNr)
 		Do ##class(vhLib.Logger).%New("APPS.CRM.KlantService").Info("VulKlantWijzigingenBestandAan","ConfigMgr is Object ? "_$IsObject(ConfigMgr))
 		Set Bestandsnaam = ConfigMgr.GetString("APPS.CRM.KlantService.KlantBestandIncrementeel")
 		Do ##class(vhLib.Logger).%New("APPS.CRM.KlantService").Info("VulKlantWijzigingenBestandAan","Bestandsnaam KlantBestand : "_Bestandsnaam)
Index: TECH/DateTime.cls.xml
===================================================================
diff -u -r1578 -r1600
--- TECH/DateTime.cls.xml	(.../DateTime.cls.xml)	(revision 1578)
+++ TECH/DateTime.cls.xml	(.../DateTime.cls.xml)	(revision 1600)
@@ -21,6 +21,14 @@
 ]]></Implementation>
 </Method>
 
+<Method name="TextToDate">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>Text:%String</FormalSpec>
+<ReturnType>%Date</ReturnType>
+<Implementation><![CDATA[	Quit $$INTDATE^vhDTyp(Text)
+]]></Implementation>
+</Method>
+
 <Method name="TimestampToSeconds">
 <ClassMethod>1</ClassMethod>
 <FormalSpec>Timestamp:%TimeStamp</FormalSpec>
Index: DOM/OV/enu/OrderType.cls.xml
===================================================================
diff -u
--- DOM/OV/enu/OrderType.cls.xml	(revision 0)
+++ DOM/OV/enu/OrderType.cls.xml	(revision 1600)
@@ -0,0 +1,53 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="DOM.OV.enu.OrderType">
+<ClassType>datatype</ClassType>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%String</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Parameter name="VALUELIST">
+<Default>,M,P,Y,C,K,A</Default>
+</Parameter>
+
+<Parameter name="DISPLAYLIST">
+<Default>;Monster;Proforma;CashCarry;Contract;KlantGebonden;Afroep</Default>
+</Parameter>
+
+<Method name="Monster">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[	Quit "M"
+]]></Implementation>
+</Method>
+
+<Method name="Proforma">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[	Quit "P"
+]]></Implementation>
+</Method>
+
+<Method name="CashCarry">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[	Quit "Y"
+]]></Implementation>
+</Method>
+
+<Method name="Contract">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[	Quit "C"
+]]></Implementation>
+</Method>
+
+<Method name="KlantGebonden">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[	Quit "K"
+]]></Implementation>
+</Method>
+
+<Method name="Afroep">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[	Quit "A"
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: vhDeploy/JBL/Deploy20110704x1341.cls.xml
===================================================================
diff -u
--- vhDeploy/JBL/Deploy20110704x1341.cls.xml	(revision 0)
+++ vhDeploy/JBL/Deploy20110704x1341.cls.xml	(revision 1600)
@@ -0,0 +1,31 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="vhDeploy.JBL.Deploy20110704x1341">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>svn.Deploy</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Parameter name="Omschrijving">
+<Default>Berekenen van monster kosten.</Default>
+</Parameter>
+
+<Method name="ExecCode">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	If ($zu(5) = "ADMIN1"){
+				
+		Write "Monster kosten berekening van laatste paar jaar wordt uitgevoerd :"
+		Set KlantKostService = ##class(APPS.common.KlantKost.impl.KlantKostService).%New()
+		For Jaar = 2007 : 1 : 2011 {
+			w $c(9),"-",Jaar,!
+			For Maand = 1 : 1 : 12 {
+				If ((Jaar < 2011) || ((Jaar = 2011) && (Maand <= 6))) {
+					Do KlantKostService.BerekenMonsterKlantKosten(Jaar,Maand)
+				}
+			}
+		}	
+	}
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: DOM/PM/Maatwerk/Calc/Common/BerekeningsSpecificatie.cls.xml
===================================================================
diff -u -r1075 -r1600
--- DOM/PM/Maatwerk/Calc/Common/BerekeningsSpecificatie.cls.xml	(.../BerekeningsSpecificatie.cls.xml)	(revision 1075)
+++ DOM/PM/Maatwerk/Calc/Common/BerekeningsSpecificatie.cls.xml	(.../BerekeningsSpecificatie.cls.xml)	(revision 1600)
@@ -17,6 +17,8 @@
 </Property>
 
 <Property name="Hoeveelheid">
+<Description>
+De hoeveelheid, is enkel bedoeld om de eenheidprijs te bepalen. Niet om de prijs voor die hoeveelheid te hebben.</Description>
 <Type>%Integer</Type>
 <Private>1</Private>
 </Property>
Index: DOM/OV/impl/DataM/DataMProforma.cls.xml
===================================================================
diff -u -r1076 -r1600
--- DOM/OV/impl/DataM/DataMProforma.cls.xml	(.../DataMProforma.cls.xml)	(revision 1076)
+++ DOM/OV/impl/DataM/DataMProforma.cls.xml	(.../DataMProforma.cls.xml)	(revision 1600)
@@ -33,6 +33,15 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefDatum">
+<ReturnType>%Date</ReturnType>
+<Implementation><![CDATA[
+	Set Datum = $Piece(..GetDataLijn(0),"\",6)
+	Set Datum = ##class(TECH.DateTime).TextToDate(Datum)
+	Quit Datum
+]]></Implementation>
+</Method>
+
 <Method name="GetDataLijn">
 <FormalSpec>Index</FormalSpec>
 <Private>1</Private>
Index: JBL KPI Klant Product Anlayse Kosten.prj.xml
===================================================================
diff -u -r1384 -r1600
--- JBL KPI Klant Product Anlayse Kosten.prj.xml	(.../JBL KPI Klant Product Anlayse Kosten.prj.xml)	(revision 1384)
+++ JBL KPI Klant Product Anlayse Kosten.prj.xml	(.../JBL KPI Klant Product Anlayse Kosten.prj.xml)	(revision 1600)
@@ -1,6 +1,6 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="9">
-<Project name="JBL KPI Klant Product Anlayse Kosten" LastModified="2011-06-08 13:32:26">
+<Project name="JBL KPI Klant Product Anlayse Kosten" LastModified="2011-07-04 17:36:36">
   <Items>
     <ProjectItem name="APPS.common.KlantKost.KlantKostService" type="CLS"/>
     <ProjectItem name="APPS.common.KlantKost.enu.KostType" type="CLS"/>
@@ -16,6 +16,20 @@
     <ProjectItem name="APPS.common.KlantKost.impl.data.MaandKost" type="CLS"/>
     <ProjectItem name="APPS.common.KlantKost.impl.data.MeervoudigeFactor" type="CLS"/>
     <ProjectItem name="APPS.common.KlantKost.impl.data.MonsterKostItem" type="CLS"/>
+    <ProjectItem name="DOM.AKP.AankoopPrijsAPI" type="CLS"/>
+    <ProjectItem name="DOM.AKP.impl.DataM.DataMAankoopPrijsAPI" type="CLS"/>
+    <ProjectItem name="DOM.AKP.info.AankoopPrijsInfo" type="CLS"/>
+    <ProjectItem name="DOM.CRM.Klant" type="CLS"/>
+    <ProjectItem name="DOM.CRM.KlantAPI" type="CLS"/>
+    <ProjectItem name="DOM.CRM.impl.DataM.DataMFacturenIterator" type="CLS"/>
+    <ProjectItem name="DOM.CRM.impl.DataM.DataMProformasIterator" type="CLS"/>
+    <ProjectItem name="DOM.OV.impl.DataM.DataMBonInProforma" type="CLS"/>
+    <ProjectItem name="DOM.OV.impl.DataM.DataMBonInProformalijnIterator" type="CLS"/>
+    <ProjectItem name="DOM.OV.impl.DataM.DataMFactuur" type="CLS"/>
+    <ProjectItem name="DOM.OV.impl.DataM.DataMOrderVerwijzingOrderlijn" type="CLS"/>
+    <ProjectItem name="DOM.OV.impl.DataM.DataMProductOrderlijn" type="CLS"/>
+    <ProjectItem name="DOM.OV.impl.DataM.DataMProforma" type="CLS"/>
+    <ProjectItem name="DOM.PM.Maatwerk.Calc.Common.BerekeningsSpecificatie" type="CLS"/>
     <ProjectItem name="Derde.Agenda.Agenda" type="CLS"/>
     <ProjectItem name="Derde.Klant.Klant" type="CLS"/>
     <ProjectItem name="Stat.OmzetKlantProductMaand" type="CLS"/>
Index: DOM/AKP/impl/DataM/DataMAankoopPrijsAPI.cls.xml
===================================================================
diff -u -r1075 -r1600
--- DOM/AKP/impl/DataM/DataMAankoopPrijsAPI.cls.xml	(.../DataMAankoopPrijsAPI.cls.xml)	(revision 1075)
+++ DOM/AKP/impl/DataM/DataMAankoopPrijsAPI.cls.xml	(.../DataMAankoopPrijsAPI.cls.xml)	(revision 1600)
@@ -11,7 +11,7 @@
 <Implementation><![CDATA[
 	Set PrijsInfo = $$KlantPrijs^KPRIJS(BerekeningsSpecificatie.GeefKlantID(),Product.GeefPRNr(),"N")
 		
-	Set ActuelePrijs = 0 // TODO: ActuelePrijs is nog niet geïmplementeerd
+	Set ActuelePrijs = $Piece(PrijsInfo,"\",13)
 	Set LivePrijs = 0 // TODO: LivePrijs is nog niet geïmplementeerd
 	Set ReferentiePrijs = $Piece(PrijsInfo,"\",13) 
 	
Index: APPS/PM/KenmerkenService.cls.xml
===================================================================
diff -u -r1580 -r1600
--- APPS/PM/KenmerkenService.cls.xml	(.../KenmerkenService.cls.xml)	(revision 1580)
+++ APPS/PM/KenmerkenService.cls.xml	(.../KenmerkenService.cls.xml)	(revision 1600)
@@ -54,12 +54,11 @@
 	Set ProductAPI = ##class(DOM.DomeinContext).Instance().GeefProductAPI()
 	Set ProductService = ##class(APPS.PM.ProductService).%New()	
 	
-	// nadien nagaan of er iets in kenmerkGroepen zit
+	// nadien nagaan of er iets in kenmerkGroepen zit, als het ledig is wordt in alle kenmerkgroepen gezocht.
 	if ('$IsObject(KenmerkGroepen) || (KenmerkGroepen.Count() = 0)) {
 		Set KenmerkGroepen = ##class(Prod.Kenmerk.MetaGroep).GetAllMetaGroupsAsList()
 	}	
 	
-	
 	/// UnIDs verzamelen
 	Set SQLUnIDs = ""
 	Set SQLUnIDsReedsToegevoegd = 0
@@ -101,9 +100,8 @@
 	 }
 	 While (KenmerkGroepIterator.HasNext()){
 	 	Set SQLKenmerken = SQLKenmerken_", '"_KenmerkGroepIterator.Next()_"'"
-	 }	
+	 }			 
 		 
-		 
 	/// voorbereidend werk
 		 Set ProductenKenmerken = ##class(APPS.PM.dto.Kenm.ProductenKenmerken).%New()
  		 Set ProductKenmerken = ##class(APPS.PM.dto.Kenm.ProductKenmerken).%New()
@@ -114,7 +112,6 @@
 	 /// DataDefinities ophalen
 	 Set RS=##class(%ResultSet).%New()
 	 Set SQLStatement = "SELECT ID, UnID, KenmerkGroep, KenmerkNaam, Waarden FROM Prod_Kenmerk.DataDefinitie where KenmerkGroep IN ( "_SQLKenmerken_" ) AND UnID In ( "_SQLUnIDs_" ) ORDER BY UnID, KenmerkGroep"
-	 d WLIP^vhDBG(127,SQLStatement)
 	 Do RS.Prepare(SQLStatement)				 
 	
 	 Set tmpStatus = RS.Execute(SQLKenmerken,SQLUnIDs)
@@ -237,9 +234,8 @@
 <ReturnType>APPS.PM.dto.Kenm.KenmerkMetadataList</ReturnType>
 <Implementation><![CDATA[
 	$$$TECHErrorTrapOn
-	Set MetadataGroep = ##class(APPS.PM.dto.Kenm.KenmerkMetadataList).%New()
+	Set MetadataGroep = ##class(APPS.PM.dto.Kenm.KenmerkMetadataList).%New()	
 	
-	
 	/// Nagaan of KenmerkGroepen niet leeg is, indien dit zo is mogen alle groepen worden opgevraagd.
 	if ('$IsObject(KenmerkGroepen) || (KenmerkGroepen.Count() = 0)){
 		Set KenmerkGroepen = ##class(Prod.Kenmerk.MetaGroep).GetAllMetaGroupsAsList()
@@ -291,15 +287,7 @@
 			/// Voor read-only kenmerken moet geen lijst van de gebruikte waarden opgezocht en doorgegeven worden aan de GUI.
 			/// 2) Bovendien een flag "gebruikte waarden niet suggereren" voorzien. Indien die opstaat, moeten we ook geen lijst van de gebruikte waarden opzoeken en doorgeven aan de GUI.
 			
-			Set ToonMogelijkheden = 'KenmerkMetadata.SuggereerGeenWaarden
-			If (KenmerkMetadata.IsReadOnly) {
-				Set ToonMogelijkheden = 0
-			}
-			If ('KenmerkMetadata.NieuweWaardeToegelaten){
-				Set ToonMogelijkheden = 1
-			}
-			
-			If (ToonMogelijkheden)
+			If ('KenmerkMetadata.SuggereerGeenWaarden)
 			{
 				/// WaardenSortering nagaan en als mogelijkheden invullen
 				Set WaardenSorteringLijst = $ListBuild("WaardenSortering","WaardenSortering2","WaardenSortering3")