# test generazione grafici e tabelle

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

ppt.template "empty2007"
ppt.name     "report_gennaio_2012"

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

slide.new 1, "Report indagine XYZ"
slide.picture "jpg/banca1.jpg", 50, 80, 1, 1

slide.new 2, "Esempio grafici", 4
graph.new(5,1,:pie) do
  title "Grafico a torta"
  labels db.finds(5).tab(:d5n).row(1..7).netn.ctot.rlabel
  series 1, db.finds(5).tab(:d5n).row(1..7).netn.ctot.cpct
end
graph.new(2,1,:pie) do
  title "Grafico a torta"
  labels db.finds(2).tab(:d5n).row(1..7).nety.ctot.rlabel
  series 1, db.finds(2).tab(:d5n).row(1..7).nety.ctot.cpct
end
graph.new(7,2,:colclu, :table=>true) do
  title "Grafico a barre"
  ylabel "Valori"
  snames "v.a.", "%"
  has_legend true
  labels db.finds(7).tab(:d5n).row(1..7).ctot.rlabel
  series 1, db.finds(7).tab(:d5n).row(1..7).ctot.count
  series 2, db.finds(7).tab(:d5n).row(1..7).ctot.cpct
end
graph.new(7,2,:barclu) do
  xlabel "Domanda 1"
  snames "v.a.", "%"
  labels db.finds(7).tab(:d5n).row(1..7).ctot.rlabel
  series 1, db.finds(7).tab(:d5n).row(1..7).ctot.count
  series 2, db.finds(7).tab(:d5n).row(1..7).ctot.cpct
end

slide.new 3, "Esempio tabella", 1
grid.new(16,4) do
  labels db.finds(15).tab(:d7).labels
  columns 2, "Totale", db.finds(15).tab(:d7).ctot.cpct
  columns 3, "Maschi", db.finds(15).tab(:d7).col(:sesso,1).cpct
  columns 4, "Femmine", db.finds(15).tab(:d7).col(:sesso,2).cpct
  header "Domanda 7"
end

ppt.save
ppt.pdf