Identificador de Regra

GER-075FCITE01

Módulo: GER - Gerais.

Finalidade: Possibilitar a manipulação do conteúdo dos campos "Valor Importação", "Valor Saída", "Coeficiente FCI" e "Código do FCI".

Características: Identificador acionado ao mostrar, calcular, importar ou editar os campos de valores do FCI. É possível identificar em qual o momento o identificador de regra será executado através da variável IMPAESTADO

Tela: F075FCI

Transação: Não se aplica.

Regra:

/* Campos que NÃO retornam valor */
Definir Numero IMPNCODEMP; @ -- Empresa -- @
Definir Numero IMPNCODFIL; @ -- Filial -- @
Definir Alfa IMPACODPRO; @ -- Produto -- @
Definir Alfa IMPACODDER; @ -- Derivação -- @
Definir Alfa IMPACODDEP; @ -- Depósito -- @
Definir Alfa IMPACODLOT; @ -- Lote -- @
Definir Alfa IMPANUMSEP; @ -- Série -- @
Definir Data IMPDPERFIM; @ -- Data Fim -- @
Definir Alfa IMPAESTADO; @ -- Verifica onde é executado -- @

/* Campos que retornam valor */
Definir Numero IMPNVLRIMP; @ -- Valor Importação -- @
Definir Numero IMPNVLRSAI; @ -- Valor Saída -- @
Definir Numero IMPNCOEFCI; @ -- Coeficiente FCI -- @
Definir Alfa IMPACODFCI; @ -- Código do FCI -- @
Definir Alfa IMPAORIMER; @ -- Origem da Mercadoria do FCI -- @

Definir Cursor Cursor_E075PRO;
Cursor_E075PRO.SQL "SELECT TIPPRO FROM E075PRO WHERE CODEMP = :IMPNCODEMP AND CODPRO = :IMPACODPRO";
Cursor_E075PRO.AbrirCursor();
Se (Cursor_E075PRO.Achou)
Inicio
/* Quando o tipo do produto for "Produzido" a regra irá alterar os valores */
Se (Cursor_E075PRO.TipPro = "P")
Inicio
IMPNVLRIMP = (IMPNVLRIMP / 2);
IMPNVLRSAI = (IMPNVLRSAI / 2);
Fim;
Fim;
Cursor_E075PRO.FecharCursor();

Variáveis Disponibilizadas: