f = loadstring(GET)()
SESSION = GET

itens = ""

local index = 1
db = sqlite3.open('banco.s3db')
primeiro = true
for a in db:rows('SELECT * FROM evento ORDER BY UPPER(nome_pos)') do
    if (not primeiro) then
        itens = itens .. ","
    else
        primeiro = false
    end
    eventoLinha = index.."-"..a[3]
    eventoLinha = string.sub(eventoLinha, 1, 21)
    eventoLinha = string.gsub(eventoLinha, " ", "%%20")
    itens = itens ..  eventoLinha
    index = index + 1
end
db:close()

if (index > 1) then

    echo ("<GET TYPE=HIDDEN NAME=TELA VALUE=2>")
    echo ("<GET TYPE=HIDDEN NAME=MENU VALUE=1>")
    echo ("<GET TYPE=SERIALNO NAME=SERIALCODE>")

    echo ("<console>")
    echo("MENU DE EVENTOS<br><br>")
    echo ("</console>")
    echo ("<SELECT LIN=3 COL=0 SIZE=21 QTD=5 UP=E2 DOWN=E3 NAME=EVENTO>")
    echo (itens)
    echo ("</SELECT>")
    echo ("<data name=lua.out destination=parser>")
    echo ("	dofile(\"selclass.lua\")")
    echo ("</data>")
else
    echo ("<console>")
    echo ("MENU DE EVENTOS<br><br>NENHUM EVENTO<BR>ASSOCIADO AO PDV<br><br>Pressione verde<br>Para atualizar")
    echo ("</console>")
    echo ("<GET TYPE=HIDDEN NAME=TELA VALUE=2>")
    echo ("<GET TYPE=HIDDEN NAME=MENU VALUE=4>")
    echo ("<GET TYPE=SERIALNO NAME=SERIALCODE>")
    echo ("<GET TYPE=ANYKEY>")
	echo ("<POST>")
end