Identificador de Regra

PCP-900AQPOP01

Módulo: PCP - Planejamento e Controle Produção.

Finalidade: permitir ao usuário consistir a alteração da quantidade prevista da O.P..

Características: se a origem não gerar O.Ps. por derivação, a variável VNQtdNov terá o valor da soma das novas quantidades previstas de todas as derivações da O.P..

Tela: Alteração de Qtde Prevista da OP (F900AQP)

Transação: não se aplica.

Regra: deve estar ligado a uma regra.

Exemplo de regra para garantir que a nova quantidade esteja de acordo com a quantidade múltipla do produto da O.P:

/* variáveis alimentadas pelo ERP */
Definir Alfa VsCodOri;
Definir Alfa VsCodPro;
Definir Numero VnNumOrp;
Definir Numero VnQtdNov;

/* variáveis internas */
Definir Numero Resto;
Definir Numero QtdMlt;
Definir Cursor Cur_E075Pro;
Definir Alfa VSQtdNov;
Definir Alfa VSQtdMlt;
Definir Alfa VyNumOrp;
Definir Alfa VSMsgLog;


/* buscar a qtde múltipla no cadastro do produto */
vCodEmp = CodEmp;
Cur_E075Pro.SQL "SELECT QTDMLT FROM E075PRO WHERE CODEMP = :vCodEmp AND CODPRO = :VsCodPro";
Cur_E075Pro.AbrirCursor();
QtdMlt = Cur_E075Pro.QtdMlt;

RestoDivisao(VnQtdNov, QtdMlt, Resto);
/* se a variável Resto for maior do que zero, 
quer dizer que não é uma quantidade múltipla */
Se (Resto > 0) 
  inicio
  IntParaStr(VnQtdNov, VsQtdNov);
  IntParaStr(QtdMlt, VsQtdMlt);
  IntParaStr(VnNumOrp, VyNumOrp);
  VSMsgLog = "Não é possível alterar a quantidade da OP " + VyNumOrp + " para " + VsQtdNov + ", porque esta nova quantidade não é múltipla de " + VSQtdMlt + "!";
  GeraLog(VSMsgLog);
  fim;

Variáveis disponibilizadas: