Fórum Criar procedure em banco Firebird #368534

Pessoal,

Como eu faço para criar uma procedure em banco firebird, para atualizacao de estoque..como eu chamo ela...alguem poderia me ajudar?
Tenho a rotina abaixo..que atualiza o estoque em uma tabela, mas preciso garantir que o valor de estoque atual seja correto, sem que ninguem altere este valor enquanto eu estou atualizando...Para isso teria que criar uma procedure direto no banco e chama-la pelo programa..seria isso? Como faço isso?

frmprincipal.IBSQL.Close;
frmprincipal.IBSQL.SQL.Clear;
frmprincipal.IBSQL.SQL.Add(´select * from bolao where codigo = ´ + quotedstr(bolao));
frmprincipal.IBSQL.Prepare;
frmprincipal.IBSQL.ExecQuery;
estoque := frmprincipal.IBSQL.fieldByName(´estoque´).asstring;
vendidos:= frmprincipal.IBSQL.fieldByName(´vendidos´).asstring;

novoestoque := floattostr(strtofloat(estoque) + strtofloat(totalpedido));
novovendidos:= floattostr(strtofloat(vendidos)- strtofloat(totalpedido));

//atualiza valores do bolao
If not frmprincipal.IBSQL.Transaction.InTransaction then
frmprincipal.IBSQL.Transaction.StartTransaction;
frmprincipal.IBSQL.Close;
frmprincipal.IBSQL.SQL.Clear;
frmprincipal.IBSQL.SQL.Add(´UPDATE BOLAO SET´);
frmprincipal.IBSQL.SQL.Add(´ESTOQUE = ´+QuotedStr(novoestoque));
frmprincipal.IBSQL.SQL.Add(´,VENDIDOS = ´+QuotedStr(novovendidos));
frmprincipal.IBSQL.SQL.Add(´Where codigo = ´+QuotedStr(bolao));
frmprincipal.IBSQL.Prepare;
frmprincipal.IBSQL.ExecQuery;
frmprincipal.IBSQL.Transaction.CommitRetaining;


Rogerio Busch