delphi x crystalreport
Gostaria de saber se alguem possui um tutorial ou alguma dica pra realizar as chamadas de relatorios do Crystal pelo Delphi. Não consigo passar os parametros para a consulta do relatorio.
Favor postar o título em minúsculas
Zoom.
Favor postar o título em minúsculas
Zoom.
Glaudson
Curtidas 0
Respostas
Motta
16/04/2004
O help dele é completinho
UCrpe32.hlp
Lá vc tira suas dúvidas
UCrpe32.hlp
Lá vc tira suas dúvidas
GOSTEI 0
Mozico
16/04/2004
qual a versao do crystal q usa 9 ou 8, me diga e ganhe um varios Exemplo de brinde!
GOSTEI 0
Glaudson
16/04/2004
Eu estou usando o Crystal 8. Se possivel mande os exemplos por favor
GOSTEI 0
Mozico
16/04/2004
// pagamentos atrasados
CrystalReport1.Destination := crptToWindow;
CrystalReport1.SelectionFormula := ´{adedcar.carmesref} = ´ + CBMes.Text + ´ and {adedcar.cardatpag} >= date (´ + inttostr(ano)+ ´,´ + inttostr(mes)+ ´,´ + inttostr(dia) + ´) and {adedcar.cardatpag} <= date (´ + inttostr(ano1)+ ´,´ + inttostr(mes1)+ ´,´ + inttostr(dia1)+ ´) and not isnull ({adedcar.cartipbaixa}) and ({adedcar.CARPERDES} < 100) and ({adedhis.histipmat} <> ´F´)´;
CrystalReport1.ReportFileName := CaminhoInstalacao + ´Rpt\´ + filerptname;
CrystalReport1.WindowState := 2;
CrystalReport1.Action := 1;
CrystalReport1.PageZoom(100);
CrystalReport1.discardesavedata := true ;
CrystalReport1.SubreportToChange;;
CrystalReport1.Refresh;
CrystalReport1.Destination := crptToWindow;
CrystalReport1.SelectionFormula := ´{adedcar.carmesref} = ´ + CBMes.Text + ´ and {adedcar.cardatpag} >= date (´ + inttostr(ano)+ ´,´ + inttostr(mes)+ ´,´ + inttostr(dia) + ´) and {adedcar.cardatpag} <= date (´ + inttostr(ano1)+ ´,´ + inttostr(mes1)+ ´,´ + inttostr(dia1)+ ´) and not isnull ({adedcar.cartipbaixa}) and ({adedcar.CARPERDES} < 100) and ({adedhis.histipmat} <> ´F´)´;
CrystalReport1.ReportFileName := CaminhoInstalacao + ´Rpt\´ + filerptname;
CrystalReport1.WindowState := 2;
CrystalReport1.Action := 1;
CrystalReport1.PageZoom(100);
CrystalReport1.discardesavedata := true ;
CrystalReport1.SubreportToChange;;
CrystalReport1.Refresh;
GOSTEI 0