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>