Identificador de Regra

PCP-900PDOCS01

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

Finalidade: Permitir alterar a descrição da Ordem de Compra gerada a partir da remessa de serviços para terceiros.

Características: Até a versão 5.5.2.7, quando chamado pela tela F910GPR, apenas as variáveis ChaACodOri e ChaNNumOrp terão seus valores alimentados.

A partir da versão 5.6.6.1 (01/07/11), as variáveis ChaACodPro e ChaACodDer também serão passadas para a regra ao usar a tela F910GPR.

Tela: F900RST, F910GPR

Transação: Não se aplica.

Regra:

Precisa estar ligado a uma regra

Definir cursor cE075PRO;
Definir cursor cE075DER;
Definir cursor cE900QDO;
Definir Numero ChaNNumOrp;
Definir Alfa ChaACodOri;
Definir Alfa ChaACodPro;
Definir Alfa ChaACodDer;
Definir Alfa ChaADesSer;
Definir alfa aDesPro;
Definir alfa aDesDer;

nCodEmp = CodEmp;
@ Se estiver em branco significa que vem da geração de O.Ps.@
Se (ChaACodPro = "")
{
cE900QDO.Sql "SELECT CODPRO,CODDER
FROM E900QDO
WHERE CODEMP = :nCodEmp
AND CODORI = :ChaACodOri
AND NUMORP = :ChaNNumOrp ";
cE900QDO.Abrircursor();
Se (cE900QDO.Achou)
{
ChaACodPro = cE900QDO.CodPro;
ChaACodDer = cE900QDO.CodDer;
}
cE900QDO.FecharCursor();

}
cE075PRO.Sql "SELECT *
FROM E075PRO
WHERE CODEMP = :nCodEmp
AND CODPRO = :ChaACodPro ";
cE075PRO.Abrircursor();
Se (cE075PRO.Achou)
{
aDesPro = cE075PRO.DesPro;
}
cE075PRO.FecharCursor();

cE075DER.Sql "SELECT *
FROM E075DER
WHERE CODEMP = :nCodEmp
AND CODPRO = :ChaACodPro
AND CODDER = :ChaACodDer ";
cE075DER.Abrircursor();
Se (cE075DER.Achou)
{
aDesPro = aDesPro + " " + cE075DER.DesDer;
}
cE075DER.FecharCursor();

ChaADesSer = "Serviço para o Produto " + aDesPro;

Variáveis Disponibilizadas: