Identificador de Regra

PRD-813GNERE00

Módulo: PRD - Produção.

Finalidade: Utilizar os valores dos campos disponíveis na tela F813GNE para consistência via ponto de regra.

Características: A negação dos campos (campos que possuem o formato "VSNeg + Campo") estão disponíveis a partir da versão 5.8.2.1 de 23/08/2013. A negação simplesmente indica que determinado registros de necessidades de produção não deve ter sido selecionado.

Importante:

Quando o campo é for do tipo alfa e na tela F813GNE permitir informar mais de um valor no campo, indicado por (+), cada valor é envolto por aspas duplas. Para ter acesso ao valor do campo sem as aspas duplas é necessário utilizar a função TrocaString para retirar as aspas duplas do campo para depois usar seu conteúdo.

Exemplo 1:

Se no campo Família for informado "MAQ"

Definir Alfa xStr;
TrocaString(VSCodFam, "\"", "", xStr);
Se (xStr = "MAQ")
Mensagem(Erro,"Esta familia não pode ser explodida");

Exemplo 2:

Se no campo Família for informado "MAQ","RRR"

Definir Alfa xStr;
TrocaString(VSCodFam, "\"", "", xStr);
Se (xStr = "MAQ,RRR")
Mensagem(Erro,"As familias MAQ e RRR não podem ser explodidas");

Tela: F813GNE

Transação: Não se aplica.

Regra:

/*Campo Calculo Necessidades*/
Definir Alfa VSTipCal;
/*Seleção p/ Cálculo Necessidades:*/
Definir Alfa VSMosPed;
Definir Alfa VSMosNec;
Definir Alfa VSMosNem;
/*Opções Gerais*/
Definir Alfa VSMulNiv;
Definir Alfa VSAvaMin;
Definir Alfa VSLevPed;
/*Ordenar Registros Selecionados por:*/
Definir Alfa VSOrdReg;
/*Seleção p/ Pedidos:*/
Definir Alfa VSPedBlo;
Definir Alfa VSComExc;
Definir Alfa VSPedPrv;
Definir Alfa VSPedNbl;
Definir Alfa VSComNex;
Definir Alfa VSPedNor;
/*Gerais*/
Definir Alfa VSCodOri;
Definir Alfa VSCodFam;
Definir Alfa VSCodPro;
Definir Alfa VSCodDer;
Definir Alfa VSCodAge;
Definir Alfa VSCodAgp;
Definir Alfa VSCodAgc;
Definir Alfa VSCodAgu;
Definir Alfa VSCodAgt;
Definir Alfa VSCodMar;
Definir Alfa VSCodPvp;
Definir Alfa VSAbrCodFil;
Definir Alfa VSAbrSeqIpd;
Definir Alfa VSCodRoe;
Definir Alfa VSAgrExp;
Definir Alfa VSAbrNumPed;
Definir Alfa VSCodTns;
Definir Alfa VSDatDeAlfa;
Definir Alfa VSDatEntAlfa;
Definir Alfa VSDatPocAAlfa;
Definir Alfa VSDatPocDAlfa;
Definir Alfa VSTela;
Definir Alfa Q;
Definir Alfa StrAux;

inicio
/*Variável para Q de linha*/
RetornaAscii(13, Q);
ConverteMascara(3, VSDatDe, VSDatDeAlfa, "DD-MM-YYYY");
ConverteMascara(3, VSDatEnt, VSDatEntAlfa, "DD-MM-YYYY");
ConverteMascara(3, VSDatPocA, VSDatPocAAlfa, "DD-MM-YYYY");
ConverteMascara(3, VSDatPocD, VSDatPocDAlfa, "DD-MM-YYYY");

StrAux = Q + Q +
"VSTela: " + VSTela + Q + Q +

"Campo Calculo Necessidades:" + Q +
"VSTipCal: " + VSTipCal + Q + Q +

"Seleção p/ Cálculo Necessidades:" + Q +
"VSMosPed: " + VSMosPed + Q +
"VSMosNec: " + VSMosNec + Q +
"VSMosNem: " + VSMosNem + Q + Q +

"Opções Gerais:" + Q +
"VSMulNiv: " + VSMulNiv + Q +
"VSAvaMin: " + VSAvaMin + Q +
"VSLevPed: " + VSLevPed + Q +

"Ordenar Registros Selecionados por:" + Q +
"VSOrdReg: " + VSOrdReg + Q + Q +

"Seleção p/ Pedidos:" + Q +
"VSPedBlo: " + VSPedBlo + Q +
"VSComExc: " + VSComExc + Q +
"VSPedPrv: " + VSPedPrv + Q +
"VSPedNbl: " + VSPedNbl + Q +
"VSComNex: " + VSComNex + Q +
"VSPedNor: " + VSPedNor + Q + Q;

/*Q do comando pois este é muito grande para a LSP*/
StrAux = StrAux +
"Gerais:" + Q +
"VSCodOri: " + VSCodOri + Q +
"VSCodFam: " + VSCodFam + Q +
"VSCodPro: " + VSCodPro + Q +
"VSCodDer: " + VSCodDer + Q +
"VSCodAge: " + VSCodAge + Q +
"VSCodAgp: " + VSCodAgp + Q +
"VSCodAgc: " + VSCodAgc + Q +
"VSCodAgu: " + VSCodAgu + Q +
"VSCodAgt: " + VSCodAgt + Q +
"VSCodMar: " + VSCodMar + Q +
"VSCodPvp: " + VSCodPvp + Q +
"VSAbrCodFil: " + VSAbrCodFil + Q +
"VSAbrSeqIpd: " + VSAbrSeqIpd + Q +
"VSCodRoe: " + VSCodRoe + Q +
"VSAgrExp: " + VSAgrExp + Q +
"VSAbrNumPed: " + VSAbrNumPed + Q +
"VSCodTns: " + VSCodTns + Q +
"VSDatDe: " + VSDatDeAlfa + Q +
"VSDatEnt: " + VSDatEntAlfa + Q +
"VSDatPocA: " + VSDatPocAAlfa + Q +
"VSDatPocD: " + VSDatPocDAlfa + Q +
"[&OK]";

mensagem(retorna,StrAux);
fim;

Variáveis Disponibilizadas: