Index: UI/PR/Kenm/MainForm.cls.xml
===================================================================
diff -u -r734 -r908
--- UI/PR/Kenm/MainForm.cls.xml	(.../MainForm.cls.xml)	(revision 734)
+++ UI/PR/Kenm/MainForm.cls.xml	(.../MainForm.cls.xml)	(revision 908)
@@ -1,12 +1,13 @@
 <?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-01-27 17:01:10">
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-03-08 11:10:58">
 <Class name="UI.PR.Kenm.MainForm">
 <ClassType>serial</ClassType>
 <IncludeCode>ProdCataloogCNTs,ReportErrorCNTs,KeyCodesCNTs,%VHMacro,APPS.PM.OL.Common</IncludeCode>
 <StorageStrategy>Default</StorageStrategy>
 <Super>%Library.TMFormClass</Super>
-<TimeChanged>62003,35122</TimeChanged>
+<TimeChanged>62158,40331.058276</TimeChanged>
 <TimeCreated>62003,35122</TimeCreated>
+<ClassDefinitionError>0</ClassDefinitionError>
 
 <Parameter name="AppName">
 <Default>UI.PR.Kenm.MainForm</Default>
@@ -730,6 +731,8 @@
  Set HoofdGroep=..GetSelectedMetaGroep()
  Set PRNr=..GetSelectedPRNr()
  Quit:((HoofdGroep="") || (PRNr=""))
+	
+ Do WLIP^vhDBG(127,PRNr)	
 
  ; Added by WimV on 18/09/2008
  Set:('blnKeepSubID) ..lblActiveSubID.Caption=""
@@ -742,8 +745,10 @@
  New kenmerkRunner,DataDefID
  Set kenmerkRunner=""
 
+
  For  Set kenmerkRunner=$O(Local(kenmerkRunner)) Quit:(kenmerkRunner="")  Do
  . Set DataDefID=UnID_"||"_HoofdGroep_"||"_kenmerkRunner
+ . Do WLIP^vhDBG(127,DataDefID)
  . If ##class(Prod.Kenmerk.DataDefinitie).%ExistsId(DataDefID) Do               //Resp. obj bestaat -> combo selectie
  ..  Do ..AddMsgToLog(" - Bezig met het openen van de bestaande DataDefinitie..."_kenmerkRunner_".")
  ..  Set tmpDataDef=##class(Prod.Kenmerk.DataDefinitie).%OpenId(DataDefID)
@@ -801,6 +806,7 @@
  Set YOffs=20
 
  New tmpStatus
+ Do WLIP^vhDBG(127,"Filter "_Filter)
  Set tmpStatus=RS.Execute(Filter)
  //Error handling voor Execute
  If $$$ISERR(tmpStatus) Do ..ReportError($$$reStatusError,tmpStatus),RS.%Close() Quit
@@ -1164,7 +1170,7 @@
  //kiMultipleDispl: maximum aantal zichtbare waarden
  New MultipleDisplay
  Set MultipleDisplay=RS.Get("MultipleDisplay")
-
+ Do WLIP^vhDBG(127,RS)
  Set Local(RS.Get("Kenmerk"))=$LB(Multiple,MultipleMax,MultipleDisplay)
 
  Quit
@@ -3291,9 +3297,11 @@
  ....   For  Quit:($E(Value,$L(Value))'=" ")  Set Value=$E(Value,1,$L(Value)-1)
  ....   New HoofdGroep
  ....   Set HoofdGroep=..GetSelectedMetaGroep()
+ ....   Do WLIP^vhDBG(127,"UpdateMultipleTransIndic gepasseerd")
  ....   Quit:(HoofdGroep="")
+ ....   Do WLIP^vhDBG(127,"UpdateMultipleTransIndic gepasseerd 2")
  ....   Set Edit.Text=DataDef(Kenmerk).GetLanguages(Value,translationRunner)
-
+	Do WLIP^vhDBG(127,"UpdateMultipleTransIndic gepasseerd 3")
  Quit
 ]]></Implementation>
 </Method>
@@ -4545,5 +4553,5 @@
 </Data>
 </Storage>
 </Class>
-<Checksum value="2186003121"/>
+<Checksum value="2276277409"/>
 </Export>