Identificador de Regra

CHA-900CQCOP02

Módulo: CHA - Chão de Fábrica.

Finalidade: Valida a quantidade que está sendo baixada ou estornada de um componente de OP, independentemente de lote ou série.

Características: Similar ao identificador CHA-900CQCOP01 (similar a parte das funcionalidades do mesmo), porém sem considerar os vários lotes e séries do componente sendo baixado.

TelaS: F900BAC e F900ECS.

Transação: Não se aplica.

Regra:

@Impedir a baixa/estorno de componente em que a quantidade total baixada fique 10% inferior ou 10% superior à quantidade prevista@

Definir Alfa ChaACodOri;
Definir Numero ChaNNumOrp;
Definir Numero ChaNCodEtg;
Definir Numero ChaASeqCmp;
Definir Alfa ChaACodCmp;
Definir Alfa ChaACodDer;
Definir Alfa ChaAOprBxa;
Definir Numero ChaNQtdPrv;
Definir Numero ChaNQtdMvp;
Definir Numero ChaNQtdUti;

Definir Alfa ANumOrp;
Definir Alfa ACodEtg;
Definir Alfa ASeqCmp;
Definir Alfa ARetorno;

Se (ChaNQtdPrv > 0)
  @Se possui quantidade prevista (ignora os componentes novos, previstos na OP)@
  {
    Se (ChaAOprBxa = "E")
         ChaNQtdUti = ChaNQtdUti * -1;

Se ((ChaNQtdMvp + ChaNQtdUti) > (ChaNQtdPrv * 1.1))
   {
        IntParaAlfa(ChaNNumOrp, ANumOrp);
        IntParaAlfa(ChaNCodEtg, ACodEtg);
        IntParaAlfa(ChaNSeqCmp, ASeqCmp);

    ARetorno = "Quantidade do componente " + ChaACodCmp + ", derivação " + ChaACodDer + ", sequência " + ASeqCmp + ", estágio " + ACodEtg + ", da OP " + ANumOrp + ", origem " + ChaACodOri + ", é maior que quantidade prevista mais 10%.";
    GeraLog(ARetorno);
    }

Se ((ChaNQtdMvp + ChaNQtdUti) < (ChaNQtdPrv * 0.9))
   {
   IntParaAlfa(ChaNNumOrp, ANumOrp);
   IntParaAlfa(ChaNCodEtg, ACodEtg);
   IntParaAlfa(ChaNSeqCmp, ASeqCmp);

   ARetorno = "Quantidade do componente " + ChaACodCmp + ", derivação " + ChaACodDer + ", sequência " + ASeqCmp + ", estágio " + ACodEtg + ", da OP " + ANumOrp + ", origem " + ChaACodOri + ", é menor que quantidade prevista menos 10%.";
   GeraLog(ARetorno);

   }

}

Variáveis Disponibilizadas: