<!--$$

-- -------------------------------------------------------------------------------------------------------------------
-- RELATORIO_DOTACAO.HTML
-- -------------------------------------------------------------------------------------------------------------------
-- CRIADO EM:         12/07/2001
-- DESENVOLVEDOR (A): Luciana Lima
-- -------------------------------------------------------------------------------------------------------------------
-- Relatório Anual com Dotação Orçamentária
-- -------------------------------------------------------------------------------------------------------------------
   assert( dofile( 'lua/acessabd.lua' ) )
   assert( dofile( 'lua/global.lua' ) )        
 
   if ESTADO_BD ~= 'aberto' then
      AbreBD()
   end

-- -------------------------------------------------------------------------------------------------------------------   
-- CGIs recebidos: cgi.text_unidade, cgi.unidade, cgi.Selmes, cgi.Selano
-- -------------------------------------------------------------------------------------------------------------------
-- Nas consultas a coluna trans_tipo assume os seguintes valores: '0' significa investimento e '1' significa operação
-- ------------------------------------------------------------------------------------------------------------------- 

-- -------------------------------------------------------------------------------------------------------------------
-- Retorna MES selecionado
-- -------------------------------------------------------------------------------------------------------------------            
   mes = tonumber( cgi.Selmes )

-- -------------------------------------------------------------------------------------------------------------------
-- Calcula o valor da QUEBRA, ou seja, dependendo se o mês escolhido para a emissão do relatório é par ou ímpar, a 
-- impressão do relatório na tela se comportará de acordo
-- A impressão é feita de dois em dois meses, então quando o mês é ímpar temos que tratar a impressão de uma forma
-- diferenciada 
-- -------------------------------------------------------------------------------------------------------------------            
   if mes > 1 then
      quebra = mes / 2
   -- --------------------------------------------------------------------------------------------
   -- Formata o resultado da divisão de forma a recuperar somente a parte inteira do resultado       
   -- --------------------------------------------------------------------------------------------
      quebra = tonumber( format( "%u", quebra ) )
      
   -- --------------------------------------------------------------------------------------------
   -- Retorna o resto da divisão ( mes / 2 )       
   -- --------------------------------------------------------------------------------------------       
      quebra = mes - ( 2 * quebra )
      
   else 
      quebra = 1   
   end    

-- -------------------------------------------------------------------------------------------------------------------
-- Retorna o ANO anterior ao selecionado p/ a montagem do relatório que ocupará a coluna [ "REALIZADO" ATÉ DEZ/AAAA ]
-- -------------------------------------------------------------------------------------------------------------------
-- OBS: A coluna mencionada é apenas um campo auxiliar, ela acumula os valores para cada unidade até o ano anterior
--      ao que foi selecionado para se emitir o relatório. Ou seja, se estou em 2001 e solicito um relatório até
--      JUNHO de 2002 esse campo irá acumular os totais do ano de 2000 (realizado) e os totais de 2001 (previsto).
--      Isso é feito para auxiliar no cálculo dos valores referentes aos meses igual e anteriores a JUNHO de 2002.
-- -------------------------------------------------------------------------------------------------------------------            
   ano = tonumber( cgi.Selano ) - 1 

-- -------------------------------------------------------------------------------------------------------------------
-- Retorna o ANO atual
-- -------------------------------------------------------------------------------------------------------------------      
   ano_atual = date('%Y')

-- -------------------------------------------------------------------------------------------------------------------
-- Com base no ano atual é calculado o último ano realizado sendo gerados os títulos dos cabeçalhos dos relatórios
-- EX: Se o ano atual é 2002 o último ano realizado é 2001 (2000 e 2001 são anos realizados)
-- -------------------------------------------------------------------------------------------------------------------            
   tit_2000 = "-"
   tit_2001 = "-"
   tit_2002 = "-"
   tit_2003 = "-"

   if tonumber(ano_atual) == 2001 then
      tit_2000 = "Realizado 2000"
      tit_2001 = "Previsto 2001"
      tit_2002 = "Previsto 2002"
      tit_2003 = "Previsto 2003"
   elseif tonumber(ano_atual) == 2002 then
      tit_2000 = "Realizado 2000"
      tit_2001 = "Realizado 2001"
      tit_2002 = "Previsto 2002"
      tit_2003 = "Previsto 2003"
   elseif tonumber(ano_atual) == 2003 then
      tit_2000 = "Realizado 2000"
      tit_2001 = "Realizado 2001"
      tit_2002 = "Realizado 2002"
      tit_2003 = "Previsto 2003"
   end    
     
-- -------------------------------------------------------------------------------------------------------------------
-- Gera a tabela de unidades TRANSPETRO e códigos dessas unidades (esses códigos não correspondem aos códigos reais,
-- sendo utilizados meramente para controle das funções desenvolvidas para o relatório
-- -------------------------------------------------------------------------------------------------------------------
-- A geração dessas tabelas poderia ser feita pela atribuição direta das unidades e códigos 
-- EX: unidades = {'DTCS', 'DTNEST', 'DTSE', 'DTSUL', 'FRONAPE', 'SEDE'}   
--     unid_cod = { DTCS = 1, DTNEST = 2, DTSE = 3, DTSUL = 4, FRONAPE = 5, SEDE = 6}  
-- Entretanto, pensando-se na possibilidade de novas unidades serem adicionadas a TRANSPETRO, é feita uma consulta
-- as tabelas de UNIDADE e ORGAO para se obter esses valores
-- -------------------------------------------------------------------------------------------------------------------       
   unidades = {}
   unid_cod = {}
   
   sql_sigla = " select u.unid_sigla as sigla from unidade u, orgao o where u.org_cod = o.org_cod and " ..
               " o.org_sigla = 'TRANSPETRO' order by u.unid_sigla "            
                  
   DBExec(sql_sigla)   
   unidade = DBRow()  
                     
   i = 1                
   while unidade do                  
      unidades[i] = unidade.sigla
      unid_cod[unidade.sigla] = i
      unidade = DBRow()
      i = i + 1
   end    
       
-- -------------------------------------------------------------------------------------------------------------------
-- Gera a tabela de MESES
-- -------------------------------------------------------------------------------------------------------------------       
   meses = {'Janeiro de ', 'Fevereiro de ', 'Março de ', 'Abril de ', 'Maio de ', 'Junho de ', 'Julho de ', 'Agosto de ', 'Setembro de ', 'Outubro de ', 'Novembro de ', 'Dezembro de '}   
   
-- -------------------------------------------------------------------------------------------------------------------
-- Define a QUERY SQL de acordo com os CGIs recebidos com base na tabela de CUSTO (c)
-- -------------------------------------------------------------------------------------------------------------------
   sql_c_cols    = " select u.unid_sigla, c.custo_ano, sum (c.custo_prev_ano) as total "
   sql_c_tables  = " from custo c, projeto p, orgao o, unidade u, transpetro t "
   sql_c_clauses = " where o.org_sigla = 'TRANSPETRO' and o.org_cod = p.org_cod and p.proj_cod = c.proj_cod and t.proj_cod = p.proj_cod and p.unid_cod = u.unid_cod "
   sql_c_group   = " group by u.unid_sigla, c.custo_ano "
   sql_c_order   = " order by u.unid_sigla, c.custo_ano"

-- -------------------------------------------------------------------------------------------------------------------
-- Define a QUERY SQL de acordo com os CGIs para os meses e ano selecionados com base na tabela CUSTO_REALIZADO (cr)
-- -------------------------------------------------------------------------------------------------------------------       
   sql_cr_cols    = " select u.unid_sigla, year(cr.dt_realizacao) as ano, month(cr.dt_realizacao) as mes, sum (cr.valor_real) as total "
   sql_cr_tables  = " from custo_realizado cr, projeto p, orgao o, unidade u, transpetro t "
   sql_cr_clauses = " where o.org_sigla = 'TRANSPETRO' and o.org_cod = p.org_cod and p.proj_cod = cr.proj_cod and t.proj_cod = p.proj_cod and p.unid_cod = u.unid_cod "             
      sql_cr_ano  = " and year(cr.dt_realizacao) = " .. cgi.Selano 
      sql_cr_mes  = " and month(cr.dt_realizacao) <= " .. cgi.Selmes
   sql_cr_group   = " group by u.unid_sigla, year(cr.dt_realizacao), month(cr.dt_realizacao) "
   sql_cr_order   = " order by u.unid_sigla"
      
   sql_cr_clauses = sql_cr_clauses .. sql_cr_ano .. sql_cr_mes

-- -------------------------------------------------------------------------------------------------------------------
-- Define os parâmetros de ordenação da QUERY SQL e determina o tipo TRANSPETRO (INVESTIMENTO, OPERAÇÃO ou AMBOS)
-- -------------------------------------------------------------------------------------------------------------------         
   sql_tipo0  = " and t.trans_tipo = 0 "
   sql_tipo1  = " and t.trans_tipo = 1 "
   sql_tipo01 = " and t.trans_tipo IN (0, 1) "
    
-- -------------------------------------------------------------------------------------------------------------------
-- Complementa a cláusula da QUERY SQL de acordo com o CGI passado para a unidade 
-- -------------------------------------------------------------------------------------------------------------------             
   if strupper( cgi.text_unidade ) ~= 'TODAS' then
      sql_c_clauses = sql_c_clauses .. " and u.unid_sigla = '" .. cgi.text_unidade .. "'"
   end        
   
   if strupper( cgi.text_unidade ) ~= 'TODAS' then
      sql_cr_clauses = sql_cr_clauses .. " and u.unid_sigla = '" .. cgi.text_unidade .. "'"
   end    

-- -------------------------------------------------------------------------------------------------------------------    
-- -------------------------------------------------------------------------------------------------------------------
-- INVESTIMENTO   INVESTIMENTO   INVESTIMENTO   INVESTIMENTO   INVESTIMENTO   INVESTIMENTO   INVESTIMENTO
-- -------------------------------------------------------------------------------------------------------------------
-- -------------------------------------------------------------------------------------------------------------------
        
-- -------------------------------------------------------------------------------------------------------------------
-- Monta a QUERY SQL para INVESTIMENTO ( trans_tipo = 0 )
-- -------------------------------------------------------------------------------------------------------------------
   sql_invest = sql_c_cols .. sql_c_tables .. sql_c_clauses .. sql_tipo0 .. sql_c_group .. sql_c_order
               
   DBExec(sql_invest)      
   invest = DBRow()
   tab_invest = {}  

-- -------------------------------------------------------------------------------------------------------------------
-- Inicializando os valores das unidades que foram selecionadas em INVESTIMENTO
-- -------------------------------------------------------------------------------------------------------------------
   if strupper( cgi.text_unidade ) == 'TODAS' then
      i = 1
      u = 1
      a = 0
      while unidades[u] do
         tab_invest[i] = {}
         tab_invest[i].unid_sigla = unidades[u]
         tab_invest[i].custo_ano  = '200'..a
         tab_invest[i].total      = 0
         if a ~= 0 and (a / 3) == 1 then
            a = 0
            u = u + 1
         else
            a = a + 1   
         end   
         i = i + 1
      end 
   else
      i = 1
      while i <= 4 do
         tab_invest[i] = {}            
         tab_invest[i].unid_sigla = cgi.text_unidade           
         tab_invest[i].custo_ano  = '200'..i
         tab_invest[i].total      = 0
         i = i + 1
      end      
   end             
 
-- -------------------------------------------------------------------------------------------------------------------
-- Atualizando os valores de acordo com a base de dados das unidades que foram selecionadas em INVESTIMENTO
-- -------------------------------------------------------------------------------------------------------------------     
   i = 1
   if invest then
      while invest do
      -- -------------------------------------------------------------------------------------------------------------
      -- Verifica se a unidade a ser atualizada corresponde a unidade armazenada previamente na inicialização da 
      -- tabela, evitando que as unidades que não apresentam valor para o CUSTO sejam omitidas no relatório.
      -- Dessa forma, as unidades que na consulta a base de dados não apresentarem valores para CUSTO irão manter
      -- os valores atribuídos na inicialização e não serão omitidas no relatório.
      -- -------------------------------------------------------------------------------------------------------------
         if invest.unid_sigla == tab_invest[i].unid_sigla then
            tab_invest[i] = invest    
            invest = DBRow()        
         end   
         i = i + 1            
      end        
   end   
   
-- -------------------------------------------------------------------------------------------------------------------
-- Monta a QUERY SQL para INVESTIMENTO ( trans_tipo = 0 ) de acordo com os meses e o ano selecionados
-- -------------------------------------------------------------------------------------------------------------------
   sql_inv_meses = sql_cr_cols .. sql_cr_tables .. sql_cr_clauses .. sql_tipo0 .. sql_cr_group .. sql_cr_order                       
               
   DBExec(sql_inv_meses)
   inv_meses = DBRow()
   tab_inv_meses = {} 
   
-- -------------------------------------------------------------------------------------------------------------------
-- Inicializando os valores das unidades que foram selecionadas em INVESTIMENTO para os meses e ano selecionados
-- -------------------------------------------------------------------------------------------------------------------
   if strupper( cgi.text_unidade ) == 'TODAS' then
      i = 1
      u = 1
      m = 1
      while unidades[u] do
         tab_inv_meses[i] = {}
         tab_inv_meses[i].unid_sigla = unidades[u]
         tab_inv_meses[i].ano        = cgi.Selano
         tab_inv_meses[i].mes        = m            
         tab_inv_meses[i].total      = 0
         if m < mes then
            m = m + 1              
         else
            m = 1
            u = u + 1 
         end   
         i = i + 1
      end 
   else
      i = 1
      while i <= mes do
         tab_inv_meses[i] = {}            
         tab_inv_meses[i].unid_sigla = cgi.text_unidade           
         tab_inv_meses[i].ano        = cgi.Selano
         tab_inv_meses[i].mes        = i
         tab_inv_meses[i].total      = 0
         i = i + 1
      end      
   end            

-- -------------------------------------------------------------------------------------------------------------------
-- Atualizando os valores de acordo com a base de dados das unidades que foram selecionadas em INVESTIMENTO
-- Levando em consideração o ANO e os MESes selecionados
-- -------------------------------------------------------------------------------------------------------------------     
   i = 1
   if inv_meses then
      while inv_meses do
      -- -------------------------------------------------------------------------------------------------------------
      -- Verifica se a unidade a ser atualizada corresponde a unidade armazenada previamente na inicialização da 
      -- tabela, evitando que as unidades que não apresentam valor para o CUSTO sejam omitidas no relatório.
      -- Dessa forma, as unidades que na consulta a base de dados não apresentarem valores para CUSTO irão manter
      -- os valores atribuídos na inicialização e não serão omitidas no relatório.
      -- -------------------------------------------------------------------------------------------------------------
         if inv_meses.unid_sigla == tab_inv_meses[i].unid_sigla then
            tab_inv_meses[i] = inv_meses               
         end  
         inv_meses = DBRow() 
         i = i + 1            
      end        
   end   
         
-- -------------------------------------------------------------------------------------------------------------------
-- -------------------------------------------------------------------------------------------------------------------
-- OPERAÇÃO   OPERAÇÃO   OPERAÇÃO   OPERAÇÃO   OPERAÇÃO   OPERAÇÃO   OPERAÇÃO   OPERAÇÃO   OPERAÇÃO   OPERAÇÃO  
-- -------------------------------------------------------------------------------------------------------------------
-- -------------------------------------------------------------------------------------------------------------------

-- -------------------------------------------------------------------------------------------------------------------
-- Monta a QUERY SQL para OPERAÇÃO  ( trans_tipo = 1 )
-- -------------------------------------------------------------------------------------------------------------------
   sql_oper   = sql_c_cols .. sql_c_tables .. sql_c_clauses .. sql_tipo1 .. sql_c_group .. sql_c_order
   
   DBExec(sql_oper)
   oper = DBRow()   
   tab_oper = {}      
         
-- -------------------------------------------------------------------------------------------------------------------
-- Inicializando os valores das unidades que foram selecionadas em OPERAÇÃO
-- -------------------------------------------------------------------------------------------------------------------
   if strupper( cgi.text_unidade ) == 'TODAS' then
      i = 1
      u = 1
      a = 0
      while unidades[u] do
         tab_oper[i] = {}
         tab_oper[i].unid_sigla = unidades[u]
         tab_oper[i].custo_ano  = '200'..a
         tab_oper[i].total      = 0
         if a ~= 0 and (a / 3) == 1 then
            a = 0               
            u = u + 1
         else
            a = a + 1   
         end   
         i = i + 1
      end 
   else
      i = 1
      while i <= 4 do
         tab_oper[i] = {}               
         tab_oper[i].unid_sigla = cgi.text_unidade
         tab_oper[i].custo_ano  = '200'..i
         tab_oper[i].total      = 0
         i = i + 1
      end      
   end             
  
-- -------------------------------------------------------------------------------------------------------------------
-- Atualizando os valores de acordo com a base de dados das unidades que foram selecionadas em OPERAÇÃO
-- -------------------------------------------------------------------------------------------------------------------         
   i = 1
   if oper then
      while oper do
      -- -------------------------------------------------------------------------------------------------------------
      -- Verifica se a unidade a ser atualizada corresponde a unidade armazenada previamente na inicialização da 
      -- tabela, evitando que as unidades que não apresentam valor para o CUSTO sejam omitidas no relatório.
      -- Dessa forma, as unidades que na consulta a base de dados não apresentarem valores para CUSTO irão manter
      -- os valores atribuídos na inicialização e não serão omitidas no relatório.
      -- -------------------------------------------------------------------------------------------------------------
         if oper.unid_sigla == tab_oper[i].unid_sigla then
            tab_oper[i] = oper
            oper = DBRow()            
         end   
         i = i + 1            
      end        
   end     

-- -------------------------------------------------------------------------------------------------------------------
-- Monta a QUERY SQL para OPERAÇÃO ( trans_tipo = 1 ) de acordo com os meses e o ano selecionados
-- -------------------------------------------------------------------------------------------------------------------
   sql_oper_meses = sql_cr_cols .. sql_cr_tables .. sql_cr_clauses .. sql_tipo1 .. sql_cr_group .. sql_cr_order                       
               
   DBExec(sql_oper_meses)
   oper_meses = DBRow()
   tab_oper_meses = {} 
   
-- -------------------------------------------------------------------------------------------------------------------
-- Inicializando os valores das unidades que foram selecionadas em INVESTIMENTO para os meses e ano selecionados
-- -------------------------------------------------------------------------------------------------------------------
   if strupper( cgi.text_unidade ) == 'TODAS' then
      i = 1
      u = 1
      m = 1
      while unidades[u] do
         tab_oper_meses[i] = {}
         tab_oper_meses[i].unid_sigla = unidades[u]
         tab_oper_meses[i].ano        = cgi.Selano
         tab_oper_meses[i].mes        = m            
         tab_oper_meses[i].total      = 0
         if m < mes then
            m = m + 1              
         else
            m = 1
            u = u + 1 
         end   
         i = i + 1
      end 
   else
      i = 1
      while i <= mes do
         tab_oper_meses[i] = {}            
         tab_oper_meses[i].unid_sigla = cgi.text_unidade           
         tab_oper_meses[i].ano        = cgi.Selano
         tab_oper_meses[i].mes        = i
         tab_oper_meses[i].total      = 0
         i = i + 1
      end      
   end            

-- -------------------------------------------------------------------------------------------------------------------
-- Atualizando os valores de acordo com a base de dados das unidades que foram selecionadas em OPERAÇÃO
-- Levando em consideração o ano e os meses selecionados
-- -------------------------------------------------------------------------------------------------------------------     
   i = 1
   if oper_meses then
      while oper_meses do
      -- -------------------------------------------------------------------------------------------------------------
      -- Verifica se a unidade a ser atualizada corresponde a unidade armazenada previamente na inicialização da 
      -- tabela, evitando que as unidades que não apresentam valor para o CUSTO sejam omitidas no relatório.
      -- Dessa forma, as unidades que na consulta a base de dados não apresentarem valores para CUSTO irão manter
      -- os valores atribuídos na inicialização e não serão omitidas no relatório.
      -- -------------------------------------------------------------------------------------------------------------      
         if oper_meses.unid_sigla == tab_oper_meses[i].unid_sigla then
            tab_oper_meses[i] = inv_meses                
         end  
         oper_meses = DBRow() 
         i = i + 1            
      end        
   end   

-- -------------------------------------------------------------------------------------------------------------------
-- -------------------------------------------------------------------------------------------------------------------
-- INVESTIMENTO OU OPERAÇÃO   INVESTIMENTO OU OPERAÇÃO   INVESTIMENTO OU OPERAÇÃO   INVESTIMENTO OU OPERAÇÃO
-- -------------------------------------------------------------------------------------------------------------------
-- -------------------------------------------------------------------------------------------------------------------

-- -------------------------------------------------------------------------------------------------------------------
-- Monta a QUERY SQL para INVESTIMENTO OU OPERAÇÃO  ( trans_tipo = 0 ou 1 )
-- -------------------------------------------------------------------------------------------------------------------
   sql_inv_oper   = sql_c_cols .. sql_c_tables .. sql_c_clauses .. sql_tipo01 .. sql_c_group .. sql_c_order
   
   DBExec(sql_inv_oper)
   inv_oper = DBRow()   
   tab_inv_oper = {}
         
-- -------------------------------------------------------------------------------------------------------------------
-- Inicializando os valores das unidades que foram selecionadas em INVESTIMENTO OU OPERAÇÃO
-- -------------------------------------------------------------------------------------------------------------------
   if strupper( cgi.text_unidade ) == 'TODAS' then
      i = 1
      u = 1
      a = 0
      while unidades[u] do
         tab_inv_oper[i] = {}
         tab_inv_oper[i].unid_sigla = unidades[u]
         tab_inv_oper[i].custo_ano  = '200'..a
         tab_inv_oper[i].total      = 0
         if a ~= 0 and (a / 3) == 1 then
            a = 0
            u = u + 1
         else
            a = a + 1   
         end   
         i = i + 1
      end 
   else
      i = 1
      while i <= 4 do
         tab_inv_oper[i] = {}            
         tab_inv_oper[i].unid_sigla = cgi.text_unidade
         tab_inv_oper[i].custo_ano  = '200'..i
         tab_inv_oper[i].total      = 0
         i = i + 1
      end    
   end             
  
-- -------------------------------------------------------------------------------------------------------------------
-- Atualizando os valores de acordo com a base de dados das unidades que foram selecionadas em INVESTIMENTO ou 
-- OPERAÇÃO
-- -------------------------------------------------------------------------------------------------------------------              
   i = 1
   if inv_oper then
      while inv_oper do
      -- -------------------------------------------------------------------------------------------------------------
      -- Verifica se a unidade a ser atualizada corresponde a unidade armazenada previamente na inicialização da 
      -- tabela, evitando que as unidades que não apresentam valor para o CUSTO sejam omitidas no relatório.
      -- Dessa forma, as unidades que na consulta a base de dados não apresentarem valores para CUSTO irão manter
      -- os valores atribuídos na inicialização e não serão omitidas no relatório.
      -- -------------------------------------------------------------------------------------------------------------
         if inv_oper.unid_sigla == tab_inv_oper[i].unid_sigla then
            tab_inv_oper[i] = inv_oper    
            inv_oper = DBRow()        
         end   
         i = i + 1   
      end      
   end     

-- -------------------------------------------------------------------------------------------------------------------
-- Monta a QUERY SQL para INVEST./OPERAÇÃO ( trans_tipo = 0 ou 1 ) de acordo com os meses e o ano selecionados
-- -------------------------------------------------------------------------------------------------------------------
   sql_inv_oper_meses = sql_cr_cols .. sql_cr_tables .. sql_cr_clauses .. sql_tipo01 .. sql_cr_group .. sql_cr_order                       
               
   DBExec(sql_inv_oper_meses)
   inv_oper_meses = DBRow()
   tab_inv_oper_meses = {} 
   
-- -------------------------------------------------------------------------------------------------------------------
-- Inicializando os valores das unidades que foram selecionadas em INVEST./OPERAÇÃO para os meses e ano selecionados
-- -------------------------------------------------------------------------------------------------------------------
   if strupper( cgi.text_unidade ) == 'TODAS' then
      i = 1
      u = 1
      m = 1
      while unidades[u] do
         tab_inv_oper_meses[i] = {}
         tab_inv_oper_meses[i].unid_sigla = unidades[u]
         tab_inv_oper_meses[i].ano        = cgi.Selano
         tab_inv_oper_meses[i].mes        = m            
         tab_inv_oper_meses[i].total      = 0
         if m < mes then
            m = m + 1              
         else
            m = 1
            u = u + 1 
         end   
         i = i + 1
      end 
   else
      i = 1
      while i <= mes do
         tab_inv_oper_meses[i] = {}            
         tab_inv_oper_meses[i].unid_sigla = cgi.text_unidade           
         tab_inv_oper_meses[i].ano        = cgi.Selano
         tab_inv_oper_meses[i].mes        = i
         tab_inv_oper_meses[i].total      = 0
         i = i + 1
      end      
   end            

-- -------------------------------------------------------------------------------------------------------------------
-- Atualizando os valores de acordo com a base de dados das unidades que foram selecionadas em OPERAÇÃO
-- Levando em consideração o ano e os meses selecionados
-- -------------------------------------------------------------------------------------------------------------------     
   i = 1
   if inv_oper_meses then
      while inv_oper_meses do
      -- -------------------------------------------------------------------------------------------------------------
      -- Verifica se a unidade a ser atualizada corresponde a unidade armazenada previamente na inicialização da 
      -- tabela, evitando que as unidades que não apresentam valor para o CUSTO sejam omitidas no relatório.
      -- Dessa forma, as unidades que na consulta a base de dados não apresentarem valores para CUSTO irão manter
      -- os valores atribuídos na inicialização e não serão omitidas no relatório.
      -- -------------------------------------------------------------------------------------------------------------      
         if inv_oper_meses.unid_sigla == tab_inv_oper_meses[i].unid_sigla then
            tab_inv_oper_meses[i] = inv_oper_meses                
         end  
         inv_oper_meses = DBRow() 
         i = i + 1            
      end        
   end   

$$-->

<HTML>

<HEAD>
   <TITLE>Relatorio Anual com Dotação Orçamentária</TITLE>
   <LINK REL="stylesheet" HREF="pegaso.css" TYPE="text/css">     
   
   <SCRIPT LANGUAGE="JavaScript">
   // Funções OVER() e OUT() são utilizadas para o efeito na 
   // imagem VOLTAR
      var selecionado = null;
      function Over(nome)
      {
         if (selecionado != null) 
         {
            Out(selecionado);
         }
         document[nome].src="./imagens/" + nome + "2.gif";
      }
      function Out(nome) 
      {
         if (nome != selecionado) 
         {
            document[nome].src="./imagens/" + nome + ".gif";
         }
      }         
   </SCRIPT>
   
</HEAD>

<BODY BGCOLOR="#ffffff" BACKGROUND="imagens/moldura_princ.gif">
  <DIV ALIGN="center" class=pageTitle>Relatório Anual com Dotação Orçamentária</DIV>      
  <HR WIDTH="98%">      
  <BR>     
  <TABLE ALIGN="center" BORDER="0" WIDTH="100%">
  <!-- INVESTIMENTO   INVESTIMENTO    INVESTIMENTO    INVESTIMENTO    INVESTIMENTO -->
    <TR>
      <TD>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</TD>
      <TD class=pageTitle1>INVESTIMENTO</TD>
    </TR>  
    <TR>
      <TD>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</TD>
      <TD>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</TD>
    </TR>
    <TR>
      <TD>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</TD>
      <TD>
         <table border="1" width="95%">
           <!-- CABEÇALHO DO RELATÓRIO (PARTE FIXA)-->
           <tr>
             <td width="14%" rowspan="2" bgcolor="#C0C0C0" align="center">Invest.</td>
             <td width="71%" colspan="5" bgcolor="#C0C0C0" align="center">Dotação Orçamentária</td>
             <!-- O ANO corresponde ao ano anterior ao que foi selecionado pelo usuário para a emissão do relatório -->
             <td width="15%" rowspan="2" bgcolor="#C0C0C0" align="center">"Realizado" até DEZ/$|ano|$</td>
           </tr>
           <tr>
             <td width="14%" bgcolor="#C0C0C0" align="center">$|tit_2000|$</td>
             <td width="14%" bgcolor="#C0C0C0" align="center">$|tit_2001|$</td>
             <td width="14%" bgcolor="#C0C0C0" align="center">$|tit_2002|$</td>
             <td width="14%" bgcolor="#C0C0C0" align="center">$|tit_2003|$</td>
             <td width="15%" bgcolor="#C0C0C0" align="center">Total</td>
           </tr>
           <!-- FIM DO CABEÇALHO -->
    
<!--$$   
    i = 1     
    total_coluna_2000      = 0
    total_coluna_2001      = 0
    total_coluna_2002      = 0
    total_coluna_2003      = 0
    total_coluna           = 0
    total_coluna_realizado = 0      
 -- -----------------------------------------------------------------------------------------------------------
 -- Os valores de TOTAL_LINHA e REALIZADO_LINHA são armazenados em tabelas pois serão 
 -- reutilizados no relatório referente aos meses e ano selecionados para a consulta
 -- -----------------------------------------------------------------------------------------------------------    
    total_linha            = {}
    realizado_linha        = {}    
    
    indice = 1
    while indice <= 6 do
       total_linha[indice]     = 0
       realizado_linha[indice] = 0
       indice = indice + 1
    end      
    
    indice = 1   
    if tab_invest[i] then   
       while tab_invest[i] do  
          sigla = tab_invest[i].unid_sigla         
          write(' <tr> ') 
          write('   <td width="14%" bgcolor="#C0C0C0" align="left">'.. tab_invest[i].unid_sigla ..'</td>')
          while tab_invest[i] and tab_invest[i].unid_sigla == sigla do              
          -- ----------------------------------------------------------------------------------------------------          
          -- Os valores da coluna [ "REALIZADO" ATÉ DEZ/AAAA ] devem ser referentes ao ano anterior aquele 
          -- selecionado para o relatório ( ano = tonumber( cgi.Selano ) - 1 )
          -- ----------------------------------------------------------------------------------------------------
             if tonumber( tab_invest[i].custo_ano ) <= ano  then               
               realizado_linha[indice] = realizado_linha[indice] + tab_invest[i].total             
             end
             -- Imprime os totais de custo anual (tabela CUSTO), considerando os valores ordenados por ano
             write('   <td width="14%" align="right">'.. ponto_centavo(formata_valor( tab_invest[i].total )) ..'</td>')
             total_linha[indice] = total_linha[indice] + tab_invest[i].total
             if tab_invest[i].custo_ano == 2000 then
                total_coluna_2000 = total_coluna_2000 + tab_invest[i].total
             elseif tab_invest[i].custo_ano == 2001 then   
                total_coluna_2001 = total_coluna_2001 + tab_invest[i].total
             elseif tab_invest[i].custo_ano == 2002 then   
                total_coluna_2002 = total_coluna_2002 + tab_invest[i].total
             elseif tab_invest[i].custo_ano == 2003 then   
                total_coluna_2003 = total_coluna_2003 + tab_invest[i].total
             end   
             i = i + 1          
          end 
          write('   <td width="14%" align="right">'.. ponto_centavo(formata_valor( total_linha[indice] )) ..'</td>')  
          write('   <td width="14%" align="right">'.. ponto_centavo(formata_valor( realizado_linha[indice] )) ..'</td>')  
          total_coluna_realizado = total_coluna_realizado + realizado_linha[indice]                    
          total_coluna = total_coluna + total_linha[indice]          
          indice = indice + 1
          write(' </tr>')
       end   
    end   
$$-->
           
           <tr>
             <td width="14%" bgcolor="#C0C0C0" align="left"><b>TOTAL</b></td>
             <td width="14%" align="right"><b>$|ponto_centavo(formata_valor( total_coluna_2000 ))|$</b></td>
             <td width="14%" align="right"><b>$|ponto_centavo(formata_valor( total_coluna_2001 ))|$</b></td>
             <td width="14%" align="right"><b>$|ponto_centavo(formata_valor( total_coluna_2002 ))|$</b></td>
             <td width="14%" align="right"><b>$|ponto_centavo(formata_valor( total_coluna_2003 ))|$</b></td>
             <td width="15%" align="right"><b>$|ponto_centavo(formata_valor( total_coluna ))|$</b></td>
             <td width="15%" align="right"><b>$|ponto_centavo(formata_valor( total_coluna_realizado ))|$</b></td>
           </tr>
         </table>
       </TD>
      </TR>                     
      <TR>
        <TD>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</TD>
        <TD>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</TD>
      </TR>
      <TR>
        <TD>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</TD>
        <TD>
           <table border="1" width="95%">  
             
<!--$$                  
    m = 1  
    i = 1    
    while m <= mes do  
       write('  <tr>')
       write('    <td width="14%" rowspan="2" bgcolor="#C0C0C0" align="center">Invest.</td>')            
       if quebra == 0 or ( quebra ~= 0 and m ~= mes ) then                         
          write('   <td width="43%" colspan="3" bgcolor="#C0C0C0" align="center"><b>' .. meses[m] .. cgi.Selano .. '</b></td>')
          write('   <td width="43%" colspan="3" bgcolor="#C0C0C0" align="center"><b>' .. meses[m + 1] .. cgi.Selano .. '</b></td>')
          write(' </tr>')
          write(' <tr>')
          write('   <td bgcolor="#C0C0C0" align="center">Realizado no mês</td>')
          write('   <td bgcolor="#C0C0C0" align="center">Realizado até o mês</td>')
          write('   <td bgcolor="#C0C0C0" align="center">(%) até o mês</td>')  
          write('   <td bgcolor="#C0C0C0" align="center">Realizado no mês</td>')
          write('   <td bgcolor="#C0C0C0" align="center">Realizado até o mês</td>')
          write('   <td bgcolor="#C0C0C0" align="center">(%) até o mês</td>')  
          write(' </tr>')
       elseif quebra ~= 0 and m == mes then         
          write('   <td width="86%" colspan="3" bgcolor="#C0C0C0" align="center"><b>' .. meses[m] .. cgi.Selano .. '</b></td>')          
          write(' </tr>')
          write(' <tr>')       
          write('   <td bgcolor="#C0C0C0" align="center">Realizado no mês</td>')
          write('   <td bgcolor="#C0C0C0" align="center">Realizado até o mês</td>')
          write('   <td bgcolor="#C0C0C0" align="center">(%) até o mês</td>')
          write(' </tr>')
       end   
       i      = 1         
    -- ----------------------------------------------------------------------------------------------------------       
    -- o valor de REALIZADO_LINHA[i] corresponde ao valor realizado da unidade DTCS quando CGI.TEXT_UNIDADE = 
    -- 'TODAS' e corresponde ao valor da unidade passada por CGI quando uma unidade específica é selecionada. 
    -- ----------------------------------------------------------------------------------------------------------              
       indice = 1 
       total_no_mes   = {}
       total_ate_mes  = {}
       total_porcento = {}  
    -- -----------------------------------------------------------------------------------------------------------    
    -- Inicializando as variáveis que irão armazenar os totais
    -- -----------------------------------------------------------------------------------------------------------      
       total_no_mes[1]   = 0                     
       total_ate_mes[1]  = 0 
       total_porcento[1] = 0 
       total_no_mes[2]   = 0                     
       total_ate_mes[2]  = 0 
       total_porcento[2] = 0   
       
       total_coluna_ate_mes  = realizado_linha[indice]      
       total_coluna_porcento = 0.00                   
       if tab_inv_meses[i] then             
          while tab_inv_meses[i] do
             sigla = tab_inv_meses[i].unid_sigla         
             write(' <tr> ') 
             write('   <td bgcolor="#C0C0C0" align="left">'.. tab_inv_meses[i].unid_sigla ..'</td>')
             while tab_inv_meses[i] and tab_inv_meses[i].unid_sigla == sigla and tab_inv_meses[i].mes <= mes do 
             -- -----------------------------------------------------------------------------------------------
             -- Gerencia a apresentação do relatório para a apresentação de dois meses ou de um único mês,
             -- dependendo do mês selecionado pelo usuário (quebra em mês).
             -- Se o mês for par, sempre teremos relatórios de dois meses
             -- Se for ímpar o último relatório será de um único mês
             -- -----------------------------------------------------------------------------------------------
                if tab_inv_meses[i].mes == m + 1 then
                   t = 2            
                else
                   t = 1                   
                end    
                if ( tab_inv_meses[i].mes == m or tab_inv_meses[i].mes == m + 1 ) then                             
                   write('   <td align="right">'.. ponto_centavo(formata_valor( tab_inv_meses[i].total )) ..'</td>')
                   total_no_mes[t] = total_no_mes[t] + tab_inv_meses[i].total                                     
                   total_coluna_ate_mes = total_coluna_ate_mes + tab_inv_meses[i].total
                   write('   <td align="right">'.. ponto_centavo(formata_valor( total_coluna_ate_mes )) ..'</td>')
                   total_ate_mes[t] = total_ate_mes[t] + total_coluna_ate_mes                    
                   if total_linha[indice] ~= 0 and total_coluna_ate_mes ~= 0 then
                      total_coluna_porcento = 100 * total_coluna_ate_mes / total_linha[indice]
                   else
                      total_coluna_porcento = 0.00
                   end   
                   write('   <td align="right">'.. ponto_centavo(formata_valor( total_coluna_porcento )) ..'</td> ')    
                   total_porcento[t] = 100 * total_ate_mes[t] / total_coluna                                                                      
                end                            
                i = i + 1 
             end  
             indice = indice + 1   
             total_coluna_ate_mes  = realizado_linha[indice]                    
          end
       end        
       if quebra == 0 or ( quebra ~= 0 and m ~= mes ) then
          write(' </tr>')  
          write(' <tr align="right">')
          write('   <td bgcolor="#C0C0C0" align="left"><b>TOTAL</b></td>')
          write('   <td><b>'.. ponto_centavo(formata_valor( total_no_mes[1] )) ..'</b></td>')
          write('   <td><b>'.. ponto_centavo(formata_valor( total_ate_mes[1] )) ..'</b></td>')
          write('   <td><b>'.. ponto_centavo(formata_valor( total_porcento[1] )) ..'</b></td>')
          write('   <td><b>'.. ponto_centavo(formata_valor( total_no_mes[2] )) ..'</b></td>')
          write('   <td><b>'.. ponto_centavo(formata_valor( total_ate_mes[2] )) ..'</b></td>')
          write('   <td><b>'.. ponto_centavo(formata_valor( total_porcento[2] )) ..'</b></td>')
          write(' </tr>')
          write('</table>')
          write('<br>')
          write('<table border="1" width="95%">')          
       elseif quebra ~= 0 and m == mes then
          write(' </tr>')  
          write(' <tr align="right">')
          write('   <td bgcolor="#C0C0C0" align="left"><b>TOTAL</b></td>')
          write('   <td><b>'.. ponto_centavo(formata_valor( total_no_mes[1] )) ..'</b></td>')
          write('   <td><b>'.. ponto_centavo(formata_valor( total_ate_mes[1] )) ..'</b></td>')
          write('   <td><b>'.. ponto_centavo(formata_valor( total_porcento[1] )) ..'</b></td>')
       end             
       m = m + 2
    end     
$$-->  
             
           </table>                 
        </TD>
    </TR>
    <TR>
        <TD>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</TD>
        <TD>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</TD>
    </TR>    
    <TR>
        <TD>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</TD>
        <TD class=pageTitle1>OPERAÇÃO</TD>
    </TR>
    <TR>
        <TD>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</TD>
        <TD>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</TD>
    </TR> 
    <!-- OPERAÇÃO     OPERAÇÃO     OPERAÇÃO     OPERAÇÃO     OPERAÇÃO -->
    <TR>
      <TD>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</TD>
      <TD>
         <table border="1" width="95%">
           <tr>
             <!-- CABEÇALHO DO RELATÓRIO (PARTE FIXA)-->
             <td width="14%" rowspan="2" bgcolor="#C0C0C0" align="center">Operação</td>
             <td width="71%" colspan="5" bgcolor="#C0C0C0" align="center">Dotação Orçamentária</td>
             <td width="15%" rowspan="2" bgcolor="#C0C0C0" align="center">"Realizado" até DEZ/$|ano|$</td>
           </tr>
           <tr>
             <td width="14%" bgcolor="#C0C0C0" align="center">$|tit_2000|$</td>
             <td width="14%" bgcolor="#C0C0C0" align="center">$|tit_2001|$</td>
             <td width="14%" bgcolor="#C0C0C0" align="center">$|tit_2002|$</td>
             <td width="14%" bgcolor="#C0C0C0" align="center">$|tit_2003|$</td>           
             <td width="15%" bgcolor="#C0C0C0" align="center">Total</td>
           </tr>
           <!-- FIM DO CABEÇALHO -->  
           
<!--$$     
    i = 1     
    total_coluna_2000      = 0
    total_coluna_2001      = 0
    total_coluna_2002      = 0
    total_coluna_2003      = 0
    total_coluna           = 0
    total_coluna_realizado = 0  
 -- -----------------------------------------------------------------------------------------------------------
 -- Os valores de TOTAL_LINHA e REALIZADO_LINHA são armazenados em tabelas pois serão 
 -- reutilizados no relatório referente aos meses e ano selecionados para a consulta
 -- -----------------------------------------------------------------------------------------------------------    
    total_linha            = {}
    realizado_linha        = {}       
            
    indice = 1
    while indice <= 6 do
       total_linha[indice]     = 0
       realizado_linha[indice] = 0
       indice = indice + 1
    end      
    
    indice = 1                    
    if tab_oper[i] then   
       while tab_oper[i] do                                 
          sigla = tab_oper[i].unid_sigla                   
          write(' <tr> ') 
          write('   <td width="14%" bgcolor="#C0C0C0" align="left">'.. tab_oper[i].unid_sigla ..'</td>')          
          while tab_oper[i] and tab_oper[i].unid_sigla == sigla do          
          -- ----------------------------------------------------------------------------------------------------          
          -- Os valores da coluna [ "REALIZADO" ATÉ DEZ/AAAA ] devem ser referentes ao ano anterior aquele 
          -- selecionado para o relatório ( ano = tonumber( cgi.Selano ) - 1 )
          -- ----------------------------------------------------------------------------------------------------
             if tonumber( tab_oper[i].custo_ano ) <= ano then
                realizado_linha[indice] = realizado_linha[indice] + tab_oper[i].total
             end
             -- Imprime os totais de custo anual (tabela CUSTO), considerando os valores ordenados por ano
             write('   <td width="14%" align="right">'.. ponto_centavo(formata_valor( tab_oper[i].total )) ..'</td>')
             total_linha[indice] = total_linha[indice] + tab_oper[i].total
             if tab_oper[i].custo_ano == 2000 then
                total_coluna_2000 = total_coluna_2000 + tab_oper[i].total
             elseif tab_oper[i].custo_ano == 2001 then   
                total_coluna_2001 = total_coluna_2001 + tab_oper[i].total
             elseif tab_oper[i].custo_ano == 2002 then   
                total_coluna_2002 = total_coluna_2002 + tab_oper[i].total
             elseif tab_oper[i].custo_ano == 2003 then   
                total_coluna_2003 = total_coluna_2003 + tab_oper[i].total
             end   
             i = i + 1          
          end 
          write('   <td width="14%" align="right">'.. ponto_centavo(formata_valor( total_linha[indice] )) ..'</td>')  
          write('   <td width="14%" align="right">'.. ponto_centavo(formata_valor( realizado_linha[indice] )) ..'</td>')  
          total_coluna_realizado = total_coluna_realizado + realizado_linha[indice]          
          total_coluna = total_coluna + total_linha[indice]
          indice = indice + 1
          write(' </tr>')
       end   
    end   
$$-->
           
           <tr>
             <td width="14%" bgcolor="#C0C0C0" align="left"><b>TOTAL</b></td>
             <td width="14%" align="right"><b>$|ponto_centavo(formata_valor( total_coluna_2000 ))|$</b></td>
             <td width="14%" align="right"><b>$|ponto_centavo(formata_valor( total_coluna_2001 ))|$</b></td>
             <td width="14%" align="right"><b>$|ponto_centavo(formata_valor( total_coluna_2002 ))|$</b></td>
             <td width="14%" align="right"><b>$|ponto_centavo(formata_valor( total_coluna_2003 ))|$</b></td>
             <td width="15%" align="right"><b>$|ponto_centavo(formata_valor( total_coluna ))|$</b></td>
             <td width="15%" align="right"><b>$|ponto_centavo(formata_valor( total_coluna_realizado ))|$</b></td>
           </tr>
         </table>           
       </TD>
      </TR>
      <TR>
        <TD>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</TD>
        <TD>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</TD>
      </TR>
      <TR>
        <TD>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</TD>
        <TD>          
           <table border="1" width="95%">
     
<!--$$                  
    m = 1  
    i = 1     
    while m <= mes do  
       write('  <tr>')
       write('    <td width="14%" rowspan="2" bgcolor="#C0C0C0" align="center">Operação</td>')            
       if quebra == 0 or ( quebra ~= 0 and m ~= mes ) then                         
          write('   <td width="43%" colspan="3" bgcolor="#C0C0C0" align="center"><b>' .. meses[m] .. cgi.Selano .. '</b></td>')
          write('   <td width="43%" colspan="3" bgcolor="#C0C0C0" align="center"><b>' .. meses[m + 1] .. cgi.Selano .. '</b></td>')
          write(' </tr>')
          write(' <tr>')
          write('   <td bgcolor="#C0C0C0" align="center">Realizado no mês</td>')
          write('   <td bgcolor="#C0C0C0" align="center">Realizado até o mês</td>')
          write('   <td bgcolor="#C0C0C0" align="center">(%) até o mês</td>')  
          write('   <td bgcolor="#C0C0C0" align="center">Realizado no mês</td>')
          write('   <td bgcolor="#C0C0C0" align="center">Realizado até o mês</td>')
          write('   <td bgcolor="#C0C0C0" align="center">(%) até o mês</td>')  
          write(' </tr>')
       elseif quebra ~= 0 and m == mes then         
          write('   <td width="86%" colspan="3" bgcolor="#C0C0C0" align="center"><b>' .. meses[m] .. cgi.Selano .. '</b></td>')          
          write(' </tr>')
          write(' <tr>')       
          write('   <td bgcolor="#C0C0C0" align="center">Realizado no mês</td>')
          write('   <td bgcolor="#C0C0C0" align="center">Realizado até o mês</td>')
          write('   <td bgcolor="#C0C0C0" align="center">(%) até o mês</td>')
          write(' </tr>')
       end   
       i      = 1         
    -- ----------------------------------------------------------------------------------------------------------       
    -- o valor de REALIZADO_LINHA[i] corresponde ao valor realizado da unidade DTCS quando CGI.TEXT_UNIDADE = 
    -- 'TODAS' e corresponde ao valor da unidade passada por CGI quando uma unidade específica é selecionada. 
    -- ----------------------------------------------------------------------------------------------------------              
       indice = 1 
       total_no_mes   = {}
       total_ate_mes  = {}
       total_porcento = {}  
    -- -----------------------------------------------------------------------------------------------------------    
    -- Inicializando as variáveis que irão armazenar os totais
    -- -----------------------------------------------------------------------------------------------------------      
       total_no_mes[1]   = 0                     
       total_ate_mes[1]  = 0 
       total_porcento[1] = 0 
       total_no_mes[2]   = 0                     
       total_ate_mes[2]  = 0 
       total_porcento[2] = 0   
       
       total_coluna_ate_mes  = realizado_linha[indice]      
       total_coluna_porcento = 0.00                   
       if tab_oper_meses[i] then             
          while tab_oper_meses[i] do
             sigla = tab_oper_meses[i].unid_sigla         
             write(' <tr> ') 
             write('   <td bgcolor="#C0C0C0" align="left">'.. tab_oper_meses[i].unid_sigla ..'</td>')
             while tab_oper_meses[i] and tab_oper_meses[i].unid_sigla == sigla and tab_oper_meses[i].mes <= mes do 
             -- -----------------------------------------------------------------------------------------------
             -- Gerencia a apresentação do relatório para a apresentação de dois meses ou de um único mês,
             -- dependendo do mês selecionado pelo usuário (quebra em mês).
             -- Se o mês for par, sempre teremos relatórios de dois meses
             -- Se for ímpar o último relatório será de um único mês
             -- -----------------------------------------------------------------------------------------------
                if tab_oper_meses[i].mes == m + 1 then
                   t = 2            
                else
                   t = 1                   
                end    
                if ( tab_oper_meses[i].mes == m or tab_oper_meses[i].mes == m + 1 ) then                             
                   write('   <td align="right">'.. ponto_centavo(formata_valor( tab_oper_meses[i].total )) ..'</td>')
                -- --------------------------------------------------------------------------------------------
                -- Acumula o total geral da coluna "REALIZADO NO MÊS" com base na tabela CUSTO_REALIZADO
                -- --------------------------------------------------------------------------------------------                                                                        
                   total_no_mes[t] = total_no_mes[t] + tab_oper_meses[i].total   
                   
                -- --------------------------------------------------------------------------------------------
                -- Acumula o total da coluna "REALIZADO ATÉ O MÊS" com base nos valores da coluna "REALIZADO 
                -- NO MÊS" e da coluna [ "REALIZADO" ATÉ DEZ/AAAA ] que por sua vez acumula os valores REALIZADOS
                -- e PREVISTOS dos anos anteriores ao ANO selecionado para a emissão do RELATÓRIO
                -- Esse cálculo é feito para cada unidade
                -- --------------------------------------------------------------------------------------------                                                     
                   total_coluna_ate_mes = total_coluna_ate_mes + tab_oper_meses[i].total
                   
                   write('   <td align="right">'.. ponto_centavo(formata_valor( total_coluna_ate_mes )) ..'</td>')
                -- --------------------------------------------------------------------------------------------
                -- Acumula o total geral da coluna "REALIZADO ATÉ O MÊS" 
                -- --------------------------------------------------------------------------------------------                   
                   total_ate_mes[t] = total_ate_mes[t] + total_coluna_ate_mes         

                -- --------------------------------------------------------------------------------------------
                -- Calcula o total da coluna "(%) ATÉ O MÊS" fazendo a relação para uma unidade específica 
                -- entre o total acumulado de todos os anos (coluna TOTAL) e o valor da coluna "REALIZADO ATÉ 
                -- O MÊS" 
                -- --------------------------------------------------------------------------------------------                                                 
                   if total_linha[indice] ~= 0 and total_coluna_ate_mes ~= 0 then
                      total_coluna_porcento = 100 * total_coluna_ate_mes / total_linha[indice]
                   else
                      total_coluna_porcento = 0.00
                   end  
                    
                   write('   <td align="right">'.. ponto_centavo(formata_valor( total_coluna_porcento )) ..'</td> ')    

                -- --------------------------------------------------------------------------------------------
                -- O total porcento geral é calculado com base no total geral da coluna "REALIZADO ATÉ O MÊS" 
                -- e o total geral da coluna TOTAL
                -- --------------------------------------------------------------------------------------------                                                                    
                   total_porcento[t] = 100 * total_ate_mes[t] / total_coluna                                                                      
                end                            
                i = i + 1 
             end  
             indice = indice + 1   
             total_coluna_ate_mes  = realizado_linha[indice]                    
          end
       end        
       if quebra == 0 or ( quebra ~= 0 and m ~= mes ) then
          write(' </tr>')  
          write(' <tr align="right">')
          write('   <td bgcolor="#C0C0C0" align="left"><b>TOTAL</b></td>')
          write('   <td><b>'.. ponto_centavo(formata_valor( total_no_mes[1] )) ..'</b></td>')
          write('   <td><b>'.. ponto_centavo(formata_valor( total_ate_mes[1] )) ..'</b></td>')
          write('   <td><b>'.. ponto_centavo(formata_valor( total_porcento[1] )) ..'</b></td>')
          write('   <td><b>'.. ponto_centavo(formata_valor( total_no_mes[2] )) ..'</b></td>')
          write('   <td><b>'.. ponto_centavo(formata_valor( total_ate_mes[2] )) ..'</b></td>')
          write('   <td><b>'.. ponto_centavo(formata_valor( total_porcento[2] )) ..'</b></td>')
          write(' </tr>')
          write('</table>')
          write('<br>')
          write('<table border="1" width="95%">')          
       elseif quebra ~= 0 and m == mes then
          write(' </tr>')  
          write(' <tr align="right">')
          write('   <td bgcolor="#C0C0C0" align="left"><b>TOTAL</b></td>')
          write('   <td><b>'.. ponto_centavo(formata_valor( total_no_mes[1] )) ..'</b></td>')
          write('   <td><b>'.. ponto_centavo(formata_valor( total_ate_mes[1] )) ..'</b></td>')
          write('   <td><b>'.. ponto_centavo(formata_valor( total_porcento[1] )) ..'</b></td>')
       end             
       m = m + 2
    end     
$$-->       
     
           </table>                 
         </TD>
      </TR> 
      <TR>
          <TD>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</TD>
          <TD>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</TD>
      </TR>
    <TR>
        <TD>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</TD>
        <TD class=pageTitle1>INVESTIMENTO/OPERAÇÃO</TD>
    </TR>
    <TR>
        <TD>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</TD>
        <TD>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</TD>
    </TR>     
      <!-- INVEST/OPERAÇÃO     INVEST/OPERAÇÃO     INVEST/OPERAÇÃO     INVEST/OPERAÇÃO -->       
      <TR>
        <TD>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</TD>
        <TD>
           <table border="1" width="95%">
             <!-- CABEÇALHO DO RELATÓRIO (PARTE FIXA)-->
             <tr>
               <td width="14%" rowspan="2" bgcolor="#C0C0C0" align="center">Invest./ Operação</td>
               <td width="71%" colspan="5" bgcolor="#C0C0C0" align="center">Dotação Orçamentária</td>
               <td width="15%" rowspan="2" bgcolor="#C0C0C0" align="center">"Realizado" até DEZ/$|ano|$</td>
             </tr>
             <tr>
               <td width="14%" bgcolor="#C0C0C0" align="center">$|tit_2000|$</td>
               <td width="14%" bgcolor="#C0C0C0" align="center">$|tit_2001|$</td>
               <td width="14%" bgcolor="#C0C0C0" align="center">$|tit_2002|$</td>
               <td width="14%" bgcolor="#C0C0C0" align="center">$|tit_2003|$</td>               
               <td width="15%" bgcolor="#C0C0C0" align="center">Total</td>
             </tr>
             <!-- FIM DO CABEÇALHO-->
             
<!--$$     
    i = 1     
    total_coluna_2000      = 0
    total_coluna_2001      = 0
    total_coluna_2002      = 0
    total_coluna_2003      = 0
    total_coluna           = 0
    total_coluna_realizado = 0      
 -- -----------------------------------------------------------------------------------------------------------
 -- Os valores de TOTAL_LINHA e REALIZADO_LINHA são armazenados em tabelas pois serão 
 -- reutilizados no relatório referente aos meses e ano selecionados para a consulta
 -- -----------------------------------------------------------------------------------------------------------    
    total_linha            = {}
    realizado_linha        = {}        
        
    indice = 1
    while indice <= 6 do
       total_linha[indice]     = 0
       realizado_linha[indice] = 0
       indice = indice + 1
    end      
    
    indice = 1              
    if tab_inv_oper[i] then   
       while tab_inv_oper[i] do                                        
          sigla = tab_inv_oper[i].unid_sigla                   
          write(' <tr> ') 
          write('   <td width="14%" bgcolor="#C0C0C0" align="left">'.. tab_inv_oper[i].unid_sigla ..'</td>')          
          while tab_inv_oper[i] and tab_inv_oper[i].unid_sigla == sigla do      
          -- ----------------------------------------------------------------------------------------------------          
          -- Os valores da coluna [ "REALIZADO" ATÉ DEZ/AAAA ] devem ser referentes ao ano anterior aquele 
          -- selecionado para o relatório ( ano = tonumber( cgi.Selano ) - 1)
          -- ----------------------------------------------------------------------------------------------------
             if tonumber( tab_inv_oper[i].custo_ano ) <= ano then
                realizado_linha[indice] = realizado_linha[indice] + tab_inv_oper[i].total
             end 
             -- Imprime os totais de custo anual (tabela CUSTO), considerando os valores ordenados por ano
             write('   <td width="14%" align="right">'.. ponto_centavo(formata_valor( tab_inv_oper[i].total )) ..'</td>')
             total_linha[indice] = total_linha[indice] + tab_inv_oper[i].total
             if tab_inv_oper[i].custo_ano == 2000 then
                total_coluna_2000 = total_coluna_2000 + tab_inv_oper[i].total
             elseif tab_inv_oper[i].custo_ano == 2001 then   
                total_coluna_2001 = total_coluna_2001 + tab_inv_oper[i].total
             elseif tab_inv_oper[i].custo_ano == 2002 then   
                total_coluna_2002 = total_coluna_2002 + tab_inv_oper[i].total
             elseif tab_inv_oper[i].custo_ano == 2003 then   
                total_coluna_2003 = total_coluna_2003 + tab_inv_oper[i].total
             end   
             i = i + 1          
          end 
          write('   <td width="14%" align="right">'.. ponto_centavo(formata_valor( total_linha[indice] )) ..'</td>')  
          write('   <td width="14%" align="right">'.. ponto_centavo(formata_valor( realizado_linha[indice] )) ..'</td>')  
          total_coluna_realizado = total_coluna_realizado + realizado_linha[indice]             
          total_coluna = total_coluna + total_linha[indice]
          indice = indice + 1
          write(' </tr>')
       end   
    end   
$$-->
           
           <tr>
             <td width="14%" bgcolor="#C0C0C0" align="left"><b>TOTAL</b></td>
             <td width="14%" align="right"><b>$|ponto_centavo(formata_valor( total_coluna_2000 ))|$</b></td>
             <td width="14%" align="right"><b>$|ponto_centavo(formata_valor( total_coluna_2001 ))|$</b></td>
             <td width="14%" align="right"><b>$|ponto_centavo(formata_valor( total_coluna_2002 ))|$</b></td>
             <td width="14%" align="right"><b>$|ponto_centavo(formata_valor( total_coluna_2003 ))|$</b></td>
             <td width="15%" align="right"><b>$|ponto_centavo(formata_valor( total_coluna ))|$</b></td>
             <td width="15%" align="right"><b>$|ponto_centavo(formata_valor( total_coluna_realizado ))|$</b></td>
           </tr>
         </table>                                    
         </TD>
        </TR>
        <TR>
          <TD>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</TD>
          <TD>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</TD>
        </TR>
        <TR>
          <TD>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</TD>
          <TD>          
             <table border="1" width="95%">
     
<!--$$                  
    m = 1  
    i = 1    
    while m <= mes do  
       write('  <tr>')
       write('    <td width="14%" rowspan="2" bgcolor="#C0C0C0" align="center">Invest./ Operação</td>')            
       if quebra == 0 or ( quebra ~= 0 and m ~= mes ) then                         
          write('   <td width="43%" colspan="3" bgcolor="#C0C0C0" align="center"><b>' .. meses[m] .. cgi.Selano .. '</b></td>')
          write('   <td width="43%" colspan="3" bgcolor="#C0C0C0" align="center"><b>' .. meses[m + 1] .. cgi.Selano .. '</b></td>')
          write(' </tr>')
          write(' <tr>')
          write('   <td bgcolor="#C0C0C0" align="center">Realizado no mês</td>')
          write('   <td bgcolor="#C0C0C0" align="center">Realizado até o mês</td>')
          write('   <td bgcolor="#C0C0C0" align="center">(%) até o mês</td>')  
          write('   <td bgcolor="#C0C0C0" align="center">Realizado no mês</td>')
          write('   <td bgcolor="#C0C0C0" align="center">Realizado até o mês</td>')
          write('   <td bgcolor="#C0C0C0" align="center">(%) até o mês</td>')  
          write(' </tr>')
       elseif quebra ~= 0 and m == mes then         
          write('   <td width="86%" colspan="3" bgcolor="#C0C0C0" align="center"><b>' .. meses[m] .. cgi.Selano .. '</b></td>')          
          write(' </tr>')
          write(' <tr>')       
          write('   <td bgcolor="#C0C0C0" align="center">Realizado no mês</td>')
          write('   <td bgcolor="#C0C0C0" align="center">Realizado até o mês</td>')
          write('   <td bgcolor="#C0C0C0" align="center">(%) até o mês</td>')
          write(' </tr>')
       end   
       i      = 1         
    -- ----------------------------------------------------------------------------------------------------------       
    -- o valor de REALIZADO_LINHA[i] corresponde ao valor realizado da unidade DTCS quando CGI.TEXT_UNIDADE = 
    -- 'TODAS' e corresponde ao valor da unidade passada por CGI quando uma unidade específica é selecionada. 
    -- ----------------------------------------------------------------------------------------------------------              
       indice = 1 
       total_no_mes   = {}
       total_ate_mes  = {}
       total_porcento = {}  
    -- -----------------------------------------------------------------------------------------------------------    
    -- Inicializando as variáveis que irão armazenar os totais
    -- -----------------------------------------------------------------------------------------------------------      
       total_no_mes[1]   = 0                     
       total_ate_mes[1]  = 0 
       total_porcento[1] = 0 
       total_no_mes[2]   = 0                     
       total_ate_mes[2]  = 0 
       total_porcento[2] = 0   
       
       total_coluna_ate_mes  = realizado_linha[indice]      
       total_coluna_porcento = 0.00                   
       if tab_inv_oper_meses[i] then             
          while tab_inv_oper_meses[i] do
             sigla = tab_inv_oper_meses[i].unid_sigla         
             write(' <tr> ') 
             write('   <td bgcolor="#C0C0C0" align="left">'.. tab_inv_oper_meses[i].unid_sigla ..'</td>')
             while tab_inv_oper_meses[i] and tab_inv_oper_meses[i].unid_sigla == sigla and tab_inv_oper_meses[i].mes <= mes do 
             -- -----------------------------------------------------------------------------------------------
             -- Gerencia a apresentação do relatório para a apresentação de dois meses ou de um único mês,
             -- dependendo do mês selecionado pelo usuário (quebra em mês).
             -- Se o mês for par, sempre teremos relatórios de dois meses
             -- Se for ímpar o último relatório será de um único mês
             -- -----------------------------------------------------------------------------------------------
                if tab_inv_oper_meses[i].mes == m + 1 then
                   t = 2            
                else
                   t = 1                   
                end    
                if ( tab_inv_oper_meses[i].mes == m or tab_inv_oper_meses[i].mes == m + 1 ) then                             
                   write('   <td align="right">'.. ponto_centavo(formata_valor( tab_inv_oper_meses[i].total )) ..'</td>')
                   total_no_mes[t] = total_no_mes[t] + tab_inv_oper_meses[i].total                                     
                   total_coluna_ate_mes = total_coluna_ate_mes + tab_inv_oper_meses[i].total
                   write('   <td align="right">'.. ponto_centavo(formata_valor( total_coluna_ate_mes )) ..'</td>')
                   total_ate_mes[t] = total_ate_mes[t] + total_coluna_ate_mes                    
                   if total_linha[indice] ~= 0 and total_coluna_ate_mes ~= 0 then
                      total_coluna_porcento = 100 * total_coluna_ate_mes / total_linha[indice]
                   else
                      total_coluna_porcento = 0.00
                   end   
                   write('   <td align="right">'.. ponto_centavo(formata_valor( total_coluna_porcento )) ..'</td> ')    
                   total_porcento[t] = 100 * total_ate_mes[t] / total_coluna                                                                      
                end                            
                i = i + 1 
             end  
             indice = indice + 1   
             total_coluna_ate_mes  = realizado_linha[indice]                    
          end
       end        
       if quebra == 0 or ( quebra ~= 0 and m ~= mes ) then
          write(' </tr>')  
          write(' <tr align="right">')
          write('   <td bgcolor="#C0C0C0" align="left"><b>TOTAL</b></td>')
          write('   <td><b>'.. ponto_centavo(formata_valor( total_no_mes[1] )) ..'</b></td>')
          write('   <td><b>'.. ponto_centavo(formata_valor( total_ate_mes[1] )) ..'</b></td>')
          write('   <td><b>'.. ponto_centavo(formata_valor( total_porcento[1] )) ..'</b></td>')
          write('   <td><b>'.. ponto_centavo(formata_valor( total_no_mes[2] )) ..'</b></td>')
          write('   <td><b>'.. ponto_centavo(formata_valor( total_ate_mes[2] )) ..'</b></td>')
          write('   <td><b>'.. ponto_centavo(formata_valor( total_porcento[2] )) ..'</b></td>')
          write(' </tr>')
          write('</table>')
          write('<br>')
          write('<table border="1" width="95%">')          
       elseif quebra ~= 0 and m == mes then
          write(' </tr>')  
          write(' <tr align="right">')
          write('   <td bgcolor="#C0C0C0" align="left"><b>TOTAL</b></td>')
          write('   <td><b>'.. ponto_centavo(formata_valor( total_no_mes[1] )) ..'</b></td>')
          write('   <td><b>'.. ponto_centavo(formata_valor( total_ate_mes[1] )) ..'</b></td>')
          write('   <td><b>'.. ponto_centavo(formata_valor( total_porcento[1] ))..'</b></td>')
       end             
       m = m + 2
    end     
$$-->  

             </table>                 
           </TD>
        </TR> 
  </TABLE> 
   
   <BR>
   
   <!-- Botão de Voltar -->   
   <TABLE ALIGN="center" BORDER="0" WIDTH="90%">
     <TR>       
       <!--TD ALIGN="center"><INPUT TYPE="reset" NAME="botao" VALUE="Limpa Campos" WIDTH="130"></TD-->
       <TD ALIGN="center"><A HREF=javascript:history.back(); OnMouseOver="Over('bot-voltar');" OnMouseOut="Out('bot-voltar');"><IMG SRC="imagens/bot-voltar.gif" BORDER="0" NAME="bot-voltar"></A></TD>
     </TR>
   </TABLE>      
   
</BODY>
</HTML>

<!--$$   

   if ESTADO_BD == 'aberto' then
      FechaBD()
   end
   
$$-->