Boa Tarde a Todos.
Estou usando Delphi 7 e tenho relatórios em Crystal 11, instalei a vcl do
Delphi versão 11, e não consigo passar parâmetros.
Pesquise na internet e os exemplos q eu achei não funcionaram... Ainda
aparece a tela do prompt dos parâmetros qdo executo o componente.
Abaixo segue minha tentativa...
if FileExists('Y:\SGMC\www\SgmcW\Rpt\'+NomeRpt+'.rpt') then
begin
cCrystal.ReportName := 'Y:\SGMC\www\SgmcW\Rpt\'+NomeRpt+'.rpt';
cCrystal.Output := toWindow;
for i := 0 to cCrystal.ParamFields.Count -1 do
if cCrystal.ParamFields.Items[i].Name = '@CodAiip' then
cCrystal.ParamFields.Items[i].CurrentValue := sparam1;
cCrystal.WindowStyle.BorderStyle := bsSizeable;
cCrystal.WindowStyle.SystemMenu := True;
cCrystal.Refresh;
cCrystal.Execute;
end;
O q eu achei estranho é q o meu relatorio tem apenas 1 parametro e qdo eu
faço esse for ele passa 16 vezes, é como se meu relatorio tivesse 16
parametros... Todos com o mesmo nome
Eu crio os relatorio com ODBC, abro o crystal adiciono a procedure q eu
quero trabalhar através do ODBC e mando bala....
Se alguma alma caridosa puder me ajudar, ficarei imensamente grata..
[As partes desta mensagem que não continham texto foram removidas]
