Analitico Entradas e Saidas Estoque

/*{***************************************************************************}
{                                                                           }
{           Leopard Report                                                  }
{           Copyright (C) 2012 Carlos Dias da Silva F.                      }
{           leopardreoprt@hotmail.com                                       }
{                                                                           }
{ Resumo.: Gera Dados Analiticos de Entrada em Estoque e Saída em estoque   }
{          com Natureza da operação CFOP                                    }
{          Agrupado por Mês e Ocorrência Fiscal                             }
{         Parametros.: :PCODEPROD informe o Código de Barras do Produto     }
{                       :PMONTH Digite o Mês por extenso ex: JANEIRO         }
{***************************************************************************}*/
WITH CUBE ( "Data da ocorrência",
               "Mês",
               "Código fiscal",
               "Natureza da operação",
               "Razão social do fornecedor",
               "CNPJ do fornecedor",
               "Entradas ( + )",
               "Saídas ( - )" )AS (

 SELECT
   M.H20DATAFISCAL AS "DATA DA OCORRÊNCIA",
   CASE( (EXTRACT (MONTH FROM M.H20DATAFISCAL)) )
            WHEN 1 THEN 'JANEIRO'
            WHEN 2 THEN 'FEVEREIRO'
            WHEN 3 THEN 'MARCO'
            WHEN 4 THEN 'ABRIL'
            WHEN 5 THEN 'MAIO'
            WHEN 6 THEN 'JUNHO'
            WHEN 7 THEN 'JULHO'
            WHEN 8 THEN 'AGOSTO'
            WHEN 9 THEN 'SETEMBRO'
            WHEN 10 THEN 'OUTUBRO'
            WHEN 11 THEN 'NOVEMBRO'
            WHEN 12 THEN 'DEZEMBRO'
            END MONTHSTR,
   M.H14CODFISCAL AS "CÓD. FISCAL",
   M.H15NATUREZA AS "NATUREZA DA OPERAÇÃO",
   M.H17NOMERAZAOEMISS AS "RAZÃO SOCIAL DO FORNECEDOR",
   M.H16CNPJEMISSFORN AS "CNPJ FORCENEDOR",
   SUM(M.H05QTD) AS "ENTRADAS",
   (0.000)SAIDAS
  FROM ESTQMOVIMENTO M
   WHERE M.H10TPMOV = 0
   AND M.h03coditem = :PCODEPROD
   GROUP BY M.H20DATAFISCAL,
   M.H17NOMERAZAOEMISS,
   M.H16CNPJEMISSFORN,
   M.H14CODFISCAL,
   M.H15NATUREZA

   UNION ALL
     SELECT
   M.H20DATAFISCAL AS "DATA DA OCORRÊNCIA",
    CASE( (EXTRACT (MONTH FROM M.H20DATAFISCAL)) )
            WHEN 1 THEN 'JANEIRO'
            WHEN 2 THEN 'FEVEREIRO'
            WHEN 3 THEN 'MARCO'
            WHEN 4 THEN 'ABRIL'
            WHEN 5 THEN 'MAIO'
            WHEN 6 THEN 'JUNHO'
            WHEN 7 THEN 'JULHO'
            WHEN 8 THEN 'AGOSTO'
            WHEN 9 THEN 'SETEMBRO'
            WHEN 10 THEN 'OUTUBRO'
            WHEN 11 THEN 'NOVEMBRO'
            WHEN 12 THEN 'DEZEMBRO'
            END MONTHSTR,
   M.H14CODFISCAL AS "CÓD. FISCAL",
   M.H15NATUREZA AS "NATUREZA DA OPERAÇÃO",
   M.H17NOMERAZAOEMISS AS "RAZÃO SOCIAL DO FORNECEDOR",
   M.H16CNPJEMISSFORN AS "CNPJ FORCENEDOR",
   (0.000),
   SUM( M.H05QTD )SAIDAS
  FROM ESTQMOVIMENTO M
   WHERE M.H10TPMOV = 1
   AND M.h03coditem = :PCODEPROD
   GROUP BY M.H20DATAFISCAL,
   M.H17NOMERAZAOEMISS,
   M.H16CNPJEMISSFORN,
   M.H14CODFISCAL,
   M.H15NATUREZA  )
   SELECT C.* FROM CUBE C
     WHERE "Mês" CONTAINING :PMONTH
     AND EXTRACT ( YEAR FROM "Data da ocorrência" ) = EXTRACT (YEAR FROM CURRENT_DATE)
     ORDER BY EXTRACT (MONTH FROM "Data da ocorrência") DESC
       , "Data da ocorrência" DESC