List index out of bounds(2). Por que est� dando isso???

Question

Bom dia, pessoal!!!Estou com o seguinte problema.Tenho um relat�rio onde eu uso um DBLookupComboBox s� pra lista uns dados que eu preciso para filtrar no relat�rio.Neste DBLookupComboBox est�o aparece...

Cristianojedi · Answer

Ningu�m pode me ajudar???Massuda, Kotho, Rjun, Gandhalf, etc, etc, etc...Cristiano...

Cristianojedi · Answer

Pessoal,Estou precisando muito dessa ajuda...Ningu�m nunca passou por isso???Ajude-me quem puder....Cristiano M�rio...

Rjun · Answer

Tente usar ParamByName em vez de param[].

cdsAteRea.CommandText := �select SERVICO, DESCR_RESULTADO, � + 
�count(DESCR_RESULTADO) as TOTAL � + 
�from ORDEM_SERVICO � + 
�where DATA between :P_DATAINI and :P_DATAFIN � + 
�and COD_CASA = :P_CODCASA � + 
�group by SERVICO, DESCR_RESULTADO � + 
�order by SERVICO, DESCR_RESULTADO�; 

cdsAteRea.ParamByName(�P_DATAINI�).AsDateTime := StrToDate(medtDataIni.Text); 
cdsAteRea.ParamByName(�P_DATAFIN�).AsDateTime := StrToDate(medtDataFin.Text); 
cdsAteRea.ParamByName(�P_CODCASA�).AsInteger := StrToInt(dbedtCodCasa.Text); 
cdsAteRea.Open; 
try
  // seu c�digo
finally
  cdsAteRea.Close;
end;

Cristianojedi · Answer

Agora est� dando o erro:cdsAteRea: Paramenter �P_CODCASA� not found.Por que que quando eu selecino o primeiro dado do DBLoockupComboBox funciona perfeitamente e quando eu seleciono o segundo dado do DBLoockupComboBox e pe�o pra gerar de novo da esse erro???Cristiano...

Rjun · Answer

Onde que est� esse c�digo? Dentro de qual evento? Coloque um trecho maior do c�digo, onde aparece desde a hora que ele � iniciado(ap�s voce fazer a sele��o no combobox) at� a hora que voc� termina a opera��o.

Cristianojedi · Answer

procedure TFrmRelAteRea.btnGerarClick(Sender: TObject);
begin
cdsAteRea.Close;
cdsAteRea.CommandText := �select SERVICO, DESCR_RESULTADO, � +
�count(DESCR_RESULTADO) as TOTAL � +
�from ORDEM_SERVICO � +
�where DATA between :P_DATAINI and :P_DATAFIN � +
�and COD_CASA = :P_CODCASA � +
�group by SERVICO, DESCR_RESULTADO � +
�order by SERVICO, DESCR_RESULTADO�;
cdsAteRea.Params.ParamByName(�P_DATAINI�).AsDateTime := StrToDate(medtDataIni.Text);
cdsAteRea.Params.ParamByName(�P_DATAFIN�).AsDateTime := StrToDate(medtDataFin.Text);
cdsAteRea.Params.ParamByName(�P_CODCASA�).AsInteger :=
StrToInt(dbedtCodCasa.Text);
cdsAteRea.Open;
if cdsAteRea.IsEmpty then
begin
Application.MessageBox(�N�o existem dados para estas especifica��es.�,
�Informa��o...�, MB_OK + MB_ICONINFORMATION);
Abort;
end;
rvpAteRea.SetParam(�RECEPCAO�, �COM TRIAGEM�);
rvpAteRea.SetParam(�CASA�, dblcbCasa.Text);
rvpAteRea.SetParam(�DATAINI�, medtDataIni.Text);
rvpAteRea.SetParam(�DATAFIN�, medtDataFin.Text);
rvpAteRea.ExecuteReport(�rptAteRea�);
finally
cdsAteRea.Close;
end;
end;
end;

Rjun · Answer

N�o sei dizer o motivo do erro. Fiz uma altera��o no seu c�digo. Teste assim, embora seja algo que eu n�o goste muito.

var
  ComandoSQL: string;
begin
  ComandoSQL = �select SERVICO, DESCR_RESULTADO, � +
       �count(DESCR_RESULTADO) as TOTAL � +
       �from ORDEM_SERVICO � +
       �where DATA between �s and �s � +
       �and COD_CASA = �d � +
       �group by SERVICO, DESCR_RESULTADO � +
       �order by SERVICO, DESCR_RESULTADO�;

  cdsAteRea.CommandText = Format(ComandoSQL, [medtDataIni.Text, medtDataIni.Text, StrToInt(dbedtCodCasa.Text)]);

  cdsAteRea.Open;
  try
    if cdsAteRea.IsEmpty then
    begin
      Application.MessageBox(�N�o existem dados para estas especifica��es.�, �Informa��o...�, MB_OK + MB_ICONINFORMATION);
      Abort;
    end;

    rvpAteRea.SetParam(�RECEPCAO�, �COM TRIAGEM�);
    rvpAteRea.SetParam(�CASA�, dblcbCasa.Text);
    rvpAteRea.SetParam(�DATAINI�, medtDataIni.Text);
    rvpAteRea.SetParam(�DATAFIN�, medtDataFin.Text);
    rvpAteRea.ExecuteReport(�rptAteRea�);
  finally
    cdsAteRea.Close;
  end;
end;

Cristianojedi · Answer

Rjun,Consegui tirar o erro.Como eu passava um par�metro na Query que estava ligada ao ClientDataSet, eu tirei o par�metro l� de dentro e coloquei na m�o mesmo, no c�digo.A� eu dei umas testadas aqui e aparentemente deu certo. Posso selecionar qualquer dado dentro do DBLoockupComboBox que est� gerando o relat�rio.Muito obrigado pelas dicas...Abra�o!!!Cristiano M�rio...

F�rum List index out of bounds(2). Por que est� dando isso??? #289657