function Call_Module(...)
	
	echo ("<data destination=parser>\r\n")
	echo ("	dofile(\"mbr11.lua\")")
	
	for i, v in ipairs(arg) do
		if i==1 then
			if table.getn(arg)==1 then
				echo ("	"..arg[1].."()")
			else
				echo ("	"..arg[1].."(")
			end
		elseif i>1 then
			if i<table.getn(arg) then
				echo (""..arg[i]..",")
			elseif i==table.getn(arg) then
				echo (""..arg[i]..")")
			end
		end
	end
	echo ("</data>")
	
end

function AtuProdutos()

	echo ("<CONSOLE>Nova Tabela..</CONSOLE>")
	echo ("<DELAY TIME=1>")
	
	get = loadstring(GET)()	
	
	cod1 = get["CODP1"]
	nom1 = get["NOMP1"]
	val1 = get["VALP1"]
	
	InsertTable( cod1,  nom1,  val1)
	
	cod2 = get["CODP2"]
	nom2 = get["NOMP2"]
	val2 = get["VALP2"]
	
	InsertTable( cod2,  nom2,  val2)
	
	cod3 = get["CODP3"]
	nom3 = get["NOMP3"]
	val3 = get["VALP3"]
	
	InsertTable( cod3,  nom3,  val3)
	
	MenuPrincipal(0)
end


function InsertTable( id,  produto,  preco)

	local db = sqlite3.open('produ.db')
		
	local stmt = db:prepare("insert into modelo_pos(id, prod, preco) VALUES (?, ?, ?)")
	
	local bind_rc = stmt:bind_values(id, produto, preco)
	local rc = stmt:step()
	stmt:finalize()	
end

function GetTable()
	
	local db = sqlite3.open('produ.db')
	local stmt = db:prepare("select id, prod, preco from modelo_pos")
	local rc = stmt:step()
	local tab = {}
	local i = 1;
	while (rc == sqlite3.ROW) do
		local v = stmt:get_values()
		tab[i] = {v[1], v[2], v[3]}
		
		i = i+1;
		rc = stmt:step()
	end
	
	stmt:finalize()
		
	return tab	
end

function EncontraProduto(id)
	
	local db = sqlite3.open('produ.db')
	local stmt = db:prepare("select id, prod, preco from modelo_pos where id = ?")
	local bind_rc = stmt:bind_values(id)
	local rc = stmt:step()
	
	if(rc == sqlite3.ROW) then
		local v = stmt:get_values()
		cod = v[1]
		prod = v[2]
		pre = v[3]
		return 1
	elseif (rc == sqlite3.DONE) then
		stmt:finalize()
		echo("<console>")
		echo("PODUTO<BR>NAO ENCONTRADO!!!")
		echo("</console>")
		return 0
	else
		stmt:finalize()
		echo("<console>")
		echo(" ERRO SQLITE: "..rc.."<BR>")
		echo("</console>")	
		return 0
	end

end

function Inicio()
	
	echo ("<CONSOLE></CONSOLE>")
	echo ("<CONSOLE>")
	echo ("Bem Vindo")
	echo ("</CONSOLE>")
	echo ("<DELAY TIME=1>")
	MenuPrincipal(0)
	--InsertTable("0","nada","00")
	--EncontraProduto(0)
		
end


function MenuPrincipal(total)

	echo ("<CONSOLE></CONSOLE>")
	if(tonumber(total)>0) then
		echo ("<CONSOLE>Menu Inicial:    Total R$"..total.."<BR></CONSOLE>")
	else
		echo ("<CONSOLE>Menu Inicial<BR></CONSOLE>")
	end
	
	echo ("<CONSOLE>")
	--if(total>0) then
	--	echo ("Menu Inicial:    Total R$"..total.."<BR>")
	--else
	--	echo ("Menu Inicial<BR>")
	--end
	echo (" 1-PEDIDO  <BR>")
	echo (" 2-RECEBE NOVA TABELA <BR>")
	echo (" 3-Mostrar TABELA <BR>")
	echo ("</CONSOLE>")
	echo ("<GET TYPE=FIELD ALPHA=1 NAME=MENUP SIZE=1 COL=0 LIN=8 NOENTER=1>")
	echo ("<GET TYPE=HIDDEN NAME=TOTAL VALUE="..total..">")

	Call_Module("Escolha", total)
	

end
function Escolha(conta)
	
	
	get = loadstring(GET)()	
	opc = get["MENUP"]
	total = get["TOTAL"]
		
	if opc == "1" then
		PedidoSelect()
	elseif opc == "2" then
		echo ("<CONSOLE>...CHAMANDO PHP...</CONSOLE>")
		echo ("<GET TYPE=HIDDEN NAME=TELA VALUE=1>")
		echo ("<POST>")
	elseif opc == "3" then
		tabela = GetTable()
		if(table.getn(tabela) == 0) then 
			echo ("<CONSOLE>Lista Vazia</CONSOLE>")
			echo ("<DELAY TIME=1>")
			Inicio()
		end
		echo ("<CONSOLE>")
		for i=1, table.getn(tabela) do
			echo (""..tabela[i][1].."-"..tabela[i][2].."- R$"..string.format("%.2f",tabela[i][3]/100).."<BR>")
		end
		echo ("</CONSOLE>")
		echo ("<GET TYPE=ANYKEY>")
		Inicio()
	else
		echo("<CONSOLE> Opcao Invalida </CONSOLE>")
		echo("<DELAY TIME=1>")
		MenuPrincipal(conta)
	end
	
end

function Pedido()
	
	echo ("<CONSOLE></CONSOLE>")
	echo ("<CONSOLE>")
	-- echo (" opc: "..opc.."")
	echo (" Entre com o codigo<BR> do pedido:")
	echo ("<BR>")
	echo ("</CONSOLE>")
	
	echo ("<GET TYPE=FIELD ALPHA=0 NAME=PRODUTO SIZE=3 COL=3 LIN=4 NOENTER=1>")
	echo ("<GET TYPE=HIDDEN NAME=TOTAL VALUE="..total..">")
		
	Call_Module("Verifica");
	
end

function PedidoSelect()
	
	echo ("<CONSOLE></CONSOLE>")
	echo ("<CONSOLE>")
	echo (" Selecione o Pedido:")
	echo ("<BR>")
	echo ("</CONSOLE>")
	
	lista = GetTable()
	
	if(table.getn(lista) == 0) then 
		echo ("<CONSOLE>Lista Vazia</CONSOLE>")
		echo ("<DELAY TIME=1>")
		MenuPrincipal(total)
	end
	
	echo ("<SELECT LIN=3 COL=2 SIZE=15 QTD="..table.getn(lista).." UP=E1 DOWN=E2 RIGHT=B7 LEFT=B9 NAME=PRODUTO TYPE_RETURN=2>")
		
		for i=1, table.getn(lista) do
			echo (""..lista[i][2]..",")
		end
		
	echo ("</SELECT>")
	
	echo ("<GET TYPE=HIDDEN NAME=TOTAL VALUE="..total..">")
	Call_Module("Verifica");
	
end

function Verifica()
	
	get = loadstring(GET)()	
	produto = get["PRODUTO"]
	total = get["TOTAL"]
	
	produto = tonumber(produto)*100
	
	--echo ("<CONSOLE></CONSOLE>")
	--echo ("<CONSOLE>"..produto.."</CONSOLE>")
	--echo ("<GET TYPE=ANYKEY>")
	
	-- CONFERE produto COM TABELA SQLite
	
	-- SE PRODUTO CONFERE
	if(EncontraProduto(produto) == 0) then
		echo ("<CONSOLE></CONSOLE>")
		echo ("<CONSOLE>")
		echo ("PRODUTO INVALIDO")
		echo ("</CONSOLE>")
		echo ("<DELAY TIME=1>")
		MenuPrincipal(total)
	else
		total = total + tonumber(pre)/100
		Quantidade(total)
	end
	
	
end

function Quantidade(total)

	echo ("<CONSOLE></CONSOLE>")
	echo ("<CONSOLE>")
	echo ("   Digite a <BR> Quantidade Desejada!")
	echo ("</CONSOLE>")
	
	echo ("<GET TYPE=HIDDEN NAME=TOTAL VALUE="..total..">")
	echo ("<GET TYPE=FIELD ALPHA=0 NAME=QTD SIZE=3 COL=3 LIN=5 NOENTER=1>")
	
	Call_Module("CalculaTotal");

end

function CalculaTotal()

	get = loadstring(GET)()
	total = get["TOTAL"]
	qtd = get["QTD"]
	
	total = total * tonumber(qtd)

	Total(total)
end

function Total(c)
	
	conta = c
	
	-- echo("<CONSOLE></CONSOLE>")
	echo("<CONSOLE>  Total : R$"..string.format("%.2f",conta).." </CONSOLE>")
	
	echo ("<CONSOLE>")
	echo (" Total : R$"..string.format("%.2f",conta).."")
	echo ("<BR>")
	echo (" 1 - Novo Pedido <BR>")
	echo (" 2 - Finalizar  <BR>")
	echo ("</CONSOLE>")
	
	echo("<GET TYPE=FIELD ALPHA=1 NAME=FIM SIZE=1 COL=1 LIN=8 NOENTER=1>")
	echo ("<GET TYPE=HIDDEN NAME=CONTA VALUE="..conta..">")
	
	Call_Module("FimMenu")
	
	
end

function FimMenu()
	
	get = loadstring(GET)()
	total = get["CONTA"]
	fim = get["FIM"]
	
	if fim =="1" then
		--Pedido()
		PedidoSelect()
	elseif fim == "2" then
		Fim()
	else
		echo("<CONSOLE> Opcao Invalida </CONSOLE>")
		echo ("<DELAY TIME=1>")
		Total(total)
		--MenuPrincipal(total)
	end
	
end

function Fim()
	
	echo("<PRINTER PRINTS=STS ENABLE_CANCEL=0>")
	echo("   Loja  ")
	echo("<BR><BR> Valor Total: R$"..string.format("%.2f",total).."<BR>")
	echo(" Volte Sempre! <BR><BR><BR><BR><BR><BR>")
	echo("</PRINTER>")
	
	MenuPrincipal(0)
		
end