[firebase-br] ajuda sobre procedures e delphi - urgente
Leonardo Baldino
portaldoinferno em gmail.com
Qua Abr 16 09:25:56 -03 2008
quando eu insiro os parametros de uma procedure pelo delphi e posso fazer
algo dessa maneira ou naum:
with qaux do
begin
SQL.Text := 'EXECUTE PROCEDURE SP_PROGRAMACAO_VENDAS ( ';
//Data Inicial
if dtpInicio.Enabled then
SQL.Add('''' + ArrumaData(dtpInicio.Date) + ''',')
else
SQL.Add('NULL,');
//Data Final
if dtpFim.Enabled then
SQL.Add('''' + ArrumaData(dtpFim.Date) + ''',')
else
SQL.Add('NULL,');
//Empresa
SQL.Add('' + IntToStr(iEmpresa) + ',');
//Pontos
SQL.Add('0,0,');
//Usuario
SQL.Add('''' + sUser + ''',');
//Produto
if edProd.Enabled then
SQL.Add('''' + edProd.Text + ''',')
else
SQL.Add('NULL,');
//Reservadas
SQL.Add('0,');
//Excecao
if not cbExcecao.Checked then
SQL.Add(edExcecao.Text)
else
SQL.Add('NULL');
SQL.Add(')');
SQL.SaveToFile('c:\teste.txt');
//Open;
Close;
end;
obs: quem soube de alguma coisa me ajuda urgente
--
Leonardo Carlos Baldino - The Highlander
Mais detalhes sobre a lista de discussão lista