f = loadstring(GET)()
SESSION = GET

eventoString = f["EVENTO"]

echo ("<console>")
echo (eventoString)
echo ("</console>")

posicaoTraco = string.find(eventoString, "-") -1

eventoSufixo = string.sub(eventoString, 1, posicaoTraco)

eventonumber = tonumber(eventoSufixo)

echo ("<GET TYPE=HIDDEN NAME=EVENTO VALUE=" .. f["EVENTO"] .. ">")

db = sqlite3.open('banco.s3db')

local index = 1
for evento in db:rows('SELECT * FROM evento ORDER BY UPPER(nome_pos)') do
    if (eventonumber == index) then
        eventoCodigo = evento[1]
        eventoNome = evento[2]
        eventoNomePos = evento[3]

        echo ("<GET TYPE=HIDDEN NAME=EVENTO_CODIGO VALUE=" .. eventoCodigo .. ">")
        echo ("<GET TYPE=HIDDEN NAME=EVENTO_NOME VALUE=" .. eventoNome .. ">")
        echo ("<GET TYPE=HIDDEN NAME=EVENTO_NOME_POS VALUE=" .. eventoNomePos .. ">")
		break
	end
	index = index + 1
end

echo ("<console>")
echo ("MENU DE INGRESSOS<br><BR>")
echo (eventoNomePos)
echo ("</console>")
local index = 1

echo ("<SELECT LIN=3 COL=0 SIZE=21 QTD=5 UP=E2 DOWN=E3 NAME=CLASSE>")

primeiro = true
for classe in db:rows ('SELECT * FROM classe_de_ingresso where classe_de_ingresso.evento = '..eventoCodigo.. ' ORDER BY UPPER(nome_pos)') do
    if (not primeiro) then
        echo (",")
    else
        primeiro = false
    end
    
    classeValor = classe[6]
    classeNomePos = classe[4]
    classeLinha = index.."-"..classeNomePos
    classeLinha = string.sub(classeLinha, 1, 21)
    echo (classeLinha)
    index = index + 1

end

db:close()

echo ("</SELECT>")

echo ("<data name=lua.out destination=parser>")
	echo ("	dofile(\"selnum.lua\")")
echo ("</data>")