Ir para conteúdo
Fórum Script Brasil
  • 0

Relatório No Quickreport


Eder

Pergunta

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:

Link para o comentário
Compartilhar em outros sites

2 respostass a esta questão

Posts Recomendados

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,4k
×
×
  • Criar Novo...