English
Español
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.
English
Español
