Impressão da DANFE FORTES

[Weber]

Amigos na impressão da DANFE no fortes reporte contem a seguinte linha:

procedure TfrlDANFeRLRetrato.ISSQN;
begin
  with FNFe.Total.ISSQNtot do
  begin
    if FNFe.Emit.IM > '' then
    begin
      rlbISSQN.Visible := True;
      rllISSQNInscricao.Caption     := FNFe.Emit.IM;
      rllISSQNValorServicos.Caption := FormatFloatBr(FNFe.Total.ISSQNtot.vServ,'###,###,##0.00');
      rllISSQNBaseCalculo.Caption   := FormatFloatBr(FNFe.Total.ISSQNtot.vBC,'###,###,##0.00');
      rllISSQNValorISSQN.Caption    := FormatFloatBr(FNFe.Total.ISSQNtot.vISS,'###,###,##0.00');
    end
    else
      rlbISSQN.Visible := False;
  end;
end;
 

 

Visto que exite um parâmetro para esta finalidade: MostraDadosISSQN, 

 

Pois bem, quando o parametro esta false e o Cliente possui IM ele esta imprimindo os campos da mesma forma..

minha sugestão seria que fique assim:

procedure TfrlDANFeRLRetrato.ISSQN;
begin
  with FNFe.Total.ISSQNtot do
  begin
    if (FNFe.Emit.IM > '') and (MostraDadosISSQN = True) then
    begin
      rlbISSQN.Visible := True;
      rllISSQNInscricao.Caption     := FNFe.Emit.IM;
      rllISSQNValorServicos.Caption := FormatFloatBr(FNFe.Total.ISSQNtot.vServ,'###,###,##0.00');
      rllISSQNBaseCalculo.Caption   := FormatFloatBr(FNFe.Total.ISSQNtot.vBC,'###,###,##0.00');
      rllISSQNValorISSQN.Caption    := FormatFloatBr(FNFe.Total.ISSQNtot.vISS,'###,###,##0.00');
    end
    else
      rlbISSQN.Visible := False;
  end;
end;

 

Pois tenho vários clientes que tem IM porém não fazem NF conjugada e estão reclamando dos campos desnecessários.

 

 

ACBR, Desatualizado. ignorar por favor!

12 minutos atrás, Weber disse:

Amigos na impressão da DANFE no fortes reporte contem a seguinte linha:

procedure TfrlDANFeRLRetrato.ISSQN;
begin
  with FNFe.Total.ISSQNtot do
  begin
    if FNFe.Emit.IM > '' then
    begin
      rlbISSQN.Visible := True;
      rllISSQNInscricao.Caption     := FNFe.Emit.IM;
      rllISSQNValorServicos.Caption := FormatFloatBr(FNFe.Total.ISSQNtot.vServ,'###,###,##0.00');
      rllISSQNBaseCalculo.Caption   := FormatFloatBr(FNFe.Total.ISSQNtot.vBC,'###,###,##0.00');
      rllISSQNValorISSQN.Caption    := FormatFloatBr(FNFe.Total.ISSQNtot.vISS,'###,###,##0.00');
    end
    else
      rlbISSQN.Visible := False;
  end;
end;
 

 

Visto que exite um parâmetro para esta finalidade: MostraDadosISSQN, 

 

Pois bem, quando o parametro esta false e o Cliente possui IM ele esta imprimindo os campos da mesma forma..

minha sugestão seria que fique assim:

procedure TfrlDANFeRLRetrato.ISSQN;
begin
  with FNFe.Total.ISSQNtot do
  begin
    if (FNFe.Emit.IM > '') and (MostraDadosISSQN = True) then
    begin
      rlbISSQN.Visible := True;
      rllISSQNInscricao.Caption     := FNFe.Emit.IM;
      rllISSQNValorServicos.Caption := FormatFloatBr(FNFe.Total.ISSQNtot.vServ,'###,###,##0.00');
      rllISSQNBaseCalculo.Caption   := FormatFloatBr(FNFe.Total.ISSQNtot.vBC,'###,###,##0.00');
      rllISSQNValorISSQN.Caption    := FormatFloatBr(FNFe.Total.ISSQNtot.vISS,'###,###,##0.00');
    end
    else
      rlbISSQN.Visible := False;
  end;
end;

 

Pois tenho vários clientes que tem IM porém não fazem NF conjugada e estão reclamando dos campos desnecessários.

 

 

ACBR, Desatualizado. ignorar por favor!

 

Agora esta assim:

  with FNFe.Total.ISSQNtot do
  begin
    rlbISSQN.Visible  := ( FNFe.Total.ISSQNtot.vISS > 0 ) and ( fMostraDadosISSQN = True );
    if rlbISSQN.Visible then
    begin
      rllISSQNInscricao.Caption     := FNFe.Emit.IM;
      rllISSQNValorServicos.Caption := FormatFloatBr(FNFe.Total.ISSQNtot.vServ,'###,###,##0.00');
      rllISSQNBaseCalculo.Caption   := FormatFloatBr(FNFe.Total.ISSQNtot.vBC,'###,###,##0.00');
      rllISSQNValorISSQN.Caption    := FormatFloatBr(FNFe.Total.ISSQNtot.vISS,'###,###,##0.00');
    end;
  end;
 

Porém existem empresas que são isentas de ISS, ficando o valor como zero. acho que o IF deveria ser com o valor do serviço ficando assim:

  with FNFe.Total.ISSQNtot do
  begin
    rlbISSQN.Visible  := ( FNFe.Total.ISSQNtot.vServ > 0 ) and ( fMostraDadosISSQN = True );
    if rlbISSQN.Visible then
    begin
      rllISSQNInscricao.Caption     := FNFe.Emit.IM;
      rllISSQNValorServicos.Caption := FormatFloatBr(FNFe.Total.ISSQNtot.vServ,'###,###,##0.00');
      rllISSQNBaseCalculo.Caption   := FormatFloatBr(FNFe.Total.ISSQNtot.vBC,'###,###,##0.00');
      rllISSQNValorISSQN.Caption    := FormatFloatBr(FNFe.Total.ISSQNtot.vISS,'###,###,##0.00');
    end;
  end;

 

[hleorj]

@Weber

  with FNFe.Total.ISSQNtot do
  begin
    rlbISSQN.Visible  := ( ( FNFe.Total.ISSQNtot.vServ > 0 ) or
                           ( FNFe.Total.ISSQNtot.vISS  > 0 ) or
                           ( FNFe.Total.ISSQNtot.vBC   > 0 )
                          )
 
                         and ( fMostraDadosISSQN = True );
   ...
   .....
  end;

Soluciona o problema de todos ?

[Weber]

Sim .. ai fica 100%

 

Grato pela resposta!

Agora, Weber disse:

Sim .. ai fica 100%

 

Grato pela resposta!

@hleorj

[hleorj]

Enviado ao SVN. @Weber

Favor fazer os devidos ajustes.

[Fernando Duarte]

Pessoal, boa noite!

Desculpe ressuscitar o tópico, mas estou com um problema exatamente neste ponto. Tenho um cliente que emite Nfe de produtos e serviços, porém em ambos os casos, que quer que seja exibido a inscrição municipal no danfe. Pelo código acima, só é exibido caso tenha algum valor nos totais do ISSQN. 

Não seria mais interessante colocar um "OR" para propriedade MostraDadosISSQN? com isso fica a critério de cada um decidir se exibe ou não, independente de valor.

Tipo isso

Citar

  with FNFe.Total.ISSQNtot do
  begin
    rlbISSQN.Visible  := ( ( FNFe.Total.ISSQNtot.vServ > 0 ) or
                           ( FNFe.Total.ISSQNtot.vISS  > 0 ) or
                           ( FNFe.Total.ISSQNtot.vBC   > 0 )
                          )
 
                         or ( fMostraDadosISSQN = True );

 

Só um detalhe: o emissor da sefaz exibe assim, por isso ele está me questionando para também colocar.

[Juliomar Marchetti]

O que diz o manual quanto a essa informação?

[Fernando Duarte]

8 horas atrás, Juliomar Marchetti disse:

O que diz o manual quanto a essa informação?

Dei uma olhada e a unica coisa que achei sobre foi isso:

Citar

7.3.3 Quadro “Cálculo do ISSQN”
Caso não se aplique às suas operações, o emitente poderá suprimir os campos do bloco
“Cálculo do ISSQN” e efetuar os seguintes ajustes:
o Aumentar a altura do quadro “Dados dos Produtos/Serviços” no mesmo valor da
redução obtida com a eliminação dos campos do referido bloco.

Aumentar a altura do campo “Informações Complementares” e do quadro
“Reservado ao Fisco” no mesmo valor da redução obtida com a eliminação dos
campos do bloco “Cálculo do ISSQN”.

Ou seja, a meu ver não existe nada que impeça de exibir o quadro do ISSQN, mesmo sem valores, apenas exibindo a inscrição municipal, semelhante ao emissor da sefaz 

[Fernando Duarte]

Boa noite amigos, o que acham da sugestão de mudança?

[hleorj]

Em análise , sua sugestão.

[Juliomar Marchetti]

Henrique eu só não implementei por que tenho alguns problema de impedimento pessoal (notebook) mas se quiser implementar mas. cria default como true.

Perdão digo False pois só usar quem quiser mesmo!

[hleorj]

@Fernando Filho, post arquivo xml com a informação.

[hleorj]

Enviado ao svn : 

[*] Ajustes para imprimir a banda Mostra Dados ISSQN.
[*] Propriedade MostraDadosISSQN valor padrão igual a false.
              por: Henrique Leonardo / Juliomar Marchetti

[Fernando Duarte]

6 horas atrás, hleorj disse:

Enviado ao svn : 

[*] Ajustes para imprimir a banda Mostra Dados ISSQN.
[*] Propriedade MostraDadosISSQN valor padrão igual a false.
              por: Henrique Leonardo / Juliomar Marchetti

Muito Obrigado!!

[Fernando Duarte]

6 horas atrás, hleorj disse:

Enviado ao svn : 

[*] Ajustes para imprimir a banda Mostra Dados ISSQN.
[*] Propriedade MostraDadosISSQN valor padrão igual a false.
              por: Henrique Leonardo / Juliomar Marchetti

Muito Obrigado!!