hleorj

ReCompilação , feita Instalação efetuada pelo install_trunk2 , com sucesso

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

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

Obrigado , aplicarei isto em novas situações no futuro alguém deveria aplicar um enumerador para evitar llentidão e compilação melhor para o projeto

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

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

Abra o demo da nfe do acbr; Coloque o Coloque o compomente da Danfe Report Fortes Depois va em Projects Build All Projects;

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. ?

Por favor, feche o post e obrigado

Obrigado pelo envio.

Correto , Daniel

Segue Refactoring da Danfe Paisagem. Ajuste para aceitar denegada Implantacao de Encerrante no grupo combustivel; ACBrNFeDANFeRLPaisagem.dfm ACBrNFeDANFeRLPaisagem.pas

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

Atualize o acbr; Atentar para o meu erro grave. Os enumerados estão declarados em pcnConversaoNfe.pas Atualize o Acbr. Atentar para o erro Grave. postado acima.

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

Obrigado. Grupo Encerrante , Não enviado na revisão 2. Segue. ACBrNFeDANFeRLRetrato.pas

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

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.

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

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

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.

o q seria o código fonte antigo , tenho relatórios desenvolvido no d7 , atualmente uso xe5 e indo pra xe8 .

Rafael , Alguma dica no Xe5 para [dcc32 Error] RLMetaFile.pas(141): E2003 Undeclared identifier: 'TRect' ; Obrigado.

Obrigado pelos cometarios. Solucionei o problema acima

Ítalo , já dei muito suor para acbr. Como você já deve saber. Se não , dei muito tempo ao acbrnfe na implantação do simples nacional( procure por Henrique Leonardo no código fonte ) . Então ao tentar baixa a versão em trunk ( bugada ) , onde não e possível instalar. E sem suporte ficará bugada.