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