I am sending you this directly because the bug page in the microsoft web has a bug:

"An error occurred rendering the requested content.
URL: http://support.microsoft.com/support/visualc/report/vcsubmit.asp?SD=MSDN&LN=ES-AR"

here is the problem:
-----

*BUG. please confirm.
* this is a snippet from my code
* _screen.formularioactivo behaves VERY abnormally if you watch it on the debugger.
* it looses it's current value each iteration.
* So, I added an extra line to ensure the correct value in the code line marked
* note: variable _screen.formularioActivo is correctly declared.

*...*
Case Val(This.Parent.lst1.ListItem(This.ListItemId,3)) = 2
lnAuxDim=Alen(_Screen.oFormsAbiertos)
_Screen.formularioactivo=(This.Parent.lst1.ListItem(This.ListItemId,2))

Local lnFormCount, llSeEncontroUno
llSeEncontroUno = .F.

lnFormCount = 1
Do While lnFormCount <= _Screen.FormCount
_Screen.formularioactivo=(This.Parent.lst1.ListItem(This.ListItemId,2)) && This is my patch

If Alltrim(_Screen.Forms[lnFormCount].Class)== "Abm" .And. ;
Alltrim(_Screen.formularioactivo) == Alltrim(_Screen.Forms[lnFormCount].cABMName)
_Screen.Forms[lnFormCount].ZOrder(0)
llSeEncontroUno = .T.

Endif
lnFormCount = lnFormCount + 1

Enddo

If !llSeEncontroUno
_Screen.oFormsAbiertos(lnAuxDim) = Createobject("abmdset")
_Screen.oFormsAbiertos(lnAuxDim).Show()
Dimension _Screen.oFormsAbiertos(lnAuxDim+1)
ENDIF
*..*
*Note: This code is reproduuced here for illustration purposes only.

*Pablo S.Velazco pvelazcoNOSPAMPLEASE@hotmail.com


--Thanks!