Identificador de Regra

CPR-420TNSOC01

Módulo: CPR - Compras.

Finalidade: Permitir alterar via regra a transação sugerida pelo sistema na rotina de geração de Ordens de Compra do agrupamento de filiais.

Características: A variável CprCodTns é a única que retorna valor para o sistema, esta será enviada para a regra com o valor definido no sistema, ou seja, se a regra não influenciar a transação útilizada para a geração de Ordens de Compra será a transação sugerida pelo sistema, que pode ser: o campo E070CPR.TNSPTF (Transação padrão para geração de ordem de compra (transferência entre filiais)) ou E070CPR.TNSPVF (Transação padrão para geração de ordem de compra (venda entre filiais)), ambos os campo estão disponíveis na tela F070FCP.

Tela: F420SSD, F211ADA

Transação: Não se aplica.

Regra:

/* Permite alterar via regra a transação das OC's geradas pela rotina de geração de Ordens de Compra do agrupamento de filiais nas telas F420SSD e F211ADA*/

Definir Alfa CprAux_CodEmp;
Definir Alfa CprAux_CodFil;
Definir Alfa CprOrigem;
Definir Alfa CprCodTns;

Definir Alfa Quebra;
Definir Alfa StrAux;

inicio

RetornaAscii(13, Quebra);

IntParaAlfa(CprCodEmp, CprAux_CodEmp);
IntParaAlfa(CprCodFil, CprAux_CodFil);

StrAux = Quebra +
"CprCodEmp: " + CprAux_CodEmp + Quebra +
"CprCodFil: " + CprAux_CodFil + Quebra +
"CprOrigem: " + CprOrigem + Quebra +
"CprCodTns: " + CprCodTns + Quebra +
"[&OK]";
Mensagem(Retorna,StrAux);

se (CprOrigem = "F420SSD")
Mensagem(Retorna,"Tela F420SSD");

se (CprOrigem = "F211ADA")
Mensagem(Retorna,"Tela F211ADA");

CprCodTns = "90401";

fim

Variáveis Disponibilizadas: