Ir para conteúdo
  • Cadastre-se
Seja bem-vindo
Regras e orientações da nossa comunidade Participe do Discord do ACBr

rodrigod6

Membros
 Perfil  Explorar Conteúdo

  • Total de ítens

    111

  • Registro em

  • Última visita

 Tipo de Conteúdo 

Posts postados por rodrigod6

    Erro "Não encontrei o atributo: versao" ao carregar XML

    em NFC-e - Nota Fiscal do Consumidor Eletrônica

    Postado

    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

    ACBrNFeNotasFiscais FNFe removido write, somente read

    em ACBrNFe

    Postado

    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?

    ACBrNFeNotasFiscais FNFe removido write, somente read

    em ACBrNFe

    Postado

    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,

     

    Resumo conversão para trunk 2 ACBrNFe, ACBrCTe e ACBrNFSe

    em Dúvidas Gerais sobre o ACBr

    Postado · Editado por EMBarbosa
    Promovido a FAQ

    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

     

    • Curtir 9
    • Obrigado 1

    Undeclared identifier: TpcnSchema

    em Dúvidas Gerais sobre o ACBr

    Postado

    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,

     

    pcnConversao.png

    Undeclared identifier: TpcnSchema

    em Dúvidas Gerais sobre o ACBr

    Postado

    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 ?

     

     

    The specified module could not be found. ACBr_DFeComum, ACBr_CTe, ACBr_NFe

    em NFC-e - Nota Fiscal do Consumidor Eletrônica

    Postado

    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!

    The specified module could not be found. ACBr_DFeComum, ACBr_CTe, ACBr_NFe

    em NFC-e - Nota Fiscal do Consumidor Eletrônica

    Postado

    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. :)

    The specified module could not be found. ACBr_DFeComum, ACBr_CTe, ACBr_NFe

    em NFC-e - Nota Fiscal do Consumidor Eletrônica

    Postado

    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?

    The specified module could not be found. ACBr_DFeComum, ACBr_CTe, ACBr_NFe

    em NFC-e - Nota Fiscal do Consumidor Eletrônica

    Postado

    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'):

    Citar

    Finalmente clique no botão “Instalar”, todos os pacotes serão compilados 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

    The specified module could not be found. ACBr_DFeComum, ACBr_CTe, ACBr_NFe

    em NFC-e - Nota Fiscal do Consumidor Eletrônica

    Postado

    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

     

    NFCe com ACBrNFeDANFCeFortes (Fortes Reports v3.24) OFF

    em NFC-e - Nota Fiscal do Consumidor Eletrônica

    Postado

    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,

     

    Novo provedor de Maravilha NFSe - (Betha e-Nota)

    em ACBrNFSe

    Postado

    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

     

    Novo provedor de Maravilha NFSe - (Betha e-Nota)

    em ACBrNFSe

    Postado · Editado por rodrigod6

    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

     

×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.