hello jim

now that looks like a bug. should that go into the bug list even if it is corrected in Vfp8? for developer which only work with vfp6 (like me) this would be justifyed - i think.



>Like Gunnar, I get the same problem using VFP6 SP5. So obviously reinstalling is NOT going to help.
>
>However, it works properly on VFP8.
>
>Solution: upgrade to VFP8 < s > or use your hands.
>
>
>>I try with -A , but still don´t work .
>>
>>See , for example i have this code commented
>>
>>

>>
>>*!*	IF Empty(FactDoc.NomeClient)
>>
>>*!*		cMessageTitle = 'Atenção'
>>*!*		cMessageText = "Preencha o nome do cliente !"
>>*!*			
>>*!*		nDialogType = 0 + 16 + 0
>>
>>*!*		nAnswer = MESSAGEBOX(cMessageText, nDialogType, cMessageTitle)
>>*!*			
>>*!*		ThisForm.PageFrame1.Page1.TxNomCli.SetFocus
>>
>>*!*		RETURN
>>*!*			
>>*!*	ENDIF
>>
>>

>>
>>if i uncomment , happen this :
>>
>>

>>
>>IF Empty(FactDoc.NomeClient)
>>
>>*!*		cMessageTitle = 'Atenção'
>>	cMessageText = "Preencha o nome do cliente !"
>>		
>>	nDialogType = 0 + 16 + 0
>>
>>*!*		nAnswer = MESSAGEBOX(cMessageText, nDialogType, cMessageTitle)
>>		
>>	ThisForm.PageFrame1.Page1.TxNomCli.SetFocus
>>
>>*!*		RETURN
>>		
>>ENDIF
>>
>>

>>
>>But the right is :
>>
>>

>>
>>IF Empty(FactDoc.NomeClient)
>>
>>        cMessageTitle = 'Atenção'
>>	cMessageText = "Preencha o nome do cliente !"
>>		
>>	nDialogType = 0 + 16 + 0
>>
>>        nAnswer = MESSAGEBOX(cMessageText, nDialogType, cMessageTitle)
>>		
>>	ThisForm.PageFrame1.Page1.TxNomCli.SetFocus
>>
>>        RETURN
>>		
>>ENDIF
>>
>>
>>

>>
>>Thanks