Fórum delphi x crystalreport #226407

O help dele é completinho
UCrpe32.hlp

Lá vc tira suas dúvidas

qual a versao do crystal q usa 9 ou 8, me diga e ganhe um varios Exemplo de brinde!

Eu estou usando o Crystal 8. Se possivel mande os exemplos por favor

// 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;