Relatório No Quickreport

[Eder]

Ola..pessoal..

Tou desenvolvendo um relatorio no quick e está funcionando 100%, mas coloquei nele + um filtro por CNPJ

acho que o problema esta neste codigo abaixo nesta linha aqui:

qryMeses.ParamByName('pCliente').AsString := Form1.EditCnpjPag.Text;

abaixo codigo completo:

procedure TForm3.QRLabel95Print(sender: TObject; var Value: String);

begin

qryMeses.Close;

//abaixo a variavel pano trata o ano

qryMeses.ParamByName('pAno').AsInteger := StrToInt(Form1.ComboBox1.Text); //selecionada o ano

//abaixo a variavel pmes trata o mês

qryMeses.ParamByName('pMes').AsInteger := 1; //mês 1-janeiro

//abaixo a variavel pcliente trata o cliente

qryMeses.ParamByName('pCliente').AsString := Form1.EditCnpjPag.Text;

qryMeses.Open;

{aqui a variavel que totaliza o total p/ mês (janeiro) na banda detail}

TotJaneiroQTDCTRC := TotJaneiroQTDCTRC + qryMesesTOTQTDCTRC.AsCurrency;

//

{aqui a varivel que totaliza na banda amarela o total geral}

TJanQTDCTRC := 0;

TJanQTDCTRC := TJanQTDCTRC + qryMesesTOTQTDCTRC.AsCurrency;

//

Value := FormatFloat('###,###,##0.00',qryMesesTOTQTDCTRC.AsCurrency);

//abaixo ele verifique se o valor é 0,00 se for ele não conta o registro...que é mostrado no qrlabel67

If (value<>'0,00') and (value<>'') then

RJanQTDCTRC := RJanQTDCTRC + 1;

end;

OU

na query do relatorio:

SELECT sum(KG_CALCULO) as TOTPESO,

sum(VALOR_N_FISCAL) as TOTVM,

sum(FRETE_PESO) as TOTFPESO,

sum(FRETE_VALOR) as TOTFVALOR,

sum(DESPACHO) as TOTDESPACHO,

sum(VLR_ICMS) as TOTICMS,

sum(VALOR_FRETE) as TOTFRETE,

sum(PACOTE) as TOTQTDCTRC

FROM CTRC

where extract(month from DATA_EMISSAO)=:pMes

and extract(year from DATA_EMISSAO)=:pAno

and CTRC.pag_cnpj=:pCliente

and ((SITUACAO_CTRC = "F") OR (SITUACAO_CTRC = "L") OR (SITUACAO_CTRC = "P"))

está dando este erro:

QRYMESES: CAMPO 'PCLIENTE' DE TIPO DESCONHECIDO

alguém teria uma ideia porque este erro....tenho certeza que um destes codigos acima...mas aonde não consigo achar.....o campo na tabela é do tipo A(aphanumerico) paradox.

:unsure:

[Progr'amador]

Olá Eder,

você definil o tipo de parametro na Query, la em Params > DataType = ftString

Abs. Progr'amador.

B)

[Eder]

Amigão..tinha um errinho no meu aplicativo...já resolvi...valeu :D