Identificador de Regra

EST-215BUPEC01

Módulo: EST - Estoques.

Finalidade: Este identificador tem por finalidade, permitir que o fechamento realize sua revalorizações internas com um preço de custo informado pelo usuário, ou seja, o preço existente na derivação (padrão), será ignorado. Este controle apenas será visível, caso o produto for do tipo produzido. Este controle se torna interessante, caso a empresa possuir várias filiais, e em cada uma delas o preço de custo é diferenciado.

Características: Este controle apenas será visível para produtos o tipo produzido. É interessante, quando há várias filiais e em cada uma delas o preço de custo é diferenciado ou quando o custo seja diferente do custo padrão do produto.

Tela: F215FES

Transação: Não se aplica.

Regra:

Definir Cursor Cur_T075Der01;
Definir Cursor Cur_E075Pro01;
Definir Alfa VSCodPro;
Definir Alfa VSCodDer;
Definir Alfa sCodPro;
Definir Alfa sCodDer;
Definir Alfa sCodfam;
Definir Data VSDATMOV;
Definir Data dDatMov;
Definir Numero VSPRENOV;

nCodEmp = VSCodEmp;
nCodFil = VSCodFil;
dDatMov = VSDatMov;
sCodPro = VSCodPro;
sCodDer = VSCodDer;

DesMontaData(dDatMov,nDia,nMes,nAno);
@MontaData(01,nMes,nAno,dDatMov);@
nVlrCus = 0;
Cur_E075Pro01.Sql"Select CodFam            \
From E075Pro           \
Where codPro = :sCodPro \
And CodEmp = :nCodEmp";
Cur_E075Pro01.AbrirCursor();
Se(Cur_E075Pro01.Achou){
sCodFam = Cur_E075Pro01.CodFam;
}
Cur_E075Pro01.FecharCursor();

@ Banco Oracle @
/*
Cur_T075Der01.SQL "SELECT PRECUS, CODFAM, CODPRO, CODDER                                     \  
FROM E075PCD                                                             \
WHERE E075PCD.CODEMP = :NCODEMP                                           \
AND E075PCD.CODFIL = :NCODFIL                                           \
AND :DDATMOV BETWEEN E075PCD.DATINI AND E075PCD.DATFIM                  \
AND E075PCD.CODFAM = :SCODFAM                                           \
AND ( E075PCD.CODPRO = :SCODPRO OR NVL(E075PCD.CODPRO, ' ') = ' ' )     \
AND ( E075PCD.CODDER = :SCODDER OR NVL(E075PCD.CODDER, ' ') = ' ' )     \
ORDER BY 3,4";                                                                     
Cur_T075Der01.AbrirCursor();
*/

@ Banco Sql Server @
/*
Cur_T075Der01.SQL "SELECT PRECUS, CODFAM, CODPRO, CODDER                                        \  
FROM E075PCD                                                                \
WHERE E075PCD.CODEMP = :NCODEMP                                              \
AND E075PCD.CODFIL = :NCODFIL                                              \
AND :DDATMOV BETWEEN E075PCD.DATINI AND E075PCD.DATFIM                     \
AND E075PCD.CODFAM = :SCODFAM                                              \
AND ( E075PCD.CODPRO = :SCODPRO OR ISNULL(E075PCD.CODPRO, ' ') = ' ' )     \
AND ( E075PCD.CODDER = :SCODDER OR ISNULL(E075PCD.CODDER, ' ') = ' ' )     \
ORDER BY 3,4";                                                                     
Cur_T075Der01.AbrirCursor();
*/


Enquanto(Cur_T075Der01.Achou){
nVlrCus = Cur_T075Der01.PreCus;
Cur_T075Der01.Proximo();
}
Cur_T075Der01.FecharCursor();

VSPreNov = nVlrCus;
x = 1;

Variáveis Disponibilizadas:

Nome Tipo Observações Retorna Valor
VSCODEMP NÚMERO EMPRESA N
VSCODFIL NÚMERO FILIAL N
VSDATMOV DATA DATA DO MOVIMENTO N
VSCODPRO ALFA PRODUTO N
VSCODDER ALFA DERIVAÇÃO N
VSCODDEP ALFA DEPÓSITO N
VSCODTNS ALFA TRANSAÇÃO N
VSPRECUS NÚMERO PREÇO DE CUSTO ORIGINAL N
ESTACODORI ALFA ORIGEM DO PRODUTO N
ESTAORIORP ALFA ORIGEM DO PRODUTO DA OP N
VSPRENOV NÚMERO NOVO PREÇO DE CUSTO PARA SER UTILIZADO NO FECHAMENTO S

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ê?