Histórico da Página
...
Nome | Tipo | Descrição |
|---|---|---|
| lRet | Lógico | Se bloqueia ou não o valor digitado do preço unitário digitado pelo operador, sendo: |
...
| Bloco de código | ||
|---|---|---|
| ||
#Include 'Protheus.ch' #Include 'Totvs.ch' User User Function TK27300C() Local lRet := .T. Local nLinha := N //Linha da linha da grid de produtos Local nPosProd := Ascan(aHeader, {|x|AllTrim(x[2]) == "UB_PRODUTO"})//Posição do campo de produto na grid Local nPosQtd := Ascan(aHeader, {|x|AllTrim(x[2]) == "UB_QUANT"}) //Posição do campo de quantidade na grid Local nVrUnit := M->UB_VRUNIT //Valor do preço unitário que foi digitado pelo operador //Não permite que o operador digite um valor menor que R$10,00, se a quantidade do produto 02 for maior que 1. If AllTrim(aCols[nLinha][nPosProd]) == "02" .And. aCols[nLinha][nPosQtd] > 1 .And. nVrUnit < 10 lRet := .F. EndIf Return lRet |
...
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas