# test aggiornamento  grafici e tabelle di un report esistente

ppt.template "template2007"
ppt.name     "report_dicembre_2011"

db.name      "esempio_db"
db.table     "dati"

slide.master
slide.replace "@year", "2011"

# slide 1
slide 1
box("TITOLO REPORT") << "Report indagine XYZ"
box(2) << "Dicembre 2011"

slide.picture "jpg/banca2.jpg", 50, 80, 1, 1

# slide 2
slide 2
box << "Titolo pagina 2"
graph.select do
  title "Nuovo titolo grafico"
  labels db.finds(7).tab(:d5n).row(1..7).ctot.rlabel
  series 1, db.finds(7).tab(:d5n).row(1..7).ctot.cpct
end

# slide 3
slide 3
box << "Titolo pagina 3"
d1 = db.finds.row(:d1).ctot.scount.all
graph.select("GRAFICO  1") do
  d1.each_with_index do |rec, i|
    next if i == 0
    cell(i+1,1) << rec[:rlabel]
    cell(i+1,2) << rec[:count]
  end
end
graph.select("d1.2") do
  d1.each_with_index do |rec, i|
    next if i == 0
    cell(i+1,1) << rec[:rlabel]
    cell(i+1,2) << rec[:cpct]
  end  
end

# slide 4
slide 4
box << "Titolo pagina 4"
grid.select do
  (2..nrow).each do |r|
    (1..ncol).each do |c|
      cell(r,c) << "(#{r},#{c})"
    end
  end
end

grid.select("Domanda 7") do
  cell(1,2) << "Totale"
  cell(1,3) << "Maschi"
  cell(1,4) << "Femmine"
  (2..16).each do |i| 
    cell(i,1) << db.find.tab(:d7).row(i-2).ctot.rlabel
    cell(i,2) << db.find.tab(:d7).row(i-2).ctot.cpct
    cell(i,3) << db.find.tab(:d7).row(i-2).col(:sesso,1).cpct
    cell(i,4) << db.find.tab(:d7).row(i-2).col(:sesso,2).cpct
  end
end

ppt.save
ppt.pdf
ppt.close
ppt.quit