Dúvida
Como realizar a comparação de cubagem do remanejamento em relação ao local de destino, para validar se existe disponibilidade para depósito do lote, no módulo Recebimento?
 
Solução
Para comparar os valores de cubagem, vamos utilizar o FastVision executando duas consultas distintas, seguindo os passos a seguir:

1. Acesse o menu FastVision / Gerenciador de Consultas Dinâmicas;

2. Cole o script a seguir no campo Consulta SQL:

SELECT
R.IDARMAZEMDESTINO,
R.IDLOCALDESTINO ENDERECODESTINO, SUM((LR.QTDE / E.FATORCONVERSAO) * E.ALTURA * E.LARGURA * E.COMPRIMENTO) CUBAGEMREMANEJAMENTO, 
SUM((LR.QTDE / E.FATORCONVERSAO) * E.PESOBRUTO) PESO_REMANEJAMENTO
FROM REMANEJAMENTO R, LOTEREMANEJAMENTO LR, LOTE LT, EMBALAGEM E
WHERE 1=1
AND R.IDREMANEJAMENTO = &idremanejamento
AND LR.IDREMANEJAMENTO = R.IDREMANEJAMENTO
AND LT.IDLOTE = LR.IDLOTE
AND E.BARRA = LT.BARRA
AND E.IDPRODUTO = LT.IDPRODUTO
GROUP BY R.IDARMAZEMDESTINO, R.IDLOCALDESTINO, R.IDREMANEJAMENTO, R.PLANEJADO, R.CADMANUAL

3. Clique no botão Executar;

4. Informe o Id do Remanejamento:

5. Clique no botão Salvar;

6. Digite um nome para a consulta;

7. Anote os valores das colunas ENDERECO_DESTINO, CUBAGEM_REMANEJAMENTO e PESO_REMANEJAMENTO, os resultados deverão ser substituídos no próximo script;

8. Cole o script abaixo no Gerenciador, alterando a cubagem e peso nos campos indicados em negrito:

SELECT
LD.IDLOCAL,
((LD.ALTURA - LD.ALTURAMANOBRA) * LD.LARGURA * LD.COMPRIMENTO) AS CUBAGEM,
EST.CUBAGEMUTILIZADA AS CUBAGEMUTILIZADA, (((LD.ALTURA - LD.ALTURAMANOBRA) * LD.LARGURA * LD.COMPRIMENTO) - NVL(EST.CUBAGEMUTILIZADA, 0) - CUBAGEMREMANEJAMENTO) AS CUBAGEMRESTANTE, (LD.PESOMAXIMO - NVL(EST.PESOUTILIZADO, 0) - PESOREMANEJAMENTO) AS PESO_RESTANTE
FROM LOCAL LD,
(
SELECT
LL.IDENDERECO,
SUM(((LL.ESTOQUE - LL.PENDENCIA) / E.FATORCONVERSAO) * E.ALTURA * E.LARGURA * E.COMPRIMENTO) CUBAGEMUTILIZADA,
SUM(((LL.ESTOQUE - LL.PENDENCIA) / E.FATORCONVERSAO) * E.PESOBRUTO) PESOUTILIZADO
FROM LOTELOCAL LL, LOTE LT, EMBALAGEM E
WHERE 1=1
AND LT.IDLOTE = LL.IDLOTE
AND E.BARRA = LT.BARRA
AND E.IDPRODUTO = LT.IDPRODUTO
AND LL.IDARMAZEM = &IDARMAZEM
AND LL.IDLOCAL = &LOCAL
GROUP BY LL.IDENDERECO
) EST,
ARMAZEM AR
WHERE 1=1
AND LD.IDARMAZEM = &IDARMAZEM
AND LD.IDLOCAL = &LOCAL
AND EST.IDENDERECO(+) = LD.ID
AND AR.IDARMAZEM = LD.IDARMAZEM
 

9. Clique no botão Executar;

10. Informe o Id do Armazém, e o Endereço de Destino:

11. As colunas dessa consulta vão indicar os valores de cubagem e peso restantes em relação aos valores do remanejamento, valores negativos indicam que o remanejamento vai ultrapassar os limites de cubagem da posição de destino.