Index: UI/PR/GA/TandemBox.cls.xml
===================================================================
diff -u -r6143 -r9219
--- UI/PR/GA/TandemBox.cls.xml	(.../TandemBox.cls.xml)	(revision 6143)
+++ UI/PR/GA/TandemBox.cls.xml	(.../TandemBox.cls.xml)	(revision 9219)
@@ -5,6 +5,7 @@
 <IncludeCode>KeyCodesCNTs,PRGACNTs,UILibCtrlCNTs</IncludeCode>
 <StorageStrategy>Default</StorageStrategy>
 <Super>%Library.TMFormClass</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
 
 <Method name="DesignDefinition1">
 <Language>cache</Language>
@@ -1006,8 +1007,12 @@
  Quit:('..BLConsistencyCheck()) 0
  Quit:('..BLUpdateFinal()) 0
  new SaveOK,blnCreateSchaduwBS
+ do ##class(vhLib.Logger).%New("TBX_CREATE").Info("Voor BLCompleteProduct")
  Quit:('..BLCompleteProduct()) 0
+ do ##class(vhLib.Logger).%New("TBX_CREATE").Info("Na BLCompleteProduct")
+ do ##class(vhLib.Logger).%New("TBX_CREATE").Info("Voor KPRCreate")
  Do ..Product.KPRCreate(,,.MetPrijs)
+ do ##class(vhLib.Logger).%New("TBX_CREATE").Info("Na KPRCreate","ProductID = "_..Product.Product.%Id())
  Set blnCreateSchaduwBS=($IsObject(..Product.TemplateTmp.SchaduwProduct))   ; Added by WimV on 15/03/2010
    ;d WLIP^vhDBG(97,"Create Schaduw Bouwstenen ?   blnCreateSchaduwBS="_blnCreateSchaduwBS)
  Set MApplication.ScreenCursor=$$$crHourGlass
@@ -1026,8 +1031,9 @@
 
  ; Create Schaduw Bouwstenen   ; Added by WimV on 15/03/2010
  If blnCreateSchaduwBS Do
- . ;d WL^vhDBG("Create Schaduw Bouwstenen ... ")
+ . do ##class(vhLib.Logger).%New("TBX_CREATE").Info("Voor KPRCreate Schaduw")
  . Do ##class(Prod.GAData.Product).KPRCreateSchaduwViaPRNr(PRNr)
+ . do ##class(vhLib.Logger).%New("TBX_CREATE").Info("No KPRCreate Schaduw")
  
  Quit 1
 ]]></Implementation>
@@ -4552,7 +4558,9 @@
  Else  Do
  . Set Answer=$$$mrYes
  If Answer=$$$mrYes Do
+ . do ##class(vhLib.Logger).%New("TBX_CREATE").Info("CreateStart")
  . Set ProdOK=..BLCreateProduct(.MetPrijs)
+ . do ##class(vhLib.Logger).%New("TBX_CREATE").Info("CreateFinished")
  . If ProdOK Do
  ..  If '..StandAlone Set ..Form.ModalResult=$$$mrOk
  ..  Else  Do