rodrigod6

Observação sobre o GravarXML De: ACBrNFe1.NotasFiscais.Items.SaveToFile(cPathDestino); Para: ACBrNFe1.NotasFiscais.Items.GravarXML( ExtractFileName(cPathDestino), ExtractFileDir(cPathDestino)); Tive que fazer este ajuste

Mesmo erro comigo... String: <nfeProc versao="" xmlns="http://www.portalfiscal.inf.br/nfe"> XML no IE: <?xml version="1.0" encoding="UTF-8"?> -<nfeProc xmlns="http://www.portalfiscal.inf.br/nfe" versao=""> +<NFe xmlns="http://www.portalfiscal.inf.br/nfe"> -<protNFe versao=""> -<infProt Id="ID141150001353792"> <tpAmb>2</tpAmb> Sempre o versao="" Entrei na rotina function TProcNFe.GerarXML: Boolean; Aqui esta branco o Versao xProtNFe := '<protNFe versao="' + Versao + '">' + '<infProt Id="ID'+ nProtLoc +'">'+ PreencherTAG('tpAmb', XMLinfProt.text) + PreencherTAG('verAplic', XMLinfProt.text) + PreencherTAG('chNFe', XMLinfProt.text) + PreencherTAG('dhRecbto', XMLinfProt2.text) + PreencherTAG('nProt', XMLinfProt2.text) + PreencherTAG('digVal', XMLinfProt.text) + PreencherTAG('cStat', XMLinfProt.text) + PreencherTAG('xMotivo', XMLinfProt.text) + '</infProt>' + '</protNFe>'; Consegui resolver temporariamente assim : ProcNFe := TProcNFe.create; ProcNFe.PathNFe := XXXX ProcNFe.PathRetConsReciNFe := FFFF ProcNFe.PathRetConsSitNFe := TTTT ProcNFe.Versao := '3.10'; // <-- Colocando a versão aqui para gerar lá. ProcNFe.GerarXML; ProcNFe.Free; Se alguém conseguiu resolve avise ai, abraços

Entendi, Ao invés de utilizar o TNFe e depois colocar no ACBrNFe, utilizar diretamente dentro do ACBrNfe.NotasFiscais Ok, vou tentar aqui obrigado,

Resolvido, Agora que o Italo comentou, fui verificar as referencias(uses) e não estava usando o pcnValidador. Voltei o fonte original do SVN. Removi do uses o pcnValidador Obrigado Italo e Juliomar !!!! Valeu Tiago

Boa tarde Italo, Repositório : https://svn.code.sf.net/p/acbr/code/trunk2 Os componentes deram problema na instalação, mas eu adicionei as BPL´s no dir do Delphi onde ficam as BPL´s ( apaguei as antigas todas dos trunk ) , Então a priori está Ok. Ocorre na compilação dos meus fontes.

Daniel, pessoal, Estou na dúvida se gravo o XML a partir do NFe que gerei e depois carrego no LerXML ou no LoadFromFile Veja o que estou pensando: //Criar o XML NFeW := TNFeW.Create(NFe); NFeW.GerarXml; NFeW.gerador.SalvarArquivo(cFileName); //Recuperar o XML e jogar para txt cXML := 'xxxx' ACBrNFe1.NotasFiscais.LerXML(cXML) ou //Criar o XML NFeW := TNFeW.Create(NFe); NFeW.GerarXml; NFeW.gerador.SalvarArquivo(cFileName); ACBrNFe1.NotasFiscais.LoadFromFile(cFileName) Qual estão utilizando?

Mas no seu pcnValidador tem a TpcnSchema? Estou baixando do SVN e ela esta lá.

Obrigado Juliomar, Já fiz várias tentativas, tenho na VM, rodei o deleta.bat do acbr, apaguei os fontes do trunk dela, removi os caminhos antigos... coloquei trunk2 em novos caminhos para evitar conflitos. Obrigado Daniel Vou verificar para fazer utilizando a propriedade XML, dai posto aqui Abraços,

Nós apagamos tudo do antigo... todas bpls. fontes...etc... Veja se dentro do pcnValidador.pas seu não tem 'TpcnSchema', para onde ele aponta? Na última versão do pcnValidador tem a referência a TpcnSchema, isso que não entendo !

Boa Tarde Pessoal, Alguém sabe por que no fonte ACBrNFeNotasFiscais.pas foi removida a propriedade write da propriedade NFe? Era: property NFe: TNFe read FNFe write FNFe; Ficou no trunk2: property NFe: TNFe read FNFe; Eu utilizava assim: NFe := TNFe.create; //Populava ACBrNFe1.NotasFiscais.Add; ACBrNFe1.NotasFiscais[countNFe].NFe := NFe; [Error] Nfe.pas(7348): E2129 Cannot assign to a read-only property Qual a recomendação? por enquanto voltei o write no set da propriedade. property NFe: TNFe read FNFe write FNFe; Abraços,

Boa tarde a todos Seguindo alguns tópicos que encontrei no fórum, fiz um resumo da conversão que fiz para quem estiver migrando para o trunk 2, espero que possa ajudar alguém: CTe ** CTe * Valida De: ACBrCTe1.Conhecimentos.Valida; Para: ACBrCTe1.Conhecimentos.Validar; * Configuracoes.Geral.PathSalvar De: ACBrCTe1.Configuracoes.Geral.PathSalvar Para: ACBrCTe1.Configuracoes.Arquivos.PathSalvar * EnviarEventoCTe De: ACBrCTe1.EnviarEventoCTe(idLote); Para: ACBrCTe1.EnviarEvento(idLote); * De: if ACBrCTe1.Conhecimentos.Items[i].Confirmada then Para: if ACBrCTe1.Conhecimentos.Items[i].Confirmado then * De: ACBrCTe1.Conhecimentos.Items[i].SaveToFile(cFileName); Para: ACBrCTe1.Conhecimentos.Items[i].GravarXML(cFileName); * De: DFEUtil.LimpaNumero(cDocumento) Para: OnlyNumber(cDocumento) * De: ACBrCTe1.Configuracoes.Certificados.DataVenc Para: ACBrCTe1.SSL.CertDataVenc NFe ** NFe * De: cNroSerieCertificado := ACBrNFe1.Configuracoes.Certificados.SelecionarCertificado; Para: cNroSerieCertificado := ACBrNFe1.SSL.SelecionarCertificado; * De: ACBrNFe1.NotasFiscais.Valida; Para: ACBrNFe1.NotasFiscais.Validar; * De: ACBrNFe1.Configuracoes.Geral.PathSalvar; Para: ACBrNFe1.Configuracoes.Arquivos.PathSalvar; * De: ACBrNFe1.EnviarEventoNFe(idLote); Para: ACBrNFe1.EnviarEvento(idLote); * De: cSituacao := SituacaoNFeToStr(AcbrNFe1.WebServices.ConsNFeDest.retConsNFeDest.ret.Items[idx].resNFe.cSitNFe); Para: cSituacao := SituacaoDFeToStr(AcbrNFe1.WebServices.ConsNFeDest.retConsNFeDest.ret.Items[idx].resNFe.cSitNFe); * De: ACBrNFe1.NotasFiscais.Items[i].SaveToFile(cFileName); Para: ACBrNFe1.NotasFiscais.Items[i].GravarXML(cFileName); * Removidos: ( não existe mais DPEC) ACBrNFe1.WebServices.EnviarDPEC.Executar ACBrNFe1.WebServices.ConsultaDPEC.NFeChave ACBrNFe1.WebServices.ConsultaDPEC.Executar; * De: NFe.Det[idx].Prod.nItemPed := 0; Para: NFe.Det[idx].Prod.nItemPed := ''; * Disponível NFe.Det[idx].Prod.CEST ( trunk 2 ) * Remover Componentes ACBrNFeDANFERave1 e ACBrNFeDANFERaveCB1 * De: ACBrNFe1.NotasFiscais.Items[idx].SaveToFile(cFileName ); Para: ACBrNFe1.NotasFiscais.Items[idx].GravarXML(cFileName); * De: ACBrNFe1.Configuracoes.Certificados.DataVenc Para: ACBrNFe1.SSL.CertDataVenc NFSe ** NFSe * De: ACBrNFSe1.Configuracoes.Arquivos.PastaMensal := True Para: ACBrNFSe1.Configuracoes.Arquivos.SepararPorMes := True * De: ACBrNFSe1.Configuracoes.WebServices.CodigoMunicipio := 9999 Para: ACBrNFSe1.Configuracoes.Geral.CodigoMunicipio := 9999 * De: ACBrNFSe1.Configuracoes.WebServices.SetConfigMunicipio(ACBrNFSe1.Configuracoes.Geral.PathSchemas); Para: ACBrNFSe1.Configuracoes.Geral.SetConfigMunicipio; * De: ACBrNFSe1.Configuracoes.WebServices.SenhaWeb := cSenhaWeb; Para: ACBrNFSe1.Configuracoes.Geral.SenhaWeb := cSenhaWeb; * De: ACBrNFSe1.Configuracoes.WebServices.UserWeb := cUserWeb; Para: ACBrNFSe1.Configuracoes.Geral.UserWeb := cUserWeb; * De: cProvedor := ACBrNFSe1.Configuracoes.WebServices.xProvedor; Para: cProvedor := ACBrNFSe1.Configuracoes.Geral.xProvedor; * De: ACBrNFSe1.Configuracoes.Geral.PathSalvar; Para: ACBrNFSe1.Configuracoes.Arquivos.PathSalvar; * De: ACBrNFSe1.NotasFiscais.Items[0].NFSe.NaturezaOperacao := noTributacaoNoMunicipio; ACBrNFSe1.NotasFiscais.Items[0].NFSe.NaturezaOperacao := StrToNaturezaOperacao(ok, cNaturezaOperacao); Geral * pcnConversao ( ainda existe ) - especializado para pcnConversaoNFe e pcteConversaoCTe adicionem no uses pcnConversaoNFe e pcteConversaoCTe junto com pcnConversao * ACBrDFeUtil // Unificado: ACBrNFeUtil-ACBrNFEsUtil-ACBrCTeUtil ( não existem mais ) remover ACBrNFeUtil-ACBrNFEsUtil-ACBrCTeUtil e deixem ACBrDFeUtil * Added novo uses ACBrUtil * EstaVazio De: if DFeUtil.EstaVazio(cPathSalvar) then Para: if EstaVazio(cPathSalvar) then

Boa Tarde, Tive que colocar dentro do pcnConversao.pas, o código antigo da 'TpcnSchema' para conseguir compilar, pois o pcnValidador está usando o código antigo. ( Imagem em anexo ). Código: TpcnSchema = (TsPL005c, TsPL006, TsPL_CTe_103, TsPL_CTe_104, TsPL_MDFe_100); TpcnTipoLayout = (tlAtuCadEmiDFe, tlCadEmiDFe, tlCancNFe, tlConsCad, tlConsReciNFe, tlConsSitNFe, tlConsStatServ, tlInutNFe, tlNFe, tlProcNFe, tlProcInutNFe, tlRetAtuCadEmiDFe, tlRetCancNFe, tlRetConsCad, tlRetConsReciNFe, tlRetConsStatServ, tlRetConsSitNFe, tlRetEnvNFe, tlRetInutNFe, tlEnvNFe, tlProcCancNFe, tlCancCTe, tlConsReciCTe, tlConsSitCTe, tlInutCTe, tlCTe, tlProcCTe, tlProcInutCTe, tlRetCancCTe, tlRetConsReciCTe, tlRetConsSitCTe, tlRetEnvCTe, tlRetInutCTe, tlEnvCTe, tlProcCancCTe, tlEnvDPEC, tlConsDPEC, tlConsStatServCTe, tlCCeNFe, tlEnvCCeNFe, tlRetEnvCCeNFe, tlEnvEventoNFe, tlRetEnvEventoNFe, tlConsNFeDest, tlDownloadNFe); function SchemaToStr(const t: TpcnSchema): string; function StrToSchema(var ok: boolean; const s: string): TpcnSchema; function TipoLayoutToStr(const t: TpcnTipoLayout): string; function StrToTipoLayout(var ok: boolean; const s: string): TpcnTipoLayout; // Tipo de Schema ************************************************************** function SchemaToStr(const t: TpcnSchema): string; begin result := EnumeradoToStr(t, ['PL005C'], [TsPL005c]); end; function StrToSchema(var ok: boolean; const s: string): TpcnSchema; begin result := StrToEnumerado(ok, s, ['PL005C'], [TsPL005c]); end; // Tipo do Layout ************************************************************** function TipoLayoutToStr(const t: TpcnTipoLayout): string; begin result := EnumeradoToStr(t, ['AtuCadEmiDFe', 'CadEmiDFe', 'CancNFe', 'ConsCad', 'ConsReciNFe', 'ConsSitNFe', 'ConsStatServ', 'InutNFe', 'NFe', 'ProcNFe', 'ProcInutNFe', 'RetAtuCadEmiDFe', 'RetCancNFe', 'RetConsCad', 'RetConsReciNFe', 'RetConsStatServ', 'RetConsSitNFe', 'RetEnvNFe', 'RetInutNFe', 'EnvNFe', 'ProcCancNFe', 'ConsStatServ', 'EnvCCeNFe', 'EnvEventoNFe', 'ConsNFeDest', 'DownloadNFe' {, 'ProcMDFe'}], [tlAtuCadEmiDFe, tlCadEmiDFe, tlCancCTe, tlConsCad, tlConsReciCTe, tlConsSitCTe, tlConsStatServ, tlInutCTe, tlCTe, tlProcCTe, tlProcInutCTe, tlRetAtuCadEmiDFe, tlRetCancCTe, tlRetConsCad, tlRetConsReciCTe, tlRetConsStatServ, tlRetConsSitCTe, tlRetEnvCTe, tlRetInutCTe, tlEnvCTe, tlProcCancCTe, tlConsStatServCTe, tlEnvCCeNFe, tlEnvEventoNFe, tlConsNFeDest, tlDownloadNFe{, tlProcMDFe}]); end; function StrToTipoLayout(var ok: boolean; const s: string): TpcnTipoLayout; begin result := StrToEnumerado(ok, s, ['AtuCadEmiDFe', 'CadEmiDFe', 'CancNFe', 'ConsCad', 'ConsReciNFe', 'ConsSitNFe', 'ConsStatServ', 'InutNFe', 'NFe', 'ProcNFe', 'ProcInutNFe', 'RetAtuCadEmiDFe', 'RetCancNFe', 'RetConsCad', 'RetConsReciNFe', 'RetConsStatServ', 'RetConsSitNFe', 'RetEnvNFe', 'RetInutNFe', 'EnvNFe', 'ConsStatServ', 'EnvCCeNFe', 'EnvEventoNFe', 'ConsNFeDest', 'DownloadNFe'{, 'ProcMDFe'}], [tlAtuCadEmiDFe, tlCadEmiDFe, tlCancCTe, tlConsCad, tlConsReciCTe, tlConsSitCTe, tlConsStatServ, tlInutCTe, tlCTe, tlProcCTe, tlProcInutCTe, tlRetAtuCadEmiDFe, tlRetCancCTe, tlRetConsCad, tlRetConsReciCTe, tlRetConsStatServ, tlRetConsSitCTe, tlRetEnvCTe, tlRetInutCTe, tlEnvCTe, tlConsStatServCTe, tlEnvCCeNFe, tlEnvEventoNFe, tlConsNFeDest, tlDownloadNFe{, tlProcMDFe}]); end; Library paths : ACBr\Fontes\PCNComum - OK Por enquanto vou deixar assim, se alguém tiver alguma outra dica, é bem vinda. Abraços,

Eu apaguei o arquivo pcnValidador.pas e mandei atualizar para pegar a última versão. https://svn.code.sf.net/p/acbr/code/trunk2/Fontes/PCNComum https://svn.code.sf.net/p/acbr/code/trunk2/ Mas no geral o endereço do SVN está correto. No meu baixou com TpcnSchema dentro do pcnValidador.??? Não entendi, o que ocorreu !!! Alguém tem o pcnValidador.pas para eu comparar como o meu?

Obrigado Juliomar, Estou estudando, mas fiz update dos fontes do trunk2 e está lá (Schema: TpcnSchema;) veja a imagem Será que está correto o endereço do svn do trunk2 que estou utilizando? https://svn.code.sf.net/p/acbr/code/trunk2/Fontes/PCNComum Abraços,

Boa Tarde Pessoal, Estou migrando para o trunk 2 (última versão) e esta apresentando estes erros na unit pcnValidador.pas, na function ValidarXML: [Error] pcnValidador.pas(90): E2003 Undeclared identifier: 'TpcnSchema' [Error] pcnValidador.pas(91): E2003 Undeclared identifier: 'TpcnTipoLayout' [Error] pcnValidador.pas(129): E2003 Undeclared identifier: 'SchemaToStr' [Error] pcnValidador.pas(131): E2003 Undeclared identifier: 'TipoLayoutToStr' Peguei o primeiro (TpcnSchema) e fui comparar na versão do trunk Ele está dentro da pcnConversao.pas TpcnSchema = (TsPL005c, TsPL006, TsPL_CTe_103, TsPL_CTe_104, TsPL_MDFe_100); Então fui verificar no trunk 2, (pcnConversao.pas) e ele não existe mais, Procurei por TpcnSchema nos fontes e achei somente dentro do pcnValidador.pas a utilização dele. Alguém sabe onde esta a classe TpcnSchema ?

Não funcionou compilando manualmente ou automaticamente para a versão do Delphi 2005. Com ajuda do colega Massao, que também utiliza o ACBr, compilamos com instalador(ACBrInstall_Trunk2.exe), o qual funcionava, e adicionamos a BPL´s diretamente no dir do Delphi, e foram adicionado os pacotes manualmente no Delphi Agora estou fazendo a conversão!

A VM que fiz tinha o Win 10 e não está dando certo. Peguei um VM antiga com o Windows XP, baixei última versão do svn (https://svn.code.sf.net/p/acbr/code/trunk2), utilizando o ACBrInstall_Trunk2.exe como Administrador, ele compila e instala com sucesso. Mas quando entro no Delphi não instalou também. Ai tentei manualmente, e já parou no ACBrComum, duplicate resource:Type 14(ICON GROUP) .... \DIR\ACBr_Comum.res resource kept; ACBr_Comum.res resource discaded. Vou tentar instalar em uma VM com Win7 ou Win8. Mas se alguém tiver alguma dica, é bem vinda. :)

Manualmente consegui esses: Compiling package C:\Users\Rodrigo\Documents\ACBr\Pacotes\Delphi\synapse\ACBr_synapse.dpk Compiling package C:\Users\Rodrigo\Documents\ACBr\Pacotes\Delphi\ACBrComum\ACBr_Comum.dpk Compiling package C:\Users\Rodrigo\Documents\ACBr\Pacotes\Delphi\ACBrCapicom\ACBr_Capicom.dpk Compiling package C:\Users\Rodrigo\Documents\ACBr\Pacotes\Delphi\ACBrOpenSSL\ACBr_OpenSSL.dpk Compiling package C:\Users\Rodrigo\Documents\ACBr\Pacotes\Delphi\ACBrDiversos\ACBr_Diversos.dpk Compiling package C:\Users\Rodrigo\Documents\ACBr\Pacotes\Delphi\PCNComum\ACBr_PCNComum.dpk Compiling package C:\Users\Rodrigo\Documents\ACBr\Pacotes\Delphi\ACBrSerial\ACBr_Serial.dpk Compiling package C:\Users\Rodrigo\Documents\ACBr\Pacotes\Delphi\ACBrTXT\ACBr_TXTComum.dpk Compiling package C:\Users\Rodrigo\Documents\ACBr\Pacotes\Delphi\ACBrTXT\ACBrConvenio115\ACBr_Convenio115.dpk Compiling package C:\Users\Rodrigo\Documents\ACBr\Pacotes\Delphi\ACBrTXT\ACBrPAF\ACBr_PAF.dpk Compiling package C:\Users\Rodrigo\Documents\ACBr\Pacotes\Delphi\ACBrTXT\ACBrSEF2\ACBr_SEF2.dpk Compiling package C:\Users\Rodrigo\Documents\ACBr\Pacotes\Delphi\ACBrTXT\ACBrSintegra\ACBr_Sintegra.dpk Installing package C:\Users\Rodrigo\Documents\ACBr\Pacotes\Delphi\ACBrComum\ACBr_Comum.dpk Installing package C:\Users\Rodrigo\Documents\ACBr\Pacotes\Delphi\ACBrOpenSSL\ACBr_OpenSSL.dpk Installing package C:\Users\Rodrigo\Documents\ACBr\Pacotes\Delphi\ACBrDiversos\ACBr_Diversos.dpk Installing package C:\Users\Rodrigo\Documents\ACBr\Pacotes\Delphi\ACBrSerial\ACBr_Serial.dpk Installing package C:\Users\Rodrigo\Documents\ACBr\Pacotes\Delphi\ACBrTXT\ACBrConvenio115\ACBr_Convenio115.dpk Installing package C:\Users\Rodrigo\Documents\ACBr\Pacotes\Delphi\ACBrTXT\ACBrPAF\ACBr_PAF.dpk Installing package C:\Users\Rodrigo\Documents\ACBr\Pacotes\Delphi\ACBrTXT\ACBrSEF2\ACBr_SEF2.dpk Installing package C:\Users\Rodrigo\Documents\ACBr\Pacotes\Delphi\ACBrTXT\ACBrSintegra\ACBr_Sintegra.dpk Todos compilam e instalam, Chegou no SPED ( \ACBr\Pacotes\Delphi\ACBrTXT\ACBrSPED\ACBr_SPED.bdsproj ), mesmo erro: --------------------------- Error --------------------------- Can't load package C:\Users\Rodrigo\Documents\Borland Studio Projects\Bpl\ACBr_SPED.bpl. The specified module could not be found. --------------------------- OK --------------------------- Ideias?

Tenho somente 1 Delphi, Não é trial. Instalei um VM, somente para isso. Antes não tinha rodado com adm, mas rodei agora e mesmo assim não adicionou. Vou tentar a instalação manual, ver se consigo.

Utilizando o ACBrInstall_Trunk2.exe, sem instalar os relatórios ele compila e instala com sucesso (Pacote "ACBr_XXXXXX.dpk" instalado com sucesso.). Mas no texto do Régys, diz('e adicionados ao Delphi'): Mensagem do ACBrInstall_Trunk2.exe: --------------------------- Instalação --------------------------- Pacotes compilados e instalados com sucesso! Clique em "Próximo" para finalizar a instalação. --------------------------- OK --------------------------- Mas no meu não adicionou. O Delphi continua sem os pacotes. Entrei em Component -> Install Package ( e os módulos não estão lá, como estariam quando faço a instalação manualmente ). Então, tentei adicionar os bpl´s que foram gerados pelo install e deu o mesmo erro: --------------------------- Borland Delphi 2005 --------------------------- Can't load package C:\Users\Rodrigo\Documents\ACBr\Lib\Delphi\LibD9\ACBr_NFe.bpl. The specified module could not be found. --------------------------- OK --------------------------- Alguém tem alguma dica? Obrigado Rodrigo

Pois eh Juliomar, não achei mesmo. Vi o posto do Régys ( https://regys.com.br/como-instalar-o-trunk2-do-acbr/ ) Segui os passos, removi tudo, mas estava compilando manualmente os componentes. Estou tentando com o ACBrInstall2, Muito Obrigado !!! Rodrigo

Bom Dia Pessoal, Estou migrando para o trunk2. Procurei algo no fórum a respeito, mas não achei nada relacionado ao trunk2. Compilei os componentes nessa ordem: \ACBr\Pacotes\Delphi\synapse\ACBr_synapse.bdsproj (Comp) \ACBr\Pacotes\Delphi\ACBrComum\ACBr_Comum.bdsproj ( Comp/Install ) \ACBr\Pacotes\Delphi\ACBrCapicom\ACBr_Capicom.bdsproj ( Comp ) \ACBr\Pacotes\Delphi\ACBrOpenSSL\ACBr_OpenSSL.bdsproj ( Comp/Install ) \ACBr\Pacotes\Delphi\ACBrDiversos\ACBr_Diversos.bdsproj ( Comp/Install ) \ACBr\Pacotes\Delphi\PCNComum\ACBr_PCNComum.bdsproj ( Comp ) \ACBr\Pacotes\Delphi\ACBrTCP\ACBr_TCP.bdsproj ( Comp/Install ) Quando cheguei no ACBr_DFeComum.dpk compilou e ao instalar apresentou o seguinte erro: --------------------------- Error --------------------------- Can't load package C:\Users\Rodrigo\Documents\Borland Studio Projects\Bpl\ACBr_DFeComum.bpl. The specified module could not be found. --------------------------- OK --------------------------- Se tento instalar o ACBr_CTe, ACBr_NFe apresenta o mesmo problema, alguém tem alguma ideia do que pode ser? Compila, mas não instala. Última versão do SVN trunk2 Versão Delphi 2005

Consegui instalar o Fortes Report no Delphi 2005. Tive que realizar essas alterações: Versão do Delphi: 2005 * Instalação do FORTES * 1) Baixado fontes do github https://github.com/fortesinformatica/fortesreport-ce, 2) Criado dpk FortesReportCE_Win32_D2005_vcl.dpk 3) Modificado o nome do instalador do Fortes para compatibilizar com ACBr Nome Original: FortesReportCE_Win32_D2005_vcl.dpk para: RLibWinD2005.bdsproj * Atualizando ACBr * 1) Adicionado acesso ao Delphi 2005: \ACBr\Pacotes\Delphi\ACBrBoleto\ACBr_BoletoFC_Fortes.dpk requires {$IFDEF VER170} RLibWinD2005, vcljpg, {$ENDIF} // D2005 \ACBr\Pacotes\Delphi\ACBrCTe\ACBrCTeDacteRLpkg.dpk requires {$IFDEF VER170} RLibWinD2005, vcljpg; {$ENDIF} // D2005 \ACBr\Pacotes\Delphi\ACBrGNRE\ACBrGNREGuiaRLpkg.dpk requires {$IFDEF VER170} RLibWinD2005, vcljpg; {$ENDIF} // D2005 \ACBr\Pacotes\Delphi\ACBrMDFe\ACBrMDFeDAMDFeRLpkg.dpk requires {$IFDEF VER170} RLibWinD2005, vcljpg, {$ENDIF} // D2005 \ACBr\Pacotes\Delphi\ACBrNFe2\ACBrNFeDanfeRLpkg.dpk requires {$IFDEF VER170} RLibWinD2005, vcljpg, {$ENDIF} // D2005 \ACBr\Pacotes\Delphi\ACBrNFSe\ACBrNFSeDanfseRLpkg.dpk requires {$IFDEF VER170} RLibWinD2005, vcljpg, {$ENDIF} // D2005 \ACBr\Pacotes\Delphi\ACBrSAT\ACBr_SAT_Extrato_Fortes.dpk requires {$IFDEF VER170} RLibWinD2005, vcljpg, {$ENDIF} // D2005 Obrigado a todos,

Quando as assinaturas, de Lote, de RPS, deixou o padrão do Componente? Continuo com o mesmo erro. Veja a sequencia que faz até da o erro: Chama rotina ACBrNFSe1.Enviar(nLote,false); dentro da rotina ACBrNFSe1.Enviar chama a NotasFiscais.Assinar(FConfiguracoes.Certificados.AssinaRPS); passando parametro true verifica se tem q assinar ( if AssinaRPS then ) entra nesta rotina e chama if not(NotaUtil.Assinar(LocNFSeW.Gerador.ArquivoFormatoXML, FConfiguracoes.Certificados.GetCertificado, vAssinada, FMsg, False, FConfiguracoes.WebServices.Prefixo3, FConfiguracoes.WebServices.Prefixo4, FConfiguracoes.WebServices.Provedor, ALote)) verifica certificado (GetCertificado) e chama rotina abaixo NotaUtil.Assinar dentro desta rotina tem uma diretiva e chama esta rotina Result := AssinarMSXML(AXML, Certificado, AXMLAssinado, ALote, APrefixo3, APrefixo4, AProvedor, ASincrono); function AssinarMSXML(XML : AnsiString; Certificado : ICertificate2; out XMLAssinado : AnsiString; ALote: Boolean = False; APrefixo3: string = ''; APrefixo4: string = ''; AProvedor: TnfseProvedor = proNenhum; ASincrono: Boolean = False): Boolean; carregando informações do certificador OleCheck(IDispatch(Certificado.PrivateKey).QueryInterface(IPrivateKey,PrivateKey)); xmldsig.store := CertStoreMem; dsigKey := xmldsig.createKeyFromCSP(PrivateKey.ProviderType, PrivateKey.ProviderName, PrivateKey.ContainerName, 0); if (dsigKey = nil) then raise Exception.Create('Erro ao criar a chave do CSP.'); quando executa esta rotina aparece erro signedKey := xmldsig.sign(dsigKey, $00000002); Vou tentar fazer um teste com o demo do componente. Eu tinha isso funcionando com o provedor antigo. Só atualizei os fontes para hoje, mudei o conversão , o schema... Vou seguindo, se alguém tiver alguma ideia é bem vindo. Vou postando os resultado aqui.. Obrigado

Mas dentro do pnfsConversao.pas tirou do Pronim e mudou para o Betha? Já habilitei o modo de homologação lá no Betha Mudei para o Betha no pnfsConversao Estou tentando, mas quando chegou nesses comandos: ACBrNFse1.Enviar ACBrNFSeNotaFiscais (Procedure NotaUtil.Assinar ) Erro: [unspecified error) Estou fazendo mais alguns testes por aqui... qualquer avanço eu posto aqui obrigado por enquanto