[Danfe NFe Fortes Reports - Protocolo de cancelamento]

Pode verificar agora ?

[Danfe NFe Fortes Reports - Protocolo de cancelamento]

A utlima postagem ?

 

 

ACBrNFeDANFeRLPaisagem.pas

ACBrNFeDANFeRLRetrato.pas

[Danfe NFe Fortes Reports - Protocolo de cancelamento]

Marcelo ,

Solicitei atualização.

/

no post

          

 

[Ajuste em danfe report forte Paisagem]

Mudança da posição da checagem da propriedade FNFeCancelada ( fazer primeiro  )

Adicionado o Status 135 para o evento de cancelada;

 

 

 

 

 

 

[Erro ao Instalar Acbr - Trunk2]

ReCompilação , feita

Instalação efetuada pelo install_trunk2 , com sucesso

[Danfe NFe Fortes Reports - Protocolo de cancelamento]

Marcelo ,  a alguns dias fiz uma atualizacao que foi enviada ao trunk2;  vou dar uma olhada no Código.

[Erro ao Instalar Acbr - Trunk2]

Apaguei Todo Acbr;

 

Segue o erro do log;

 

C:\Delphi Files\Componentes - DXE5\Acbr\Fontes\ACBrDFe\ACBrNFe\ACBrNFeConfiguracoes.pas(282) Error: E2003 Undeclared identifier: 'TpEventoToDescStr'
ACBr_NFe.dpk(1983) Fatal: F2063 Could not compile used unit 'ACBrNFeConfiguracoes.pas'
Compilation failure

[Ajuste em danfe report forte Paisagem]

Obrigado , aplicarei isto em novas situações

 

Obrigado...

Enviei a modificação para pcnConversao.pas

No caso de pcnConversaoNFe.pas... achei mais simples (e seguro) fazer um StrToIntDef()

case StrToIntDef( stpComb, 0) of

 

no futuro alguém deveria aplicar um enumerador para evitar llentidão e compilação melhor para o projeto

[Danfe FastReport - Vem ai´:)]

Testando no laboratório-Móvel a nova versão;

 

[Ajuste em danfe report forte Paisagem]

Novo Enumerador 

function BandeiraCartaoToDescStr(const t: TpcnBandeiraCartao): string;

pcnConversao.pas

Atualizacao de Enumeradores, verifica a constante string está difrente de vazio, para fazer corretamente a conversao para inteiro;

function VeiculosCorDENATRANStr( const sCorDENATRAN : String ): String;
begin
  if sCorDENATRAN <> '' then
  begin
    case StrToInt( sCorDENATRAN ) of

function VeiculosCombustivelStr( const sTpComb : String ): String;
begin
  if stpComb <> '' then
  begin
    case StrToInt( stpComb ) of

pcnConversaoNFe.pas

Por favor aplicarem as atualizações no SVN,

 

Grato

[Implementações DANFeNFCeFortesReport]

Abra o demo da nfe  do acbr; Coloque o Coloque o compomente da Danfe Report Fortes

Depois va em Projects 

                       Build All Projects;

 

 

[Implementações DANFeNFCeFortesReport]

Fez o path library  do fortesreport-ce ? :

  Options 

      Library  

Fez a copia do Report.res que esta em source ?

Para a pasta Binary\Win32_DXE_vcl

Instalou os componentes via Install_Trunk2. ?

 

 

[Ajuste em danfe report forte retrato para aceita denegad]

Por favor, feche o post

e obrigado

[Ajuste em danfe report forte Paisagem]

Obrigado pelo envio.

[Ajuste em danfe report forte retrato para aceita denegad]

Henrique,

Devo considerar apenas esse post para o Merge ?

Correto , Daniel

[Ajuste em danfe report forte Paisagem]

Segue Refactoring da Danfe Paisagem.

Ajuste para aceitar denegada

Implantacao de Encerrante no grupo combustivel;

 

 

ACBrNFeDANFeRLPaisagem.dfm

ACBrNFeDANFeRLPaisagem.pas

[Ajuste em danfe report forte retrato para aceita denegad]

1-  Esta utilizando o Trunk2 ? pois estas atualizações devem ser aplicadas nele;

2- caso ja esteja no trunk2 , Abra o seu projeto 

                                               Selecione Project

                                                  selecione Build All  Project

                                               

[Ajuste em danfe report forte retrato para aceita denegad]

Atualize o acbr; 

   Atentar para o meu erro grave.

 

Boa tarde,

Quando tento instalar o pacote ACBR_NFeDanfeRL aparece os seguints erros na unit ajustada pelo nosso amigo Henrique:

 

[DCC Error] ACBrNFeDANFeRLRetrato.pas(1291): E2003 Undeclared identifier: 'modFreteToDesStr'
[DCC Error] ACBrNFeDANFeRLRetrato.pas(1444): E2003 Undeclared identifier: 'indProcToDescrStr'
[DCC Error] ACBrNFeDANFeRLRetrato.pas(1804): E2003 Undeclared identifier: 'VeiculosTipoOperStr'
[DCC Error] ACBrNFeDANFeRLRetrato.pas(1813): E2003 Undeclared identifier: 'VeiculosCombustivelStr'
[DCC Error] ACBrNFeDANFeRLRetrato.pas(1820): E2003 Undeclared identifier: 'VeiculosTipoStr'
[DCC Error] ACBrNFeDANFeRLRetrato.pas(1821): E2003 Undeclared identifier: 'VeiculosEspecieStr'
[DCC Error] ACBrNFeDANFeRLRetrato.pas(1822): E2003 Undeclared identifier: 'VeiculosVinStr'
[DCC Error] ACBrNFeDANFeRLRetrato.pas(1823): E2003 Undeclared identifier: 'VeiculosCondicaoStr'
[DCC Error] ACBrNFeDANFeRLRetrato.pas(1825): E2003 Undeclared identifier: 'VeiculosCorDENATRANSTr'
[DCC Error] ACBrNFeDANFeRLRetrato.pas(1827): E2003 Undeclared identifier: 'VeiculosRestricaoStr'
[DCC Error] ACBrNFeDANFeRLRetrato.pas(1865): E2003 Undeclared identifier: 'ArmaTipoStr'
 

Esses estão declarados na unit pcnconversao.pas porém não compila. Alguma dica do que pode ser?

 

Grato,

Os enumerados estão declarados em pcnConversaoNfe.pas

 

Atualize o Acbr.

   Atentar para o erro Grave. postado acima.

[Ajuste em danfe report forte retrato para aceita denegad]

Erro Grave :

     Após novos teste

       De        

        cdsItens.FieldByName('ALIQIPII').AsString     := FormatFloat('##0.00', Imposto.IPI.VIPI);

      Para 

        cdsItens.FieldByName('VALORIPI').AsString     := FormatFloat('##0.00', Imposto.IPI.VIPI);

 

ACBrNFeDANFeRLRetrato.pas

[Ajuste em danfe report forte retrato para aceita denegad]

Obrigado.

Grupo Encerrante , Não enviado na revisão 2.

Segue.

ACBrNFeDANFeRLRetrato.pas

[Ajuste em danfe report forte retrato para aceita denegad]

Implatação de Enumaradores :

function modFreteToDesStr(const t: TpcnModalidadeFrete): string;

function indProcToDescrStr(const t: TpcnIndicadorProcesso): string;

 

 

pcnConversao.pas

Implatação de Enumaradores : 

function VeiculosRestricaoStr( const iRestricao :Integer ): String;
function VeiculosCorDENATRANStr( const sCorDENATRAN : String ): String;
function VeiculosCondicaoStr( const condVeic: TpcnCondicaoVeiculo ): String;
function VeiculosVinStr( const sVin: String ): String;
function VeiculosEspecieStr( const iEspecie : Integer ): String;
function VeiculosTipoStr( const iTipoVeic : Integer ): String;
function VeiculosCombustivelStr( const sTpComb : String ): String;
function VeiculosTipoOperStr( const TtpOP : TpcnTipoOperacao ): String;

function ArmaTipoStr( const TtpArma : TpcnTipoArma ): String;

pcnConversaoNFe.pas

Revisão 2 : Diversos ajustes no código fonte.

Implantação de Encerrante no grupo combustível.

 

 

ACBrNFeDANFeRLRetrato.pas

ACBrNFeDANFeRLRetrato.dfm

[Ajuste em danfe report forte retrato para aceita denegad]

Muito  Obrigado.

  Revisão 2  -  

  Em testes :

    - Mais Remoção de Variáveis  

    - Mais Remoção de If´s

    - Mais Estrutura em case.

    - Novos procedimentos e Funções.

    - Código limpo para manutenção e implementação.

    - Novos enumeradores para implantar em pcnConversoNfe.pas para serem aproveitados.

 

[Ajuste em danfe report forte retrato para aceita denegad]

Ajustes na danfe para aceita Nfe denegadas corretamente (  205 , 301 e 302 );

Ajustes no código . : Remoção de variáveis e if's,

Implementação de algumas rotina em case após ajustes no código.

Danfe Testada em xe8 e  xml´s do regine normal e simples nacional.

Favor fazerem os seus teste para devida implantacao no SVN

   

 

 

ACBrNFeDANFeRLRetrato.dfm

ACBrNFeDANFeRLRetrato.pas

[Danfe Fortes Report]

Diversos ajuste :

              Nova identacao
              Remocao de comentarios
              Ajustes para Nota denegada
              Remocao de Variaveis
              Nova Estrutura em case
              Remocao de If nao necessarios para danfe

 

Danfe.rar

[Danfe Fortes Report]

Solicito as devidas modificacoes Para o seguintes casos para notas denegadas

205    Rejeição: NF-e está denegada na base de dados da SEFAZ
301    Uso Denegado: Irregularidade fiscal do emitente    WS
302    Uso Denegado: Irregularidade fiscal do destinatário

Em :

Unit ACBrNFeDANFeRLPaisagem.pas

Na 
  procedure TfrlDANFeRLPaisagem.InitDados;

   De
       if FNFe.procNFe.cStat = 110 then

    Para
      if FNFe.procNFe.cStat = [110,205,301,302] then

 

   De
      if not FNFe.procNFe.cStat in [100, 101, 110, 151, 155] then

   Para
     if not FNFe.procNFe.cStat in [100, 101, 110, 151, 155,205,301,302] then

 

Unit ACBrNFeDANFeRLRetrato;

Na
 procedure TfrlDANFeRLRetrato.InitDados;

   De
     If FNFe.procNFe.cStat = 110 then

    Para
      if FNFe.procNFe.cStat = [110,205,301,302] then

   De
      if not FNFe.procNFe.cStat in [100, 101, 110, 151, 155] then

   Para
     if not FNFe.procNFe.cStat in [100, 101, 110, 151, 155,205,301,302] then

Unit ACBrNFeDANFeRLSimplificado;

Na
  procedure TfrlDANFeRLSimplificado.RLb04_DestinatarioBeforePrint(  Sender: TObject; var PrintIt: boolean);  

  De
     If FNFe.procNFe.cStat = 110 then

    Para
      if FNFe.procNFe.cStat = [110,205,301,302] then

   De
      if not FNFe.procNFe.cStat in [100, 101, 110, 151, 155] then

   Para
     if not FNFe.procNFe.cStat in [100, 101, 110, 151, 155,205,301,302] then

 

Grato.