>>> >>>*!* 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 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 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 >>> >>> >>>>>>