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

[Jefferson Lupinacci]

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, ' '));
 

 

 

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 17 Janeiro, 2017 por Jefferson Lupinacci

[Juliomar Marchetti]

Bom dia

o subtotal não seria antes e o total sim ao final com desconto?

[Jefferson Lupinacci]

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

Editado 17 Janeiro, 2017 por Jefferson Lupinacci