Linha Microsiga Protheus

Árvore de páginas

COMA020 Bloqueio Indevido Pré-Nota

Linha de Produto:

Protheus

Segmento:

Manufatura

Módulo:

SIGACOM - Compras

Função:

COMA020

Situação/Requisito:

Após configurar o parâmetro MV_DESCTOL o sistema começa a avaliar o desconto informado no pedido de compras, no fonte COMA020 linha 456 a seguinte validação:
If ABS(((nSomaPc / (nPrecoOri+nTotalNF)) -1)*100) > nPPreco
na expressão acima ele sempre vai retorno T, pois com a soma das variáveis "nPrecoOri+nTotalNF" o resultado é sempre maior que o valor real a ser considerado na tolerância.

Solução/Implementação:

Foi corrigido o fonte COMA020 para bloquear de acordo com regra correta:

If nTotalNF > nTotalPC .OR. nSomaPc > nTotalPC
If ABS(((nSomaPc / nTotalNF) -1)*100) > nPPreco
lBloqueio:= .T.
ElseIf ABS(((nSomaPc / nTotalPC) -1)*100) > nPPreco
lBloqueio:= .T.
EndIf
EndIf

Tickets relacionados:

946097

Requisito:DMANMAT02-2671