Ir para conteúdo
  • Cadastre-se

J Pereira

Membros Pro
  • Total de ítens

    160
  • Registro em

  • Última visita

Posts postados por J Pereira

  1. Boa tarde amigos

    De domingo zero horas (15/02/16) para cá tenho recebido diversas reclamações de clientes com o erro REQUISIÇÃO NÃO ENVIADA ERRO 12057 OU 12157

    Depois de muito pesquisar, resolvi alguns problemas desmarcando a opção USAR REVOGAÇÃO DE CERTIFICADOS. (Internet Explorer/Opções de Internet/Avançadas)

    Mantive marcado SSL 3.0 e TLS 1.0

    Mantive desmarcado SSL 2.0 e TLS 1.1 e 1.2

    Mas ainda tenho alguns clientes, tanto nf-e quanto nfc-e que continua o erro de requisição nao enviada.

    Alguns clientes aconteceu domingo, outros segunda e outros hj, terça-feira. Simplesmente de um dia para outro parou de funcionar.

    Vcs sabem alguma coisa? O que eu poderia fazer mais?

  2. Obrigado Agnaldo pela ajuda

    No cliente instalado até semana passada (janeiro) emitindo normalmente, hoje ocorreu o erro, fiz meu testes e comigo tambem aconteceu. Realmente nao estou entendendo.

    Sem cpf/cnpj emite ok, mas com  dá erro

    Até atualizei os fontes, recompilei, vi que os componentes nfe, escpos e danfecefortes estavam diferentes, reconfigurei e continua na mesma.

    O interessantes é isto, debugando,  quando assina pela primeira vez, o cnpj tá lá, mas quando assina novamente, dá como nulo, gerando o xml com tag emit vazios.

    continuo testando.

    Se o seu deu certo, então nao é componente, é sempre assim, o erro está entre a cadeira e o computador. kkkkkkkk

    Grato

  3. Bom dia.

    Preciso da ajuda dos amigos com NFC-e identificando destinatário.

    Quando informo CPF ou CNPJ, ocorre erro de assinatura, dizendo que o CNPJ do certificado é diferente do cnpj do xml.

    Debugando, verifiquei que ao assinar, ele recebe o cnpj correto, mas na rotina de assinar, ele manda gerarXML, que novamente assina, daí já recebe pela segunda vez sem este cnpj no xml.

    Algué sabe dizer alguma coisa? Se, o destinatário está emitindo normalmente. Uso o trunk-2.

    procedure NotaFiscal.Assinar;
    var
      XMLStr: String;
      XMLUTF8: AnsiString;
      Leitor: TLeitor;
      CNPJEmitente, CNPJCertificado: String;
    begin
      // VErificando se pode assinar esse XML (O XML tem o mesmo CNPJ do Certificado ??)
      CNPJEmitente    := OnlyNumber(NFe.Emit.CNPJCPF);
      CNPJCertificado := OnlyNumber(TACBrNFe(TNotasFiscais(Collection).ACBrNFe).SSL.CertCNPJ);

      // verificar somente os 8 primeiros digitos, para evitar problemas quando
      // a filial estiver utilizando o certificado da matriz
      if (CNPJCertificado <> '') and (Copy(CNPJEmitente, 1, 8) <> Copy(CNPJCertificado, 1, 8)) then
        raise EACBrNFeException.Create('Erro ao Assinar. O XML informado possui CNPJ diferente do Certificado Digital' + #13+
                                       'CNPJ NOTA       ='+ Copy(CNPJEmitente, 1, 8) +#13+
                                       'CNPJ CERTIFICADO='+Copy(CNPJCertificado, 1, 8) );

      // Gera novamente, para processar propriedades que podem ter sido modificadas
      XMLStr := GerarXML;

      // XML já deve estar em UTF8, para poder ser assinado //
      XMLUTF8 := ConverteXMLtoUTF8(XMLStr);

      with TACBrNFe(TNotasFiscais(Collection).ACBrNFe) do
      begin
        FXMLAssinado := SSL.Assinar(String(XMLUTF8), 'NFe', 'infNFe');
        FXMLOriginal := FXMLAssinado;

        Leitor := TLeitor.Create;
        try
          leitor.Grupo := FXMLAssinado;
          NFe.signature.URI := Leitor.rAtributo('Reference URI=');
          NFe.signature.DigestValue := Leitor.rCampo(tcStr, 'DigestValue');
          NFe.signature.SignatureValue := Leitor.rCampo(tcStr, 'SignatureValue');
          NFe.signature.X509Certificate := Leitor.rCampo(tcStr, 'X509Certificate');
        finally
          Leitor.Free;
        end;

        // Se for NFCe, deve gera o QR-Code para adicionar no XML após ter a
        // assinatura, e antes de ser salvo.
        // Homologação: 01/10/2015
        // Produção: 03/11/2015

        if (NFe.Ide.modelo = 65) and (Configuracoes.Geral.IncluirQRCodeXMLNFCe) then
        begin
          with TACBrNFe(TNotasFiscais(Collection).ACBrNFe) do
          begin
            NFe.infNFeSupl.qrCode := GetURLQRCode(NFe.Ide.cUF, NFe.Ide.tpAmb,
                                      onlyNumber(NFe.infNFe.ID), IfThen(NFe.Dest.idEstrangeiro <> '', NFe.Dest.idEstrangeiro, NFe.Dest.CNPJCPF),
                                      NFe.Ide.dEmi, NFe.Total.ICMSTot.vNF,
                                      NFe.Total.ICMSTot.vICMS, NFe.signature.DigestValue);
            GerarXML;
          end;
        end;

        if Configuracoes.Arquivos.Salvar and
           (not Configuracoes.Arquivos.SalvarApenasNFeProcessadas) then
        begin
          if NaoEstaVazio(NomeArq) then
            Gravar(NomeArq, FXMLAssinado)
          else
            Gravar(CalcularNomeArquivoCompleto(), FXMLAssinado);
        end;
      end;
    end;

    NFCE.XML

    rotina destinatario.txt

    rotina emitente.txt

  4. Boa noite:

    A quem interessar, disponho a rotina abaixo para aqueles que desejarem incorporar a tabela cest disponibilizada por  Carlos Cantu da Firebase, postado no blog do Regys Silveira (lembrando pelo Carlos Cantú que não é uma tabela oficial).

    Não sei se é a melhor forma de fazer, mas como tenho clientes executando preciso atualizar de forma automatiza, se o arquivo txt for encontrado, ele cria e inclui os registros no banco de dados.

    Não consegui executar através de comandos script, pois uso o Delphi 7, então fiz "na unha" mesmo.

      if fileexists(frm_principal.cPathWin+'\dados\cest.sql') then
      begin
        try
          try
             DmsisStock.IbqAux.sql.clear;
             DmsisStock.IbqAux.sql.Add('CREATE TABLE CEST (CEST VARCHAR(7) NOT NULL,NCM VARCHAR(8),DESCRICAO VARCHAR(512) ) ');
             DmsisStock.IbqAux.ExecSql;
             DmsisStock.IBTransactionSisStock.CommitRetaining;
          except
          end;
          try
             DmsisStock.IbqAux.sql.clear;
             DmsisStock.IbqAux.sql.Add('CREATE INDEX IDXCEST ON CEST (NCM)');
             DmsisStock.IbqAux.ExecSql;
             DmsisStock.IBTransactionSisStock.CommitRetaining;
          except
          end;
          AssignFile(arq,frm_principal.cPathWin+'\dados\cest.sql' );
          Reset(arq);
          Linha  := '';
          Linha2 := '';
          while (not eof(arq)) do
           begin
              readln(arq, linha);
              Linha :=  StringReplace(Linha, 'TAB_CEST', 'CEST', [rfReplaceAll, rfIgnoreCase]);
              if copy(linha,1,6) = 'INSERT' then
              begin
                 readln(arq, linha2);
                 Linha2 :=  StringReplace(Linha2, ';', '', [rfReplaceAll, rfIgnoreCase]);
                 Linha  := Linha + ' '+ Linha2;
                 try
                   DmsisStock.IbqAux.sql.clear;
                   DmsisStock.IbqAux.sql.Add(Linha);
                   DmsisStock.IbqAux.ExecSql;
                 except
                 end;
              end;
           end;
           CloseFile(arq);
           DeleteFile(frm_principal.cPathWin+'\dados\cest.sql');
        except
        end;
      end;
     

    CEST.SQL

  5. Boa tarde a todos.

    Desejo um 2016 excelente para a equipe do AcBr e assinantes deste forum.

    Me ajudem numa coisa:

    Para emitir nfc-e Off Line li que precisa ser impresso em Via do Consumidor a informação de EMITIDA EM OFF LINE, e imprimir em duas vias.

    1-É isso mesmo que entendi?

    2-Estou usando trunk2 e no ESCPOS só encontrei a propriedade viaconsumidor=true ou false. Como informar este texto? Uso informações adicionais?

    2.1-Como informar CONSULTA NO SEFAZ DISPONIVEL DENTRO DE 24HS?

    3-É obrigatória a impressão da via do estabelecimento?

    Grato pela ajuda.

  6. Boa tarde amigos.

    Eu de novo por aqui, tenham paciencia comigo kkkk

    Estou conseguindo compilar trunk2 com Seattle, depois de uma cansativa migração do Delphi 7 com trunk1, mas com a ajuda dos amigos estou evoluindo.

    Não consigo a impressão do logo

        ACBrNFe1.DANFE := ACBrNFeDANFeESCPOS1;
        ACBrNFe1.DANFE.Name := 'ACBrNFeDANFeESCPOS1';
        ACBrNFe1.DANFE.Logo       := frm_nfe2.edtLogoMarca.Text;
        ACBrNFeDANFeESCPOS1.Logo  := frm_nfe2.edtLogoMarca.Text;

    ACBrNFeDANFeESCPOS1.PosPrinter := ACBrPosPrinter1

    Alguém tem uma dica:

  7. Boa noite a todos.

    Atualizei meu aplicativo para o truck2 com delphi 10 seattle.

    Ao compilar, ocorre o seguintes erro:

    [dcc32 Error] OpenSSLExt.pas(69): E1030 Invalid compiler directive: 'MODE'
    [dcc32 Error] OpenSSLExt.pas(70): E1030 Invalid compiler directive: 'Packrecords'
    [dcc32 Fatal Error] OpenSSLExt.pas(82): F2613 Unit 'DynLibs' not found.

    Já configurei conforme instrucao acima configuracoes.gerais.ssllib := LibCapicom

    coloquei o acbr.inc (pasta AcBr\Fontes\ACBrComum)  como:


    {$DEFINE DFE_SEM_OPENSSL}
    {.$DEFINE DFE_SEM_CAPICOM}

    Recompilei com o installtrunk2 e nada de sucesso.

    O que mais preciso fazer?

    Grato pela ajuda.

     

  8. Boa tarde

    Estou tendo problemas pra compilar meu aplicativo no Delphi 10 Seattle em windows 10. Acontece o mesmo dos amigos acima:

    [dcc32 Error] OpenSSLExt.pas(69): E1030 Invalid compiler directive: 'MODE'
    [dcc32 Error] OpenSSLExt.pas(70): E1030 Invalid compiler directive: 'Packrecords'
    [dcc32 Fatal Error] OpenSSLExt.pas(82): F2613 Unit 'DynLibs' not found.

    Eu usava trunck1 com delphi 7. desinstalei tudo, removi o acbr.

    nao encontrei esse dynlibs em nenhum lugar das pastas acbr.

     

    Como vcs resolveram isto?

    Grato pela ajuda.

  9. Gratos pelas dicas.

    Instalei Seattle e trunck2 sem problemas.

    Ao compilar meu aplicativo, ocorrer o seguinte erro:

    synautil.pas(609) E2003 Undeclared indentifier: 'TimeSeparator'

    synautil.pas(2062) E2003 Undeclared indentifier: 'ShortMonthNames''

    Este fonte está na pasta de terceiros\synalist, e pelo que entendi, estas variaveis não são encontradas no system.SysUtil, mas na verdade estão lá.

    Estou tendo problemas tb com o Indy10 do Seattle.

    Grato pela ajuda.

     

  10. Boa tarde amigos.

    Tenho um sistema em Delphi 7 com firebird 2.5 usando os componentes do Acbr.

    Declaro aqui a minha total satisfação com o AcBr e o atendimento desta equipe de excelencia.

    Vou migrar para um Delphi mais atualizado. O que os amigos sugerem para uso com o AcBr: XE3, XE8 ou o 10 que saiu agora junto com o Windows10?

    Já que vou ralar nesta transição, prefiro já fazer fazer de uma vez só.

    Grato pelas indicações e sugestões.

    Abcs

     

    • Curtir 1
  11. Eu de novo... rsrsrsrsrs, desculpe ser chato, é falta de conhecimento mesmo...

    Verificando o Util, vi que consta no historico das versoes até 2012, mas pelo que pesquisei a url está atualizada. É isso mesmo? realmente preciso saber se são as urls corretas no trunk1. Grato pela paciencia...

    Historico:

    {*******************************************************************************
    |* Historico
    |*
    |* 16/12/2008: Wemerson Souto
    |*  - Doação do componente para o Projeto ACBr
    |* 10/02/2009: André Ferreira de Moraes
    |*  - Adicionado URL de todos os estados
    |* 18/02/2009: André Ferreira de Moraes
    |*  - Criado Assinatura baseado em código passado por Daniel Simões
    |*  - Criado Validação do XML da NFE baseado em código passado por Daniel Simões
    |* 24/09/2012: Italo Jurisato Junior
    |*  - Alterações para funcionamento com NFC-e
    *******************************************************************************}

    Urls:

    class function NotaUtil.GetURLRS(AAmbiente: Integer;
      ALayOut: TLayOut; AModeloDF: TpcnModeloDF = moNFe; AVersaoDF: TpcnVersaoDF = ve200): WideString;
    begin
      if AModeloDF = moNFe then
       begin
        case ALayOut of
          LayNfeAutorizacao    : Result := DFeUtil.SeSenao(AAmbiente=1, 'https://nfe.sefazrs.rs.gov.br/ws/NfeAutorizacao/NFeAutorizacao.asmx',            'https://nfe-homologacao.sefazrs.rs.gov.br/ws/NfeAutorizacao/NFeAutorizacao.asmx');
          LayNfeRetAutorizacao : Result := DFeUtil.SeSenao(AAmbiente=1, 'https://nfe.sefazrs.rs.gov.br/ws/NfeRetAutorizacao/NfeRetAutorizacao.asmx',      'https://nfe-homologacao.sefazrs.rs.gov.br/ws/NfeRetAutorizacao/NfeRetAutorizacao.asmx');
          LayNfeInutilizacao   : Result := DFeUtil.SeSenao(AAmbiente=1, 'https://nfe.sefazrs.rs.gov.br/ws/nfeinutilizacao/nfeinutilizacao2.asmx',         'https://nfe-homologacao.sefazrs.rs.gov.br/ws/nfeinutilizacao/nfeinutilizacao2.asmx');
          LayNfeConsulta       : Result := DFeUtil.SeSenao(AAmbiente=1, 'https://nfe.sefazrs.rs.gov.br/ws/NfeConsulta/NfeConsulta2.asmx',                 'https://nfe-homologacao.sefazrs.rs.gov.br/ws/NfeConsulta/NfeConsulta2.asmx');
          LayNfeStatusServico  : Result := DFeUtil.SeSenao(AAmbiente=1, 'https://nfe.sefazrs.rs.gov.br/ws/NfeStatusServico/NfeStatusServico2.asmx',       'https://nfe-homologacao.sefazrs.rs.gov.br/ws/NfeStatusServico/NfeStatusServico2.asmx');
          LayNFeCCe,
          LayNFeEvento         : Result := DFeUtil.SeSenao(AAmbiente=1, 'https://nfe.sefazrs.rs.gov.br/ws/recepcaoevento/recepcaoevento.asmx',            'https://nfe-homologacao.sefazrs.rs.gov.br/ws/recepcaoevento/recepcaoevento.asmx');
    //      LayNfeConsNFeDest    : Result := DFeUtil.SeSenao(AAmbiente=1, 'https://nfe.sefazrs.rs.gov.br/ws/nfeConsultaDest/nfeConsultaDest.asmx',          'https://nfe-homologacao.sefazrs.rs.gov.br/ws/nfeConsultaDest/nfeConsultaDest.asmx');
    //      LayNfeDownloadNFe    : Result := DFeUtil.SeSenao(AAmbiente=1, 'https://nfe.sefazrs.rs.gov.br/ws/nfeDownloadNF/nfeDownloadNF.asmx',              'https://nfe-homologacao.sefazrs.rs.gov.br/ws/nfeDownloadNF/nfeDownloadNF.asmx');
          LayNfeCadastro       : Result := DFeUtil.SeSenao(AAmbiente=1, 'https://cad.sefazrs.rs.gov.br/ws/cadconsultacadastro/cadconsultacadastro2.asmx', 'https://cad.sefazrs.rs.gov.br/ws/cadconsultacadastro/cadconsultacadastro2.asmx');
        end;
       end
      else
       begin
        case ALayOut of
          LayNfeAutorizacao    : Result := DFeUtil.SeSenao(AAmbiente=1, 'https://nfce.sefazrs.rs.gov.br/ws/NfeAutorizacao/NFeAutorizacao.asmx',       'https://nfce-homologacao.sefazrs.rs.gov.br/ws/NfeAutorizacao/NFeAutorizacao.asmx');
          LayNfeRetAutorizacao : Result := DFeUtil.SeSenao(AAmbiente=1, 'https://nfce.sefazrs.rs.gov.br/ws/NfeRetAutorizacao/NfeRetAutorizacao.asmx', 'https://nfce-homologacao.sefazrs.rs.gov.br/ws/NfeRetAutorizacao/NfeRetAutorizacao.asmx');
          LayNfeInutilizacao   : Result := DFeUtil.SeSenao(AAmbiente=1, 'https://nfce.sefazrs.rs.gov.br/ws/nfeinutilizacao/nfeinutilizacao2.asmx',    'https://nfce-homologacao.sefazrs.rs.gov.br/ws/nfeinutilizacao/nfeinutilizacao2.asmx');
          LayNfeConsulta       : Result := DFeUtil.SeSenao(AAmbiente=1, 'https://nfce.sefazrs.rs.gov.br/ws/NfeConsulta/NfeConsulta2.asmx',            'https://nfce-homologacao.sefazrs.rs.gov.br/ws/NfeConsulta/NfeConsulta2.asmx');
          LayNfeStatusServico  : Result := DFeUtil.SeSenao(AAmbiente=1, 'https://nfce.sefazrs.rs.gov.br/ws/NfeStatusServico/NfeStatusServico2.asmx',  'https://nfce-homologacao.sefazrs.rs.gov.br/ws/NfeStatusServico/NfeStatusServico2.asmx');
          LayNFeCCe,
          LayNFeEvento         : Result := DFeUtil.SeSenao(AAmbiente=1, 'https://nfce.sefazrs.rs.gov.br/ws/recepcaoevento/recepcaoevento.asmx',       'https://nfce-homologacao.sefazrs.rs.gov.br/ws/recepcaoevento/recepcaoevento.asmx');
          LayAdministrarCSCNFCe: Result := DFeUtil.SeSenao(AAmbiente=1, '', '');
        end;
       end;
    end;

     

×
×
  • 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.