Fórum Como exibir no combo o conteúdo entre datas escolhidas #347356
15/10/2007
0
Olá amigos do forum, boa tarde a todos, abaixo segue uma instrução de como aparecer em um combo de um cadastro meu os dados que tenho na tabela
o que eu preciso incorporar neste combo, acontece que uma promocao ela tem o dia pra comecar e o dia pra acabar, por exemplo, na tabela, tem
id_promocao
descricao
premio
patrocinador
datainicio
datafinal
então o que eu gostaria é que quando a atendente for cadastrar o ouvinte, aparecesse no combo simplesmente as promoções que estao entre a datainicio e datafinal..
se hoje é dia 16 e a promoção comeca a ser veiculada somente dia 17, ela nao pode aparecer no combo, se a promocao vence no dia 20, ela nao pode aparecer no dia 21 no combo, para que a atendente somente cadastre as promocoes, que estejam em aberto.
Obrigado a todos, fico no aguardo.
with fmodulo.QRpromocao do
begin
Close;
SQL.Clear;
SQL.Add(´Select distinct descricao FROM tbpromocao ´);
SQL.Add(´WHERE descricao IS NOT NULL ORDER BY descricao´);
Open;
if fmodulo.QRpromocao.RecordCount > 0 then
begin
edt_promocao.Items.Clear; //clareando os itens existentes
fmodulo.QRpromocao.First;
while not fmodulo.qrpromocao.Eof do
begin //repassa Tipos já cadastrados para o ComboBox
edt_promocao.Items.Add(FieldByName(´descricao´).AsString);
next;
end;
end;
fmodulo.QRpromocao.Close;
end;
end;o que eu preciso incorporar neste combo, acontece que uma promocao ela tem o dia pra comecar e o dia pra acabar, por exemplo, na tabela, tem
id_promocao
descricao
premio
patrocinador
datainicio
datafinal
então o que eu gostaria é que quando a atendente for cadastrar o ouvinte, aparecesse no combo simplesmente as promoções que estao entre a datainicio e datafinal..
se hoje é dia 16 e a promoção comeca a ser veiculada somente dia 17, ela nao pode aparecer no combo, se a promocao vence no dia 20, ela nao pode aparecer no dia 21 no combo, para que a atendente somente cadastre as promocoes, que estejam em aberto.
Obrigado a todos, fico no aguardo.
Junior-programador
Curtir tópico
+ 0
Responder
Posts
16/10/2007
Ronaldo.cutu
with fmodulo.QRpromocao do
begin
Close;
SQL.Clear;
SQL.Add(´Select distinct descricao FROM tbpromocao ´);
SQL.Add(´WHERE descricao IS NOT NULL ´);
SQL.Add(´AND datainicio>=´´´+FORMATDATETIME(´mm/dd/yyyy´, NOW)+´´´´);
SQL.Add(´AND datafinal<=´´´+FORMATDATETIME(´mm/dd/yyyy´, NOW)+´´´´);
ORDER BY descricao´);
Open;
if fmodulo.QRpromocao.RecordCount > 0 then
begin
edt_promocao.Items.Clear; //clareando os itens existentes
fmodulo.QRpromocao.First;
while not fmodulo.qrpromocao.Eof do
begin //repassa Tipos já cadastrados para o ComboBox
edt_promocao.Items.Add(FieldByName(´descricao´).AsString);
next;
end;
end;
fmodulo.QRpromocao.Close;
end;
end;
begin
Close;
SQL.Clear;
SQL.Add(´Select distinct descricao FROM tbpromocao ´);
SQL.Add(´WHERE descricao IS NOT NULL ´);
SQL.Add(´AND datainicio>=´´´+FORMATDATETIME(´mm/dd/yyyy´, NOW)+´´´´);
SQL.Add(´AND datafinal<=´´´+FORMATDATETIME(´mm/dd/yyyy´, NOW)+´´´´);
ORDER BY descricao´);
Open;
if fmodulo.QRpromocao.RecordCount > 0 then
begin
edt_promocao.Items.Clear; //clareando os itens existentes
fmodulo.QRpromocao.First;
while not fmodulo.qrpromocao.Eof do
begin //repassa Tipos já cadastrados para o ComboBox
edt_promocao.Items.Add(FieldByName(´descricao´).AsString);
next;
end;
end;
fmodulo.QRpromocao.Close;
end;
end;
Responder
Gostei + 0
16/10/2007
Junior-programador
nao funcionou amigo, nao aparece nada, infelizmente nao deu certo
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)