Ir para conteúdo
  • Cadastre-se

Codigo identificador do CSC no QR-Code não cadastrado na sefaz


Ver Solução Respondido por Daniel InfoCotidiano,
  • Este tópico foi criado há 210 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

  • Membro Pro Verificado
Postado

Bom dia. Esse erro aparece quando emito pelo acbrnfe, porém fiz um teste com o acbrmonitorplus e foi normalmente, o mesmo CSC e IDtoken que funciona no acbrmonitorplus, não funciona quando tento gerar pelo componente. Acredito que seja alguma configuração, mas aparentemente está tudo certo.
 

  with ACBrNFe1.Configuracoes do
  begin
    // Certificado
    if Adtemp.FieldByName('tipoCertificado').AsString = 'A1' then
    begin
      Certificados.ArquivoPFX :=Adtemp.FieldByName('caminhoCertificado').AsString;
      Certificados.Senha := Adtemp.FieldByName('senhacertificado').AsString;
      Geral.SSLLib := TSSLLib.libOpenSSL;
    end
    else
    begin
      Certificados.NumeroSerie := Adtemp.FieldByName('certificado').AsString;
      Certificados.Senha := Adtemp.FieldByName('senhacertificado').AsString;
      Geral.SSLLib := libWinCrypt;
    end;
    // Ambiente
    if Adtemp.FieldByName('ambiente').AsString = 'PRODUÇÃO' then
      WebServices.Ambiente := taProducao
    else
      WebServices.Ambiente := taHomologacao;
    // Diretórios
    Arquivos.PathSalvar := Adtemp.FieldByName('caminhoXML').AsString;
    ACBrNFeDANFeRL1.PathPDF := Adtemp.FieldByName('caminhoPDF').AsString;
    WebServices.Visualizar:=False;
    WebServices.UF:='SP';
    Geral.ExibirErroSchema := True;
    ACBrNFeDANFeRL1.MostraPreview := False;
    ACBrNFeDANFeRL1.MostraStatus := False;
    ACBrNFeDANFeRL1.MostraSetup := False;
    ACBrNFeDANFeRL1.TipoDANFE := tiNFCe;

    Arquivos.PathEvento := Adtemp.FieldByName('caminhoEvento').AsString;
    Arquivos.PathSchemas := 'C:\ACBrMonitorPLUS\Schemas\NFe';//Adtemp.FieldByName('caminhoSchemas').AsString;
    Arquivos.Salvar := True;
    // CSC
    Geral.CSC := Adtemp.FieldByName('CodSegToken').AsString;
    Geral.IdCSC := Adtemp.FieldByName('IdToken').AsString;
    // Modelo NFC-e
    Geral.ModeloDF := moNFCe;
    Geral.VersaoDF:=ve400;
    Geral.VersaoQRCode:=veqr300;

    Geral.FormaEmissao := teNormal;
  end;

  • Consultores
  • Solution
Postado

bom dia @HERALDO
Seus fontes estão atualizados do SVN ?
Dê um revert nos fontes e rode o instalador marcando opção de apagar arquivos antigos.
Pois o monitor usa componentes, então se vc estiver atualizado é para funcionar conforme esperado.
Use o programa exemplo Delphi para testar ao invés do monitor, assim saberemos se esta funcionando.
Aguardo resposta dos seus testes

Consultor SAC ACBr

Daniel de Morais (Infocotidiano)
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.  Discord

  • Consultores
Postado

Obrigado por reportar.

Fechando. Para novas dúvidas, criar um novo tópico.

image.png

Alexandre de Paula
Gerente de Projetos
Ajude o Projeto ACBr crescer - Assine o Clube PRO                    

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.  ícone Discórdia Discord   

Projeto ACBr - A maior comunidade Open Source de Automação Comercial do Brasil

 

 

  • Este tópico foi criado há 210 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.
Visitante
Este tópico está agora fechado para novas respostas
×
×
  • 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.