Ir para conteúdo
  • Cadastre-se

dev botao

Impressão da Palavra SubTotal no Final da Impressão do DAV por ECF


  • Este tópico foi criado há 2844 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

Um cliente me fez uma nova solicitação na impressão do DAV e gostaria de saber se é possível incluir no SVN

O Cliente gostaria de exibir um Total Geral no final da impressão dos Valores



procedure DAV_Fechar(const AObservacao: String; AVlrDesconto : Double; AVlrAcrescimo: Double);

Alterado a string "Valor Total:" para 'Sub Total: ' pois é referente ao valor do somatorio dos itens  - Linha 7260
TextoRel.Add(DescrItem + PadLeft('Sub Total: ' + Format('R$ %11.2f', [FDAVTotal]), 36, ' '));

Incluido o valor total com acrescimo e desconto na linha 7268
TextoRel.Add(DescrItem + PadLeft('Valor Total: ' + Format('R$ %11.2f', [FDAVTotal + AVlrAcrescimo - AVlrDesconto ]), 48, ' '));
 

Sem título.png

 

 

procedure TACBrECF.DAV_Fechar(const AObservacao: String; AVlrDesconto : Double; AVlrAcrescimo: Double);
var
  DescrItem: String;
  TextoRel: TStringList;
begin
  if Self.Estado <> estRelatorio then
    raise EACBrECFErro.Create('Efetue a abertura do DAV antes de continuar.');

  TextoRel := TStringList.Create;
  try
    if Trim(AObservacao) <> EmptyStr then
    begin
      TextoRel.Add('');
      TextoRel.Add(AObservacao);
    end;

    if FDAVItemCount > 1 then
      DescrItem := PadRight(IntToStr(FDAVItemCount) + ' itens', 12, ' ')
    else
      DescrItem := PadRight(IntToStr(FDAVItemCount) + ' item', 12, ' ');

    TextoRel.Add('</linha_simples>');
    TextoRel.Add(DescrItem + PadLeft('Sub Total: ' + Format('R$ %11.2f', [FDAVTotal]), 36, ' '));

    if AVlrDesconto > 0 then
     TextoRel.Add(PadLeft('Total Desc.: ' + Format('R$ %11.2f', [AVlrDesconto]), 48, ' '));

    if AVlrAcrescimo > 0 then
     TextoRel.Add(PadLeft('Total Acre.: ' + Format('R$ %11.2f', [AVlrAcrescimo]), 48, ' '));
     
    TextoRel.Add(PadLeft('Valor Total: ' + Format('R$ %11.2f', [FDAVTotal + AVlrAcrescimo - AVlrDesconto]), 48, ' ')); 

    TextoRel.Add('');
    TextoRel.Add('');
    TextoRel.Add('</linha_dupla>');
    TextoRel.Add('<ce>É VEDADA A AUTENTICAÇÃO DESTE DOCUMENTO</ce>');
    TextoRel.Add('</linha_dupla>');
    TextoRel.Add('');
    TextoRel.Add('');

    LinhaRelatorioGerencial( ACBrStr(TextoRel.Text) );
  finally
    TextoRel.Free;
  end;

  FechaRelatorio;

  FDAVItemCount := 0;
  FDAVTotal     := 0.00;
end;

Postagem foi editada pois estava errado
 

 

ACBrECF.pas

Editado por Jefferson Lupinacci

Jefferson Lupinacci
Analista Desenvolvedor Java Sr. em Zara.com - Inditex - Departamento de Logística e Transporte Global - A Coruña / Espanha

[email protected] / [email protected]
Linkedin; https://www.linkedin.com/in/jeffersonlupinacci/

 

Link para o comentário
Compartilhar em outros sites

Desculpe a postagem errada, estava alterando e vc já respondeu

Juliomar parabéns por sua eficiência e retorno em tempo hábil, mais rápido que a minha edição :-D

Editado por Jefferson Lupinacci

Jefferson Lupinacci
Analista Desenvolvedor Java Sr. em Zara.com - Inditex - Departamento de Logística e Transporte Global - A Coruña / Espanha

[email protected] / [email protected]
Linkedin; https://www.linkedin.com/in/jeffersonlupinacci/

 

Link para o comentário
Compartilhar em outros sites

  • Este tópico foi criado há 2844 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

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
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.

The popup will be closed in 10 segundos...