ActiveDelphi

eremita · Enviada: Seg Nov 11, 2013 4:21 pm Assunto: Select criando campos com parametros

Olá, gostaria de saber se é possível e como fazer para que 2 parâmetros informados pelo usuário sejam criados como campos. Inicialmente os cálculos serão todos feitos com base nos parâmetros mas poderão ser alterados para cada registro.

A idéia seria a seguinte:

jwalamino69 · Enviada: Ter Nov 19, 2013 11:07 am Assunto:

Boa tarde.

Você quer dizer como campo ou dado da tabela ?

select :taxa_juros from contas -> funciona como dado da consulta

select cliente_id, conta_data_emis, conta_numero_doc, conta_valor_doc, conta_data_venc, cast(:taxa_juros as numeric(9,4)), cast(:taxa_lancto as datetime) from contas order by conta_data_venc

Walfrido
https://sites.google.com/site/esocialdiscute/

eremita · Enviada: Ter Nov 19, 2013 2:02 pm Assunto:

Justamente isso, passar o valor de um Edit, DateEdit, CalcEdit ... como parâmetro, para que seja criada uma coluna para cada registro com esta informação.

jwalamino69 · Enviada: Ter Nov 19, 2013 3:06 pm Assunto:

Boa tarde

Eu faço desta maneira, parece ser o que você esta querendo, se não for avise.

with qryConsulta do

begin

Active := False;

SQL.Text := 'select '+
':ColunaA, '+
':ColunaB, '+
'cliente_id, '+
'conta_data_emis, '+
'conta_numero_doc, '+
'conta_valor_doc, '+
'conta_data_venc, '+
'cast(:taxa_juros as numeric(9,4)), '+
'cast(:taxa_lancto as datetime) '+
'from contas '+
'order by conta_data_venc'; ';

ParamByName('ColunaA').AsFloat := Secomponente.valor;
ParamByName('ColunaA').AsFloat := Secomponente.valor;

ParamByName('taxa_juros as numeric').AsFloat := Secomponente.valor;
ParamByName('taxa_lancto').AsString .AsFloat := Secomponente.valor;

Active := True;

end;

Walfrido
https://sites.google.com/site/esocialdiscute/