Ir ao conteúdo
  • Cadastre-se
Entre para seguir isso  
moisesaugusto

Relatorio com Quick Report

Recommended Posts

Boas tardes.

Sou novato no forum. O relatorio cujo codigo postarei a seguir, destina-se ao controle mensal de Notas Fiscais eletronicas emitidas por uma determinada empresa, para a qual desenvolvi o emissor de Nf-e.

Eu gostaria de que tambem fosse nele informado o valor (subtotais e totais) das notas canceladas, para que no final fosse deduzido do valor total das vendas.

Mas estou tentando há algum tempo e não tive muito sucesso. Portanto, eu agradeço se alguem me der uma ideia de como fazer.

Codigo atual :

begin

QryRelatorios.Close;

QryRelatorios.SQL.Clear;

QryRelatorios.SQL.Add('Select Numero, Serie, DTEmissao, ');

QryRelatorios.SQL.Add('Cfop, Entidade, VlContabil, VlIcms, Obs, chave ');

QryRelatorios.SQL.Add(' from RelatNfe Where (CFOP = :CFOP)' );

QryRelatorios.SQL.Add(' and (DtEmissao between :DataInicial and ');

QryRelatorios.SQL.Add(' :DataFinal )' );

QryRelatorios.SQL.Add(' Group by DtEmissao, Numero, Serie, DtEmissao, ');

QryRelatorios.SQL.Add(' Cfop, Entidade, VlContabil, VlIcms, Obs, Chave');

QryRelatorios.SQL.Add(' Order by DtEmissao, CFOP, Numero ');

if DataInicial.Text = '' then

begin

ShowMessage ('Preencha a data inicial');

DataInicial.SetFocus;

Exit;

end;

if DataFinal.Text = '' then

begin

ShowMessage ('Preencha a data final');

DataFinal.SetFocus;

Exit;

end;

if ComboCFOP.ItemIndex = 0 then

QryRelatorios.ParamByName('Cfop').AsString := '1904'

else

if ComboCFOP.ItemIndex = 1 then

QryRelatorios.ParamByName('Cfop').AsString := '5910'

else

if ComboCFOP.ItemIndex = 2 then

QryRelatorios.ParamByName('Cfop').AsString := '5904'

else

if ComboCFOP.ItemIndex = 3 then

QryRelatorios.ParamByName('Cfop').AsString := '5101';

QryRelatorios.ParamByName('DataInicial').AsDate :=

StrtoDAte (DataInicial.Text);

QryRelatorios.ParamByName('DataFinal').AsDate :=

StrtoDAte (DataFinal.Text);

QryRelatorios.Active := True;

FrmQr.QuickRep1.Preview;

end;

Por oportuno, estou utilizando, no QuickRep, 01 TitleBand, 01 QrGroup, 01 GroupFooter e uma Summary.

Abraços a todos.

Compartilhar este post


Link para o post
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar agora
Entre para seguir isso  





Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas publicações sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×