Identificador de Regra

VEN-120RECAL01

Módulo: VEN - Vendas.

Finalidade: Indicar ao sistema que é necessário realizar o recalculo do pedido, mesmo quando o sistema não encontrar alterações (que não sejam percentuais) que influenciem no recalculo do pedido, ou seja, caso o sistema precise recalcular o pedido, o identificador de regras não será executado.

Características: A consulta de valores em memória dos campos dos dados gerais do pedido deve ser feita através da sintaxe TABELA.CAMPO, por exemplo: E120PED.CatCli.

Campos que influenciam no recalculo do pedido:

- Transação de produto dos dados gerais: E120PED.TnsPro;
- Transação de serviço dos dados gerais: E120PED.TnsSer;
- Cliente do pedido: E120PED.CodCli;
- Condição de pagamento do pedido: E120PED.CodCpg;
- Representante do pedido: E120PED.CodRep;
- Tipo de frete do pedido: E120PED.CifFob;
- Indicativo de frete somar no valor líquido do pedido: E120PED.SomFre;
- Lista de preço utilizada na venda: E120PED.CodLip;
- Data de previsão do pedido: E120PED.DatPrv (somente quando a filial não utiliza a data de emissão do pedido para busca de preço (E070VEN.VenBpe <> "S") e o parâmetro global "ConRecPrv" indicar que a data de previsão é um fator de recálculo do pedido);
- Data de emissão do pedido: E120PED.DatEmi (somente quando a filial utilizar a data de emissão do pedido para busca de preço (E070VEN.VenBpe = "S"));
- Valor de arredondamento para ECF: E120PED.VlrEcf;
- Número do empenho do contrato que gerou o pedido: E120PED.NumEmp (Somente quando o tipo de faturamento do pedido for ECF (E120PED.FatPed = 1));

Tela: Todas as telas de pedidos

Transação: Não se aplica.

Regra:

Definir Alfa VenARecPed;
Definir Numero nCodEmp;
Definir Numero nCodFil;
Definir Numero nNumPed;
Definir Cursor Cur_E120PED;

nCodEmp = E120Ped.CodEmp;
nCodFil = E120Ped.CodFil;
nNumPed = E120Ped.NumPed;

Cur_E120PED.SQL"Select CatCli
From E120PED
Where CodEmp = :nCodEmp
and CodFil = :nCodFil
and NumPed = :nNumPed";

Cur_E120PED.AbrirCursor();
se (Cur_E120PED.Achou) {
se ((E120PED.CatCli <> Cur_E120PED.CatCli)) {
VenARecPed = "S";
}
}
Cur_E120PED.FecharCursor();

Variáveis Disponibilizadas: