CrossMonth

BEGIN
  FOR
    SELECT ANO,
           MAX(JANEIRO) JANEIRO,
           MAX(FEVEREIRO) FEVEREIRO,
           MAX(MARCO) MARCO,
           MAX(ABRIL) ABRIL,
           MAX(MAIO) MAIO,
           MAX(JUNHO) JUNHO,
           MAX(JULHO) JULHO,
           MAX(AGOSTO) AGOSTO,
           MAX(SETEMBRO) SETEMBRO,
           MAX(OUTUBRO) OUTUBRO,
           MAX(NOVEMBRO) NOVEMBRO,
           MAX(DEZEMBRO) DEZEMBRO,
           SUM(TOTAL) AS TOTAL

      FROM
      (

      SELECT EXTRACT(YEAR FROM VENDA_DATA) ANO,
                   CASE
                     WHEN EXTRACT(MONTH FROM VENDA_DATA) = 1 THEN
                      SUM(PED.VENDA_VLTOTAL)
                     ELSE
                      0
                   END JANEIRO,
                   CASE
                     WHEN EXTRACT(MONTH FROM VENDA_DATA) = 2 THEN
                      SUM(PED.VENDA_VLTOTAL)
                     ELSE
                      0
                   END FEVEREIRO,
                   CASE
                     WHEN EXTRACT(MONTH FROM VENDA_DATA) = 3 THEN
                      SUM(PED.VENDA_VLTOTAL)
                     ELSE
                      0
                   END MARCO,
                   CASE
                     WHEN EXTRACT(MONTH FROM VENDA_DATA) = 4 THEN
                      SUM(PED.VENDA_VLTOTAL)
                     ELSE
                      0
                   END ABRIL,
                   CASE
                     WHEN EXTRACT(MONTH FROM VENDA_DATA) = 5 THEN
                      SUM(PED.VENDA_VLTOTAL)
                     ELSE
                      0
                   END MAIO,
                   CASE
                     WHEN EXTRACT(MONTH FROM VENDA_DATA) = 6 THEN
                      SUM(PED.VENDA_VLTOTAL)
                     ELSE
                      0
                   END JUNHO,
                   CASE
                     WHEN EXTRACT(MONTH FROM VENDA_DATA) = 7 THEN
                      SUM(PED.VENDA_VLTOTAL)
                     ELSE
                      0
                   END JULHO,
                   CASE
                     WHEN EXTRACT(MONTH FROM VENDA_DATA) = 8 THEN
                      SUM(PED.VENDA_VLTOTAL)
                     ELSE
                      0
                   END AGOSTO,
                   CASE
                     WHEN EXTRACT(MONTH FROM VENDA_DATA) = 9 THEN
                      SUM(PED.VENDA_VLTOTAL)
                     ELSE
                      0
                   END SETEMBRO,
                   CASE
                     WHEN EXTRACT(MONTH FROM VENDA_DATA) = 10 THEN
                      SUM(PED.VENDA_VLTOTAL)
                     ELSE
                      0
                   END OUTUBRO,
                   CASE
                     WHEN EXTRACT(MONTH FROM VENDA_DATA) = 11 THEN
                      SUM(PED.VENDA_VLTOTAL)
                     ELSE
                      0
                   END NOVEMBRO,
                   CASE
                     WHEN EXTRACT(MONTH FROM VENDA_DATA) = 12 THEN
                      SUM(PED.VENDA_VLTOTAL)
                     ELSE
                      0
                   END DEZEMBRO,
                   SUM(PED.VENDA_VLTOTAL) AS TOTAL
              FROM MOVPDV_VENDAS PED
             WHERE
              VENDA_DATA BETWEEN :PDATEINI AND :PDATEFIM
               AND
                 (
                   ( PED.VENDA_SITUACAO CONTAINING :SITUACAOVENDA )

                 )
                 AND
                  (
                     ( PED.SAT_SITUACAO CONTAINING :SITSAT )

                   )
                   AND
                   (
                     (PED.PDV_NSERIESAT CONTAINING :PNUMSAT )
                   )
                   AND
                    (
                      ( PED.PDV_NUMPDV CONTAINING :PNUMPDV )
                    )
                    AND
                    (
                      ( PED.VENDA_USERPDV CONTAINING :POPERADOR )
                    )


             GROUP BY EXTRACT(YEAR FROM VENDA_DATA),
                      EXTRACT(MONTH FROM VENDA_DATA)

                      )

     GROUP BY ANO
     ORDER BY ANO DESC
    INTO :ANO,
         :JANEIRO,
         :FEVEREIRO,
         :MARCO,
         :ABRIL,
         :MAIO,
         :JUNHO,
         :JULHO,
         :AGOSTO,
         :SETEMBRO,
         :OUTUBRO,
         :NOVEMBRO,
         :DEZEMBRO,
         :TOTAL
  DO
  BEGIN
    SUSPEND;
  END
END