Acbrnfe_Demo - Parâmetro Incorreto

[Marildo Cesar]

Em 29/03/2017 at 16:19, Flavio Oliveira Santos disse:

Boa tarde!
Como eu faço essa alteração.
Sei que vc postou passou o caminho das pedras, mas ainda estou tropeçando. Estou com o mesmo problema.

 

"do arquivo ACBrDFECapcom, aqui está na linha 242, ... "

[ricardolopes]

Bom dia.

Segue o arquivo alterado (..\ACBr\Fontes\ACBrDFe)

Vale lembrar que o que fiz foi só para resolver um problema local, aqui também acontecia só com um único certificado o restante funcionava normalmente, seria interessante alguém poder avaliar o quão importante e necessária é essa informação, no meu caso se referenciava a obter o CNPJ, isso apesar de não conseguir fazer com esse certificado Não invalidou o documento e fez a transmissão normalmente.

Grande abraço t+

ACBrDFeCapicom.pas

[Daniel Simoes]

Notei que sua Unit está um pouco desatualizada..

Mas efetuando uma comparação notei que a sua sugestão, seria implementar um bloco Try/Except na chamada de "GetCNPJFromExtensions"... Seria isso ?

      try
         if CNPJ = '' then
            CNPJ := GetCNPJFromExtensions(FCertificado);
      except

      end;

 

[Daniel Simoes]

Sabendo exatamente onde ocorre o problema... fica muito mais simples de corrigir...

Já no SVN...

Citar

-- ACBrDFeCapicom --
[-] Correção no método "GetCNPJFromExtensions", onde ocorria o erro:
    "Parâmetro Incorreto"  (por: DSA)

 

[Damires]

Daniel Simões,

Estou recendo o erro de "Parâmetro incorreto" na função GetCNPJFromExtensions somente com um certificado A1 de um cliente, com outros isso não acontece.

O erro ocorre na última linha deste código:

function TDFeCapicom.GetCNPJFromExtensions: String;
var
  i, j, p: Integer;
  AExtension: IExtension;
  Propriedades, Propriedade: String;
  Lista: TStringList;
begin
  Result := '';
  i := 1;

  while (Result = '') and (i <= FCertificado.Extensions.Count) do
  begin
    AExtension := IInterface(FCertificado.Extensions.Item) as IExtension;

Posso enviar o certificado para seu email para ser analizado?
 

[Daniel Simoes]

Sim, você pode enviar por mensagem privada aqui mesmo no fórum... (Basta clicar no nome do usuário)

Eu apliquei uma correção nessa Unit recentemente... verifique se você realmente está com a última versão, e que o DCU/BPL referente ao package ACBrDFeComum está atualizado... Na dúvida, rode o ACBrInstall_trunk2.exe novamente

[Damires]

A recompilação do ACBrInstall_trunk2 resolveu, grata!

[felipelavor]

Estou com esse mesmo problema. Já foi resolvido na ACBr? Também coloquei o código abaixo no ACBrDFECapcom e funcionou, mas não parei para identificar que impactos isto pode trazer para o XML ou para o processo.

try
         if CNPJ = '' then
            CNPJ := GetCNPJFromExtensions(FCertificado);
      except

      end;

[Juliomar Marchetti]

14 minutos atrás, felipelavor disse:

Estou com esse mesmo problema. Já foi resolvido na ACBr? Também coloquei o código abaixo no ACBrDFECapcom e funcionou, mas não parei para identificar que impactos isto pode trazer para o XML ou para o processo.

try
         if CNPJ = '' then
            CNPJ := GetCNPJFromExtensions(FCertificado);
      except

      end;

ai está a resposta

Em 2017-4-7 at 23:11, Damires disse:

A recompilação do ACBrInstall_trunk2 resolveu, grata!

 

[FernandoDutra]

Estou com o mesmo problema, vou fazer o teste com a Unit e aviso se der certo.