Consulta Demorada

SET TERM ^ ;

CREATE PROCEDURE SP_KARDEX (
    N_LOCAL INTEGER,
    N_EMP INTEGER,
    N_PROD INTEGER,
    DATAINICIAL DATE,
    DATAFINAL DATE)
RETURNS (
    DATA DATE,
    NMOV VARCHAR(30),
    DESCRICAO VARCHAR(80),
    DOCUMENTO VARCHAR(30),
    QUANTIDADE NUMERIC(15,2),
    SALDO NUMERIC(15,2),
    TIPO CHAR(1))
AS
DECLARE VARIABLE CREDITOS NUMERIC(15,2);
DECLARE VARIABLE DEBITOS NUMERIC(15,2);
DECLARE VARIABLE SALDOANT NUMERIC(15,2);
begin
  /*Montando a primeira linha do kardex com o Saldo Anterior*/
  DATA = :datainicial;
  DESCRICAO = ´SALDO ANTERIOR´;
  documento = ´´;
  SELECT SUM(QUANTPROD) FROM MOVPRODUTO M
 WHERE M.n_local = :n_local
 AND M.n_emp = :n_emp 
 AND M.n_prod = :n_prod 
 AND M.tipomov = ´E´ 
 AND M.datamov < :datainicial
  into :creditos;
  if (creditos is null) then creditos = 0;
  SELECT SUM(QUANTPROD) FROM MOVPRODUTO M 
 WHERE M.n_local = :n_local 
 AND M.n_emp = :n_emp 
 AND M.n_prod = :n_prod 
 AND M.tipomov = ´S´ 
 AND M.datamov < :datainicial
  into :debitos;
  if (debitos is null) then debitos = 0;
  saldo = creditos - debitos;
  if (SALDO < 0) THEN
  BEGIN
    SALDO = SALDO * (-1);
    tipo = ´S´;
  END
  ELSE tipo = ´E´;
  suspend;
 
  data = null;
  nmov = null;
  descricao = null;
  documento = null;
  quantidade = null;
  saldoant = saldo;
  saldo = null;
  /*Fim do Saldo Anterior*/

  /*Verificando as movimentações do produto*/
  FOR SELECT M.DATAMOV,CASE M.descrimov 
WHEN ´NOTA FISCAL´ THEN(select NUMERONF FROM NOTAFISCAL N WHERE M.n_req = N.n_nf) 
WHEN ´REQUISIÇÃO´ THEN(select N_REQ FROM REQUISICAO R WHERE M.n_req = R.n_req) 
WHEN ´BALANÇO´ THEN(select N_BAL FROM BALANCO B WHERE M.n_req = B.n_bal) 
WHEN ´AJUSTE´ THEN(select N_AJU FROM AJUSTE A WHERE M.n_req = A.n_aju) 
END AS "NMOVIMENTO",CASE M.tipomov 
WHEN ´E´ THEN(select RAZAOFORN FROM FORNECEDOR F,NOTAFISCAL N WHERE M.n_req = N.n_nf AND N.n_forn = F.n_forn) 
WHEN ´S´ THEN(select NOMECLI FROM CLIENTE C,REQUISICAO R WHERE M.n_req = R.n_req AND R.n_cli = C.n_cli) 
END AS "Nome/Razão Social",M.descrimov,M.QUANTPROD,M.TIPOMOV
 FROM MOVPRODUTO M 
WHERE M.n_local = :n_local 
AND M.n_emp = :n_emp 
AND M.n_prod = :n_prod 
AND (M.datamov BETWEEN :datainicial AND :datafinal)
      ORDER BY 1
      INTO :data, :nmov ,:descricao, :documento, :quantidade, :tipo DO
      BEGIN
         if (not tipo is null) then begin
            if (tipo = ´E´) then SALDO = SALDOANT + QUANTIDADE;
            if (tipo = ´S´) then SALDO = SALDOANT - QUANTIDADE;
            saldoant = saldo;
            suspend;
            data = null;
            nmov = null;
            descricao = null;
            documento = null;
            quantidade = null;
            tipo = null;
         end
      end
      data = datafinal;
      descricao = ´SALDO´;
      documento = ´´;
      saldo = saldoant;
      suspend;
   end^

SET TERM ; ^

SET TERM ^ ;

CREATE PROCEDURE SP_EXTRATO (
    PRODUTO VARCHAR(12),
    DATAINICIAL DATE,
    DATAFINAL DATE)
RETURNS (
    DATA DATE,
    REFERENCIA VARCHAR(40),
    DESCRICAO VARCHAR(12),
    UNIDADE VARCHAR(3),
    MARCA VARCHAR(30),
    QUANTIDADE NUMERIC(18,2),
    SALDO NUMERIC(18,2),
    OPERACAO CHAR(1))
AS
DECLARE VARIABLE CREDITOS NUMERIC(18,2);
DECLARE VARIABLE DEBITOS NUMERIC(18,2);
DECLARE VARIABLE SALDOANT NUMERIC(18,2);
begin
  
  /*Montando a primeira linha do kardex com o Saldo Anterior*/
  DATA = :datainicial;
  DESCRICAO = ´SALDO ANTERIOR´;
  SELECT SUM(QUANTIDADE) FROM MOVIESTOQUE M
  WHERE M.PRODUTO = :produto
  AND M.operacao = ´E´
  AND M.data < :datainicial
  into :creditos;
  if (creditos is null) then creditos = 0;
  
  SELECT SUM(QUANTIDADE) FROM MOVIESTOQUE M
  WHERE M.PRODUTO = :produto
  AND M.operacao = ´S´
  AND M.data < :datainicial
  into :debitos;
  if (debitos is null) then debitos = 0;
  
  saldo = creditos - debitos;
  if (SALDO < 0) THEN
  BEGIN
    SALDO = SALDO * (-1);
    operacao = ´S´;
  END
  ELSE operacao = ´E´;
  suspend;
     
    
  data = null;
  referencia = null;
  descricao = null;
  unidade = null;
  quantidade = null;
  marca = null;
  saldoant = saldo;
  saldo = null;
  /*Fim do Saldo Anterior*/


  /*Verificando as movimentações do produto*/
  FOR SELECT M.DATA, M.PRODUTO, P.DESCRICAO, P.UNIDADE, P.MARCA, M.QUANTIDADE, M.OPERACAO
  FROM MOVIESTOQUE M
  WHERE M.PRODUTO = :produto
  AND (M.data BETWEEN :datainicial AND :datafinal)
      ORDER BY 1
      INTO :data, :referencia, :descricao, :unidade, :marca, :quantidade, :operacao DO
      BEGIN
         if (not operacao is null) then begin
            if (operacao = ´E´) then SALDO = SALDOANT + QUANTIDADE;
            if (operacao = ´S´) then SALDO = SALDOANT - QUANTIDADE;
            saldoant = saldo;
            suspend;
            data = null;
            referencia = null;
            descricao = null;
            unidade = null;
            marca = null;
            quantidade = null;
            operacao = null;
         end
      end
      data = datafinal;
      referencia = ´SALDO´;
      saldo = saldoant;
      suspend;
   end^

SET TERM ; ^

SELECT
  P.REFERENCIA, P.DESCRICAO, P.UNIDADE, P.MARCA, P.ATUAL,
  SUM(CASE ME.OPERACAO WHEN ´E´ THEN COALESCE(ME.QUANTIDADE,0) ELSE 0 END) AS ENTRADAS,
  SUM(CASE ME.OPERACAO WHEN ´S´ THEN COALESCE(ME.QUANTIDADE,0) ELSE 0 END) AS SAIDAS
FROM
  PRODUTOS P
LEFT JOIN
  MOVIESTOQUE ME
  ON (ME.PRODUTO = P.REFERENCIA AND ME.DATA > :VDataPosicao)
GROUP BY
  P.REFERENCIA, P.DESCRICAO, P.UNIDADE, P.MARCA, P.ATUAL
ORDER BY
  P.REFERENCIA

SET TERM ^ ; 

CREATE PROCEDURE SP_KARDEX(
    DATAPOSICAO DATE,
    REFERENCIAENTRADA VARCHAR(40))
RETURNS (
    REFERENCIA VARCHAR(40), 
    DESCRICAO VARCHAR(40),
    UNIDADE VARCHAR(3),
    MARCA VARCHAR(30),
    DATAPOSICAO DATE,
    SALDOANTERIOR NUMERIC(18,2),
    ENTRADAS NUMERIC(18,2),
    SAIDAS NUMERIC(18,2))
    SALDOATUAL NUMERIC(18,2),
AS 
begin
  -- se não for passada uma referência de produto,
  -- traz todos os produtos
  if (referenciaentrada is null) then referenciaentrada = ´¬´;

  -- seleciona todos os produtos
  for select
        referencia, descricao, unidade, marca, atual
      from
        produto
      where
        referencia like :referenciaentrada
  into :referencia, :descricao, :unidade, :marca, :saldoatual do
  begin
    -- soma as entradas e saídas do produto no período ANTERIOR à data informada
    select
      sum(case operacao = ´E´ then coalesce(QUANTIDADE,0) else 0 end),
      sum(case operacao = ´S´ then coalesce(QUANTIDADE,0) else 0 end)
    from
      MoviEstoque
    where
      produto = :referencia
      and data <=  :dataposicao
    into :entradas, :saidas;

    saldoanterior = entradas - saidas;

    -- soma as entradas e saídas do produto no período POSTERIOR ao informado
    select
      sum(case operacao = ´E´ then coalesce(QUANTIDADE,0) else 0 end),
      sum(case operacao = ´S´ then coalesce(QUANTIDADE,0) else 0 end)
    from
      MoviEstoque
    where
      produto = :referencia
      and data > :dataposicao
    into :entradas, :saidas;

    suspend;
  end

end^ 

SET TERM ; ^