Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Weird behavior
Message
 
 
Information générale
Forum:
Visual FoxPro
Catégorie:
Gestionnaire d'écran & Écrans
Titre:
Versions des environnements
Visual FoxPro:
VFP 8 SP1
OS:
Windows XP SP2
Database:
Visual FoxPro
Divers
Thread ID:
01028710
Message ID:
01028781
Vues:
12
>>if you add a breakpoint instead of the msgbox in the object called twice, you can just view each stacklevels current code - could be enough, since you aren't tracing the code. Perhaps best practice would be to call an external prg whose actions (might still be the MsgBox) you could change on a whim.
>>
>>regards
>
>I have another idea. I put a call to stackinfo() from the biz object (base class) Save method. I will write tis info in a file.

Here are results from the biz object class Save method, which do not make sense to me:
Saving Transpatientsbizobj1 Calling from MAINVIEW1.SAVEBIZOBJ Stack info: 
 Stack Level: 9 Program: c:\mmviscollect\libs\abizness.vct Module/Object: mainview1.pgpatient.page1.cntpatient.transpatientsbizobj1.save Source code: lnProgs = ASTACKINFO(laStackInfo)
 Stack Level: 8 Program: c:\mmortals\common30\libs\cforms.vct Module/Object: mainview1.savebizobj Source code: 	lnRetVal = This.oBizObj.Save()
 Stack Level: 7 Program: c:\mmortals\common30\libs\cforms.vct Module/Object: mainview1.save Source code: 		lnRetVal = This.SaveBizObj()
 Stack Level: 6 Program: c:\mmortals\common30\libs\cforms.vct Module/Object: mainview1.saverecord Source code: 	lnReply = ThisForm.Save()
 Stack Level: 5 Program: c:\mmortals\common30\libs\ctoolbar.vct Module/Object: oanavtoolbar.cmdsave.click Source code: lnRetVal = _screen.ActiveForm.SaveRecord()
 Stack Level: 4 Program: c:\mmviscollect\libs\acustomcontrols.vct Module/Object: mainview1.cntsavecancelclose.cmdsave.click Source code: 	RETURN thisform.otoolbar.cmdsave.click()
 Stack Level: 3 Program: c:\mmortals\common30\libs\capp.vct Module/Object: mmviscollect.do Source code: READ EVENTS
 Stack Level: 2 Program: c:\mmortals\common30\progs\setup.fxp Module/Object: setup Source code: 		goApp.Do()
 Stack Level: 1 Program: c:\mmviscollect\progs\main.fxp Module/Object: main Source code: DO [COMMONPATH\PROGS\Setup
****************************************
Saving Statuscodesbizobj1 Calling from MAINVIEW1.UPDATETRANSSTATUS Stack info: 
 Stack Level: 12 Program: c:\mmviscollect\libs\abizness.vct Module/Object: mainview1.pgpatient.page1.cntpatient.statuscodesbizobj1.save Source code: lnProgs = ASTACKINFO(laStackInfo)
 Stack Level: 11 Program: c:\mmviscollect\libs\aformspatientdemo.vct Module/Object: mainview1.updatetransstatus Source code: 	llReturn = loStatus.SAVE() = FILE_OK
 Stack Level: 10 Program: c:\mmviscollect\libs\aformspatientdemo.vct Module/Object: mainview1.pgpatient.page1.cntpatient.transpatientsbizobj1.postsavehook Source code:    llReturn = thisform.UpdateTransStatus()
 Stack Level: 9 Program: c:\mmviscollect\libs\abizness.vct Module/Object: mainview1.pgpatient.page1.cntpatient.transpatientsbizobj1.save Source code: 	IF NOT THIS.PostSaveHook()
 Stack Level: 8 Program: c:\mmortals\common30\libs\cforms.vct Module/Object: mainview1.savebizobj Source code: 	lnRetVal = This.oBizObj.Save()
 Stack Level: 7 Program: c:\mmortals\common30\libs\cforms.vct Module/Object: mainview1.save Source code: 		lnRetVal = This.SaveBizObj()
 Stack Level: 6 Program: c:\mmortals\common30\libs\cforms.vct Module/Object: mainview1.saverecord Source code: 	lnReply = ThisForm.Save()
 Stack Level: 5 Program: c:\mmortals\common30\libs\ctoolbar.vct Module/Object: oanavtoolbar.cmdsave.click Source code: lnRetVal = _screen.ActiveForm.SaveRecord()
 Stack Level: 4 Program: c:\mmviscollect\libs\acustomcontrols.vct Module/Object: mainview1.cntsavecancelclose.cmdsave.click Source code: 	RETURN thisform.otoolbar.cmdsave.click()
 Stack Level: 3 Program: c:\mmortals\common30\libs\capp.vct Module/Object: mmviscollect.do Source code: READ EVENTS
 Stack Level: 2 Program: c:\mmortals\common30\progs\setup.fxp Module/Object: setup Source code: 		goApp.Do()
 Stack Level: 1 Program: c:\mmviscollect\progs\main.fxp Module/Object: main Source code: DO [COMMONPATH\PROGS\Setup
****************************************
Saving Employee_queue_activity_bizobj1 Calling from MAINVIEW1.PGPATIENT.PAGE1.CNTPATIENT.STATUSCODESBIZOBJ1.POSTSAVEHOOK Stack info: 
 Stack Level: 14 Program: c:\mmviscollect\libs\abizness.vct Module/Object: mainview1.cntmaininfo.employee_queue_activity_bizobj1.save Source code: lnProgs = ASTACKINFO(laStackInfo)
 Stack Level: 13 Program: c:\mmviscollect\libs\aformspatientdemo.vct Module/Object: mainview1.pgpatient.page1.cntpatient.statuscodesbizobj1.postsavehook Source code: 		.SAVE()
 Stack Level: 12 Program: c:\mmviscollect\libs\abizness.vct Module/Object: mainview1.pgpatient.page1.cntpatient.statuscodesbizobj1.save Source code: 	IF NOT THIS.PostSaveHook()
 Stack Level: 11 Program: c:\mmviscollect\libs\aformspatientdemo.vct Module/Object: mainview1.updatetransstatus Source code: 	llReturn = loStatus.SAVE() = FILE_OK
 Stack Level: 10 Program: c:\mmviscollect\libs\aformspatientdemo.vct Module/Object: mainview1.pgpatient.page1.cntpatient.transpatientsbizobj1.postsavehook Source code:    llReturn = thisform.UpdateTransStatus()
 Stack Level: 9 Program: c:\mmviscollect\libs\abizness.vct Module/Object: mainview1.pgpatient.page1.cntpatient.transpatientsbizobj1.save Source code: 	IF NOT THIS.PostSaveHook()
 Stack Level: 8 Program: c:\mmortals\common30\libs\cforms.vct Module/Object: mainview1.savebizobj Source code: 	lnRetVal = This.oBizObj.Save()
 Stack Level: 7 Program: c:\mmortals\common30\libs\cforms.vct Module/Object: mainview1.save Source code: 		lnRetVal = This.SaveBizObj()
 Stack Level: 6 Program: c:\mmortals\common30\libs\cforms.vct Module/Object: mainview1.saverecord Source code: 	lnReply = ThisForm.Save()
 Stack Level: 5 Program: c:\mmortals\common30\libs\ctoolbar.vct Module/Object: oanavtoolbar.cmdsave.click Source code: lnRetVal = _screen.ActiveForm.SaveRecord()
 Stack Level: 4 Program: c:\mmviscollect\libs\acustomcontrols.vct Module/Object: mainview1.cntsavecancelclose.cmdsave.click Source code: 	RETURN thisform.otoolbar.cmdsave.click()
 Stack Level: 3 Program: c:\mmortals\common30\libs\capp.vct Module/Object: mmviscollect.do Source code: READ EVENTS
 Stack Level: 2 Program: c:\mmortals\common30\progs\setup.fxp Module/Object: setup Source code: 		goApp.Do()
 Stack Level: 1 Program: c:\mmviscollect\progs\main.fxp Module/Object: main Source code: DO [COMMONPATH\PROGS\Setup
****************************************
Saving Statuscodesbizobj1 Calling from MAINVIEW1.UPDATETRANSSTATUS Stack info: 
 Stack Level: 12 Program: c:\mmviscollect\libs\abizness.vct Module/Object: mainview1.pgpatient.page1.cntpatient.statuscodesbizobj1.save Source code: lnProgs = ASTACKINFO(laStackInfo)
 Stack Level: 11 Program: c:\mmviscollect\libs\aformspatientdemo.vct Module/Object: mainview1.updatetransstatus Source code: 	llReturn = loStatus.SAVE() = FILE_OK
 Stack Level: 10 Program: c:\mmviscollect\libs\aformspatientdemo.vct Module/Object: mainview1.pgpatient.page1.cntpatient.transpatientsbizobj1.postsavehook Source code:    llReturn = thisform.UpdateTransStatus()
 Stack Level: 9 Program: c:\mmviscollect\libs\abizness.vct Module/Object: mainview1.pgpatient.page1.cntpatient.transpatientsbizobj1.save Source code: 	IF NOT THIS.PostSaveHook()
 Stack Level: 8 Program: c:\mmortals\common30\libs\cforms.vct Module/Object: mainview1.savebizobj Source code: 	lnRetVal = This.oBizObj.Save()
 Stack Level: 7 Program: c:\mmortals\common30\libs\cforms.vct Module/Object: mainview1.save Source code: 		lnRetVal = This.SaveBizObj()
 Stack Level: 6 Program: c:\mmortals\common30\libs\cforms.vct Module/Object: mainview1.saverecord Source code: 	lnReply = ThisForm.Save()
 Stack Level: 5 Program: c:\mmortals\common30\libs\ctoolbar.vct Module/Object: oanavtoolbar.cmdsave.click Source code: lnRetVal = _screen.ActiveForm.SaveRecord()
 Stack Level: 4 Program: c:\mmviscollect\libs\acustomcontrols.vct Module/Object: mainview1.cntsavecancelclose.cmdsave.click Source code: 	RETURN thisform.otoolbar.cmdsave.click()
 Stack Level: 3 Program: c:\mmortals\common30\libs\capp.vct Module/Object: mmviscollect.do Source code: READ EVENTS
 Stack Level: 2 Program: c:\mmortals\common30\progs\setup.fxp Module/Object: setup Source code: 		goApp.Do()
 Stack Level: 1 Program: c:\mmviscollect\progs\main.fxp Module/Object: main Source code: DO [COMMONPATH\PROGS\Setup
****************************************
Saving Employee_queue_activity_bizobj1 Calling from MAINVIEW1.PGPATIENT.PAGE1.CNTPATIENT.STATUSCODESBIZOBJ1.POSTSAVEHOOK Stack info: 
 Stack Level: 14 Program: c:\mmviscollect\libs\abizness.vct Module/Object: mainview1.cntmaininfo.employee_queue_activity_bizobj1.save Source code: lnProgs = ASTACKINFO(laStackInfo)
 Stack Level: 13 Program: c:\mmviscollect\libs\aformspatientdemo.vct Module/Object: mainview1.pgpatient.page1.cntpatient.statuscodesbizobj1.postsavehook Source code: 		.SAVE()
 Stack Level: 12 Program: c:\mmviscollect\libs\abizness.vct Module/Object: mainview1.pgpatient.page1.cntpatient.sbizobj1.save Source code: 	IF NOT THIS.PostSaveHook()
 Stack Level: 11 Program: c:\mmviscollect\libs\aformspatientdemo.vct Module/Object: mainview1.updatetransstatus Source code: 	llReturn = loStatus.SAVE() = FILE_OK
 Stack Level: 10 Program: c:\mmviscollect\libs\aformspatientdemo.vct Module/Object: mainview1.pgpatient.page1.cntpatient.transpatientsbizobj1.postsavehook Source code:    llReturn = thisform.UpdateTransStatus()
 Stack Level: 9 Program: c:\mmviscollect\libs\abizness.vct Module/Object: mainview1.pgpatient.page1.cntpatient.transpatientsbizobj1.save Source code: 	IF NOT THIS.PostSaveHook()
 Stack Level: 8 Program: c:\mmortals\common30\libs\cforms.vct Module/Object: mainview1.savebizobj Source code: 	lnRetVal = This.oBizObj.Save()
 Stack Level: 7 Program: c:\mmortals\common30\libs\cforms.vct Module/Object: mainview1.save Source code: 		lnRetVal = This.SaveBizObj()
 Stack Level: 6 Program: c:\mmortals\common30\libs\cforms.vct Module/Object: mainview1.saverecord Source code: 	lnReply = ThisForm.Save()
 Stack Level: 5 Program: c:\mmortals\common30\libs\ctoolbar.vct Module/Object: oanavtoolbar.cmd Source code: lnRetVal = _screen.ActiveForm.SaveRecord()
 Stack Level: 4 Program: c:\mmviscollect\libs\acustomcontrols.vct Module/Object: mainview1.cntsavecancelclose.cmd Source code: 	RETURN thisform.otoolbar.cmd()
 Stack Level: 3 Program: c:\mmortals\common30\libs\capp.vct Module/Object: mmviscollect.do Source code: READ EVENTS
 Stack Level: 2 Program: c:\mmortals\common30\progs\setup.fxp Module/Object: setup Source code: 		goApp.Do()
 Stack Level: 1 Program: c:\mmviscollect\progs\main.fxp Module/Object: main Source code: DO [COMMONPATH\PROGS\Setup
If it's not broken, fix it until it is.


My Blog
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform