NEGATIVO()
NEGATIVO() -> lOkValida sinal negativo no campo corrente.
Visão geral
Esta função não recebe o valor como argumento: depende da variável ou campo posicionado no contexto de edição. A documentação a usa em VALID de MSGET. Por isso uma chamada isolada com um número ou string não representa o contrato. A fonte chama POSITIVO/NEGATIVO de inversas, mas não esclarece o caso zero; teste-o e use comparação explícita quando a regra exigir > 0 ou < 0. (Fontes: refs. 1–1.)
Sintaxe
NEGATIVO() -> lOkRetorno
Lógico sobre o conteúdo corrente, conforme o contexto da validação.
Exemplo comentado
#Include "Protheus.ch"
User Function Ed556()
Local oDlg
Local nValor := -1
// Validacao depende do campo em edicao.
DEFINE MSDIALOG oDlg TITLE "Exemplo" FROM 0,0 TO 100,300 PIXEL
@ 12,12 MSGET nValor SIZE 100,12 OF oDlg PIXEL VALID NEGATIVO()
ACTIVATE MSDIALOG oDlg CENTERED
Return NilAbre diálogo e avalia o conteúdo ao validar o campo; não grava dados. Em revisão: exemplo editorial não compilado nem executado em Protheus. Conferir includes, release, RDD e contexto antes de homologar.
- Executar apenas em sessão com interface. Distinguir preenchimento, sinal e regra de negócio; validar também os casos vazios e de cancelamento.
- Em revisão: exemplo editorial não compilado nem executado em Protheus. Conferir includes, release, RDD e contexto antes de homologar.

Comentários
Ainda não há comentários aprovados.
Entre com Google ou Microsoft para comentar.