[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