Fórum Ajuda com relatório #175403

16/08/2003

0

Prezados,
Estou iniciando pois tenho como programação apenas como hobbie, mas eu amo de paixão fazer isso, mas estou fazendo alguns aplicativos para meu uso pessoal como forma de aprendizado, e a minha duvia é de como fazer para que eu informe em um formulário o codigo desejado, e data inicial e a data final para que seja impresso no meu relatório. O meu aplicativo é um livro caixa, onde eu desejaria por exemplo, saber quanto foi pago durante um determinado periodo de um certo código do livro. Alguem poderia me ajudar quanto a esta informação???


Engepro

Engepro

Responder

Posts

16/08/2003

Tornadofuracao

caro amigo

espero poder lhe ajudar caso a minha informaçao nao seja util mil desculpas desde ja.

vamos lá.

1º vc deve ter em seu relatorio um componente Query, (Caso vc nao saiba utiluzar o sql ai vai), na propriedade DATABASENAME coloque o ALIAS do seu aplicativo.

2º va para o forme que ira gerar o seu relatorio, utilize um Edit para Ex. Nome do Vendedor e 2 DateTimePicker Ex. dataInicial e DataFinal, um Butto.

obs. na Propriedade NAME do DateTimePicker1 digite DTPINI
na Propriedade NAME do DateTimePicker2 digite DTPFIN

3º vamos para o codigo
no evento onClick do Button digite o codigo abaixo.
var
ini, fin : string;
begin
ini:=copy(datetostr(DTPINI.Date),4,2);
ini:=ini+´/´+copy(datetostr(DTPINI.Date),1,2);
ini:=ini+´/´+copy(datetostr(DTPINI.Date),7,2);

fin:=copy(datetostr(DTPFIN.Date),4,2);
fin:=fin+´/´+copy(datetostr(DTPFIN.Date),1,2);
fin:=fin+´/´+copy(datetostr(DTPFIN.Date),7,2);

NomedoFormdoRelat.query1.sql.clear;
NomedoFormdoRelat.query1.sql.add(´select * from tabela.Extensão´);
NomedoFormdoRelat.query1.sql.add(´where anoatu = ´);
NomedoFormdoRelat.query1.sql.add(´´´´ + Edit1.text + ´´´´);
NomedoFormdoRelat.query1.sql.add(´ and DTLANC >= ´);
NomedoFormdoRelat.query1.sql.add(´´´´ +INI+ ´´´´);
NomedoFormdoRelat.query1.sql.add(´ and DTLANC <=´);
NomedoFormdoRelat.query1.sql.add(´´´´ +FIN+ ´´´´);
NomedoFormdoRelat.query1.sql.Add(´Order by DTLANC´);
NomedoFormdoRelat.query1.Open;

//A linha abaixo e par visualizar as datas + tem que ter QRLabel no
// Form

NomedoFormdoRelat.QRLabel1.Caption :=datetostr(DTPINI.Date) ;
NomedoFormdoRelat.QRLabel2.Caption :=datetostr(DTPFIN.Date) ;
NomedoFormdoRelat.QuickRep1.Preview;

Caro Amigo espero ter lhe ajudado. Quando vc ver TornadoFuracao pode acreditar.


Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar