Histórico da Página

#INCLUDE "PROTHEUS.CH"
#INCLUDE "TOTVS.CH"


User Function TK271DESROD() 

Local nValDesc := aValores[2] //Valor do desconto informadodigitado no rodapé do, Atendimento - Televendas 
Local lRet     := .T.

//Não permiti que o valor do desconto digitado no rodapé, seja maior que R$50,00 
If nValDesc > 50
    Alert("Valor do desconto digitado não permitido.")
    aValores[2] := 0
    aObj[2]:Refresh()
    lRet := .F.
EndIf

Return lRet