Esta versão do sistema foi descontinuada e não recebe atualizações e novas implementações. Acesse a documentação da versão 5.10.3 aqui

Identificador de Regra

VEN-120CNIUF01

Módulo: VEN - Vendas.

Finalidade: Permitir fazer consistências entre o novo item de pedido e o item de pedido original, quando o item de pedido é gerado pela consulta à tela de Últimos Faturamentos, através de botão específico na tela de pedidos agrupados. O item de pedido origem é o item que gerou o item da nota fiscal de saída. Os campos chave desse item são passados para a regra juntamente com os campos chave do item de pedido sendo gerado. Na regra, pode-se então efetuar as consistências necessárias aos dois itens de pedido (novo e de origem), como copiar campos de usuário, verificar dados, etc. Por padrão, o sistema já copia os campos de usuário, ficando a cargo da regra alterar, ajustar ou eliminar valores. O identificador é chamado para cada item de pedido a ser gerado baseado no que o usuário selecionou na tela de últimos faturamentos, e após o item novo ser gravado na base.

Tela: F141CUF

Transação: Não se aplica.

Regra:

/* Este exemplo demonstra a cópia de um campo
de usuário do item origem para o novo item */

Definir Numero VSCodEmp;
Definir Numero VSCodFil;
Definir Numero VSNumPed;
Definir Numero VSSeqIpd;

Definir Numero VSFilOri;
Definir Numero VSPedOri;
Definir Numero VSSeqOri;

Definir Numero VUSU_VLRTST;
Definir Cursor CUR_E120IPD;

VUSU_VLRTST = 0;

CUR_E120IPD.Sql "select USU_VLRTST
from E120IPD
where CODEMP = :VSCodEmp and
CODFIL = :VSFilOri and
NUMPED = :VSPedOri and
SEQIPD = :VSSeqOri";

CUR_E120IPD.AbrirCursor();

se (CUR_E120IPD.Achou)
VUSU_VLRTST = CUR_E120IPD.USU_VLRTST;

CUR_E120IPD.FecharCursor();

se (VUSU_VLRTST > 0)
ExecSql "update E120IPD
set USU_VLRTST = :VUSU_VLRTST,
USU_VLRTST2 = :VUSU_VLRTST
where CODEMP = :VSCodEmp and
CODFIL = :VSCodFil and
NUMPED = :VSNumPed and
SEQIPD = :VSSeqIpd";

Variáveis Disponibilizadas:

Nome Tipo Observações Retorna Valor
VSCodEmp ALFA Código da empresa do pedido (válido para o item original como para o novo) N
VSCodFil ALFA Código da filial do item de pedido que está sendo gerado N
VSNumPed ALFA Número do pedido do item que está sendo gerado N
VSSeqIpd ALFA Seqüência do item de pedido que está sendo gerado N
VSFilOri ALFA Código da filial do item de pedido do último faturamento selecionado (filial de origem) N
VSPedOri ALFA Número do pedido do item do último faturamento selecionado (pedido de origem) N
VSSeqOri ALFA Sequência do item de pedido do último faturamento (item de origem) N

Atenção

Caso o parâmetro global LisVarReg esteja habilitado, a variável ListaVariaveis estará disponível em todos os identificadores de regras do sistema. O conteúdo desta variável lista os campos disponibilizados no identificador de regras em questão.

Não é aconselhada a ativação desse parâmetro global para o uso cotidiano. Esse recurso de listagem dos campos de identificadores auxilia a construção de regras e o Suporte para, por exemplo, depuração ou quando não houver acesso à documentação dos identificadores de regras.

Este artigo ajudou você?