Identificador de Regra

Definir Numero IntNCodEmp;
Definir Numero IntNNumSol;
Definir Numero IntNSeqSol;
Definir Alfa IntACodPro;
Definir Alfa IntAComplemento; /* Campo Complemento do WS de Requisição do ME - Retorna Valor = S; */
Definir Alfa IntAObsCliCabecalho; /* Campo ObsCli do cabeçalho do WS de Requisição do ME - Retorna Valor = S; */
Definir Alfa IntAObsCliItem; /* Campo ObsCli do item do WS de Requisição do ME - Retorna Valor = S; */
Definir Alfa IntACategoria; /* Campo Categoria do WS de Requisição do ME - Retorna Valor = S; */
Definir Alfa IntAPrioridadeCompra; /* Campo PrioridadeCompra do WS de Requisição do ME - Retorna Valor = S; */
Definir Alfa IntAEmergencial; /* Campo Emergencial do WS de Requisição do ME - Retorna Valor = S; */

definir Cursor xCur405sol;
xCur405sol.SQL "SELECT PROSER, CODPRO FROM E405SOL WHERE CODEMP = :IntNCodEmp AND NUMSOL = :IntNNumSol AND SEQSOL = :IntNSeqSol ";
xCur405sol.AbrirCursor();

se (xCur405sol.ProSer = "S") /*Serviço*/
{
    IntAObsCliItem = IntAComplemento;
    IntAComplemento = "";
}
senao /*Produto*/
{
  IntACodPro = xCur405sol.CodPro;
  
  definir Cursor xCur075pro;
  xCur075pro.SQL "SELECT USU_TEXCPR FROM E075PRO WHERE CODEMP = :IntNCodEmp AND CODPRO = :IntACodPro ";
  xCur075pro.AbrirCursor();
  
  IntAComplemento = "*** Descrição Detalhada: " + xCur075pro.usu_texcpr;
  IntAObsCliItem = IntAObsCliCabecalho;
  
  xCur075pro.FecharCursor();
}

xCur405sol.FecharCursor();


/* Prioridade no ME é fixa: 1- Emergencial 2 - Urgente e 3 - Normal 
   Nesse cliente: 1 - Normal e 2 - Urgente */
se ((IntAPrioridadeCompra = "") ou (IntAPrioridadeCompra = " ") ou (IntAPrioridadeCompra = "1"))
  IntAPrioridadeCompra = "3";
senao {
  IntAPrioridadeCompra = "1";
  IntAEmergencial = "S";
  }