Linha Microsiga Protheus

Árvore de páginas

Ponto-de-Entrada: M410LIOK - Validação de linha de pedido - ocorre durante a troca da linha da getdados


Versões:Microsiga Protheus 8.11 , Microsiga Protheus 10
Idiomas:Espanhol , Inglês


Descrição:

Validação de linha no pedido de venda.

Programa Fonte
MATA410.PRX
Sintaxe

M410LIOK - Validação de linha de pedido ( < UPAR> ) --> URET

Parâmetros:



Nome

Tipo

Descrição

Default

Obrigatório

Referência

UPAR

Qualquer

Objeto Dialogo (dlg) da tela de pedido




X



Exemplo:

User Function M410LIOK()

Local lRet := .T.
Local nPosQuant := Ascan(Aheader,{|x| AllTrim(x[2]) == "C6_QTDVEN" })

If acols[n][nPosQuant] > 1
   Alert("Não é possível informar quantidade maior que 1")
   Lret := .F.
EndIf

Return lRet


Retorno
URET
    (qualquer)
  • Variavel logica, validando (.T.) ou nao (.F.) a linha.


  • Sem rótulos