Histórico da Página

#Include 'Protheus.ch'
#Include 'Totvs.ch'  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. M->UB_VRUNITnVrUnit < 10
    lRet := .F.
EndIFEndIf

Return lRet