Logística - Linha Protheus - TMS - Ponto de entrada TM040BLQ Validação na Concessão do Desconto Máximo

Tempo aproximado para leitura: 00:01:00 min

Dúvida
Como implementar o ponto de entrada TM040BLQ Validação na Concessão do Desconto Máximo?

Ambiente
TOTVS Logística - TOTVS TMS (Linha Protheus) - Gestão de Transportes (TMS) - Todas as versões

Solução
O ponto de entrada TM040BLQ está localizado no TMSA040 Cotação de Frete e permite ao usuário efetuar validação na concessão do desconto máximo permitido. Lembrando que ao se utilizar esse ponto de entrada para efetuar as validações do desconto, as validações da rotina padrão serão desprezadas.

Programa Fonte: TMSA040.PRW

Sintaxe: TM040BLQ - Validação na Concessão do Desconto Máximo ( [ Nulo ] ) --> lRet
Parâmetros:

Retorno:
lRet
         (logico)
         Se o Retorno estiver (.T.) permite conceder o desconto.

Exemplos:
#Include "Protheus.ch"
User Function TM040BLQ()
Local lRet := .F.
Local cCodUser := RetCodUsr()
If cCodUser == '000000'
        lRet := .T.
End If
Return lRet

Variáveis: