Index: WV GAProduct.prj.xml
===================================================================
diff -u -r1922 -r2007
--- WV GAProduct.prj.xml	(.../WV GAProduct.prj.xml)	(revision 1922)
+++ WV GAProduct.prj.xml	(.../WV GAProduct.prj.xml)	(revision 2007)
@@ -1,6 +1,6 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="9">
-<Project name="WV GAProduct" LastModified="2011-08-26 16:33:56" HttpServer="http://192.168.1.67:1972">
+<Project name="WV GAProduct" LastModified="2011-09-07 10:26:44" HttpServer="http://192.168.1.67:1972">
   <Items>
     <ProjectItem name="APPS.PM.Maatwerk.KAD.Conversie.KenmerkConvertor" type="CLS"/>
     <ProjectItem name="APPS.PM.Maatwerk.KenmerkConversie" type="CLS"/>
@@ -143,6 +143,7 @@
     <ProjectItem name="cspBasis.GAProdTBox.tmpDev.MAC" type="MAC"/>
     <ProjectItem name="vhUnitTest.APPS.PM.Maatwerk.TBX.Probox.TestCalculator" type="CLS"/>
     <ProjectItem name="zTryout.WV.PM.KAD.RecalcBS" type="CLS"/>
+    <ProjectItem name="zTryout.WV.PM.TBX.CheckProductKenmerken" type="CLS"/>
   </Items>
 </Project>
 </Export>
Index: zTryout/WV/PM/TBX/CheckProductKenmerken.cls.xml
===================================================================
diff -u
--- zTryout/WV/PM/TBX/CheckProductKenmerken.cls.xml	(revision 0)
+++ zTryout/WV/PM/TBX/CheckProductKenmerken.cls.xml	(revision 2007)
@@ -0,0 +1,100 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="zTryout.WV.PM.TBX.CheckProductKenmerken">
+<IncludeCode>vhLib.Macro,%Prod.Product,BL.Derde.KlantSpecifiek</IncludeCode>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%RegisteredObject</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Method name="Check">
+<Description>
+  d ##class(zTryout.WV.PM.TBX.CheckProductKenmerken).Check() </Description>
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	Kill %arCnt
+	Kill %arParamStorage
+	Do ..SetLookups()
+	
+	Set PRNr=0
+	For  Set PRNr=$O(^KPR(PRNr)) Quit:PRNr=""  Do
+	. Set GenTyp=$P($$GENTYP^HAD(PRNr),"\",1)
+	. 
+	.  ;write GenTyp,!
+	. Quit:GenTyp'?1(1"TBX")
+	. Quit:($$$PRGet($$$KortTekst)?1"GEN.HAL".E)
+	. 
+	. Set IsCommActief=($$$PRGet($$$NONAktief)'=1)
+	. Quit:('IsCommActief)
+	. 
+	. 
+	. Do ..CheckOne(PRNr)
+
+	Quit
+]]></Implementation>
+</Method>
+
+<Method name="CheckOne">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>PRNr:%String</FormalSpec>
+<Implementation><![CDATA[
+	Write $C(13)
+	Write PRNr
+	
+	Set GADataID=$P($G(^KPR(PRNr,"G")),"\",13)
+	Quit:(GADataID<10)
+	Quit:('##class(Prod.GAData.Product).%ExistsId(GADataID))
+	
+	For KenmerkNaam="ASM","BM","LC","ZW" Do ..CheckOneKenmerk(PRNr,GADataID,KenmerkNaam)
+
+	Quit
+]]></Implementation>
+</Method>
+
+<Method name="CheckOneKenmerk">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>PRNr:%String,GADataID:%String,KenmerkNaam:%String</FormalSpec>
+<Implementation><![CDATA[
+	Set GADataNode=$G(%arParamStorage(KenmerkNaam))
+	Set KenmerkWaarde=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,KenmerkNaam),1)
+	Set GADataWaarde=$G(^Prod.GAData.ProductD(GADataID,"I",GADataNode,"P","Val"))
+	
+	If KenmerkWaarde="" {
+		Write !,$J(PRNr,6)_"   GAData:"_$J(GADataID,6)_"   "_$J(KenmerkNaam,4)_" = "_KenmerkWaarde_"    - in GAData: "_GADataWaarde_"    Leeg !!!  HasKenm :"_..ProductHasKenmerken(PRNr) , !
+	}
+	ElseIf KenmerkWaarde'=GADataWaarde {
+		Write !,$J(PRNr,6)_"   GAData:"_$J(GADataID,6)_"   "_$J(KenmerkNaam,4)_" = "_KenmerkWaarde_"    - in GAData: "_GADataWaarde_"    Verschillend !!! ", !
+	}
+	Else {
+		;Write !
+	}
+]]></Implementation>
+</Method>
+
+<Method name="SetLookups">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	Set %arParamStorage("ASM" )="PARAM047"
+	Set %arParamStorage("BGRP")="PARAM056"
+	Set %arParamStorage("BM"  )="PARAM020"
+	Set %arParamStorage("LC"  )="PARAM002"
+	Set %arParamStorage("ZW"  )="PARAM005"
+
+ /*
+^Prod.GAData.ProductD(314,"I","PARAM002")=<<$LB("LC","PARAM||1","INPUT","2","S","")>>
+^Prod.GAData.ProductD(314,"I","PARAM020")=<<$LB("BM","PARAM||1","INPUT","25","S","")>>
+^Prod.GAData.ProductD(314,"I","PARAM047")=<<$LB("ASM","PARAM||1","INPUT","31","S","")>>
+^Prod.GAData.ProductD(314,"I","PARAM056")=<<$LB("BGRP","PARAM||1","INPUT","33","S","")>>
+ */
+]]></Implementation>
+</Method>
+
+<Method name="ProductHasKenmerken">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>PRNr:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit ##class(Prod.Kenmerk.DataDefinitie).Exists(PRNr, "TBX")
+]]></Implementation>
+</Method>
+</Class>
+</Export>