MFA001.R001 — Frete percentual limitado a 100%

Módulo: MFA001 · Menu: Faturamento > Movimentações > Parâmetros de Faturamento Classificação: intencional · Relevância: alta

Regra

Quando o Tipo de Valor de Frete é "% s/Faturamento", o Valor de Frete não pode ultrapassar 100.

Quando dispara

ao salvar, se TP_VALORFRETE = 'P' e VL_FRETE > 100

Mensagem exibida

W-1818

Como o usuário resolve

Reduzir o percentual para no máximo 100 ou trocar o tipo para "Valor Fixo".

Parâmetros envolvidos

• TP_VALORFRETE
• VL_FRETE

Evidência

Arquivo	Linhas	Rotina	O que o trecho faz
source/MFA001/UdmMFA001.pas	963-975	TdmMFA001.tabPARMFATURBeforePost	Bloqueia post e foca o campo de frete acima de 100%
source/MFA001/UMFA001.dfm	10598-10601	``	Itens do combo Tipo Valor Frete: '% s/ Faturamento' e 'Valor Fixo'

source/MFA001/UdmMFA001.pas:963

   if (dmMFA001.tabPARMFATURTP_VALORFRETE.AsString = 'P') then
      if (dmMFA001.tabPARMFATURVL_FRETE.AsFloat > 100) then
      begin

        frmMFA001.Paginas.ActivePage := frmMFA001.pagPARMAMETROS;
        frmMFA001.PageParm.ActivePage := frmMFA001.pagPedidos;
        frmMFA001.pgcPaginaPedidos.ActivePage := frmMFA001.pagPedidoOp3;

        frmMFA001.edtVL_FRETE.SetFocus;

        raise JException.Create('W-1818');

source/MFA001/UMFA001.dfm:10598

                  ItemHeight = 0
                  Items.Strings = (
                    '% s/ Faturamento'#9'P'
                    'Valor Fixo'#9'V')