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()
Index: UI/PR/GA/dlgTBOpties.cls.xml
===================================================================
diff -u -r51143 -r62809
--- UI/PR/GA/dlgTBOpties.cls.xml	(.../dlgTBOpties.cls.xml)	(revision 51143)
+++ UI/PR/GA/dlgTBOpties.cls.xml	(.../dlgTBOpties.cls.xml)	(revision 62809)
@@ -4,7 +4,6 @@
 <ClassType>serial</ClassType>
 <StorageStrategy>Default</StorageStrategy>
 <Super>%Library.TMFormClass</Super>
-<ClassDefinitionError>0</ClassDefinitionError>
 
 <Property name="Form">
 <Type>%Library.TMForm</Type>
@@ -474,6 +473,11 @@
  s Sender=##class(%TMPersistent).GetObjOref($lg(Args,1))
  ;Beginning of user code
 
+ If (..Form.Left < 1) Set ..Form.Left = 201
+ If (..Form.Top < 1) Set ..Form.Top = 201
+
+ Do ##class(vhLib.Logger).%New("TBX_Opties").Info("dlgTBOpties", "Frm.dlgTBOpties properties : Position='" _ ..Form.Position _"'  -  Left Top : "_ ..Form.Left _ " , "_ ..Form.Top _ "  - HxW : " _ ..Form.Height _ " x " _ ..Form.Width)
+
  Do ..OKButtonEnabled()
  Set ..NMAnswer=""
 
@@ -681,6 +685,9 @@
 <SoapBindingStyle>document</SoapBindingStyle>
 <SoapBodyUse>literal</SoapBodyUse>
 <Implementation><![CDATA[
+
+ Do ##class(vhLib.Logger).%New("TBX_Opties").Info("dlgTBOpties", "Frm.dlgTBOpties : OnCreate()")
+
  Set ..cboMatKlant.OnChangeItem=$lb(%this, "OnChangeItem")
  Set ..cboStalenRug.OnChangeItem=$lb(%this,"OnChangeItem")
  Set ..cboOndSpecial.OnChangeItem=$lb(%this,"OnChangeItem")
@@ -703,6 +710,8 @@
  s Sender=##class(%TMPersistent).GetObjOref($lg(Args,1))
  ;Beginning of user code
 
+ Do ##class(vhLib.Logger).%New("TBX_Opties").Info("dlgTBOpties","btnCancel clicked.")
+
  Set ..Form.ModalResult=$$$mrCancel
 
  ;End of user code
@@ -723,6 +732,8 @@
  s Sender=##class(%TMPersistent).GetObjOref($lg(Args,1))
  ;Beginning of user code
 
+ Do ##class(vhLib.Logger).%New("TBX_Opties").Info("dlgTBOpties","btnOK clicked.")
+
  If ..IsVolledig() Do
  . Set ..Form.ModalResult=$$$mrOk
  Else  Do