Ajuda com relatório
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???
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
Curtidas 0
Respostas
Tornadofuracao
16/08/2003
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.
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.
GOSTEI 0