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