Index: UI/PR/GA/TandemBox.cls.xml
===================================================================
diff -u -r61025 -r62809
--- UI/PR/GA/TandemBox.cls.xml	(.../TandemBox.cls.xml)	(revision 61025)
+++ UI/PR/GA/TandemBox.cls.xml	(.../TandemBox.cls.xml)	(revision 62809)
@@ -4916,13 +4916,18 @@
  s Sender=##class(%TMPersistent).GetObjOref($lg(Args,1))
  ;Beginning of user code
 
+ Do ##class(vhLib.Logger).%New("TBX_Opties").Info("TandemBox.form", "Before 'dlgTBOpties' Form New; ClientIP = '"_ MApplication.GetClientIP() _"'.")
+
  new frmDlgOpt
  Set frmDlgOpt=##class(UI.PR.GA.dlgTBOpties).%New($LB(%this.Form.Address,0))
  Do optValuesToDlg   ; waarden invullen
  If frmDlgOpt.Form.ShowModal()=$$$mrOk Do
  . Do optGetFromDlg   ; waarden uitlezen
  . ;Do ..BLToegangSequentieel("Buttons",1)
  . Do ..CtrlShowLadeImage(,,)
+
+ Do ##class(vhLib.Logger).%New("TBX_Opties").Info("TandemBox.form", "After 'dlgTBOpties'. Before cleanup frm .")
+
  Do optCleanUpAfterDlg
  Do frmDlgOpt.Form.Close()
  Do frmDlgOpt.%Close()