Ir para conteúdo
  • Cadastre-se

murilo cosme da silva

Membros
  • Total de ítens

    196
  • Registro em

  • Última visita

Posts postados por murilo cosme da silva

  1. bom dia a todos.

    Estou com um problema para enviar um xml nfse para Paraíba, no caso deste cliente ele usa certificado A3, token,

    os que usam certificado arquivo está comunicando.

     

    e as configurações do componente estão:

    cryWinCrypt
    httpWinHttp
    libWinCrypt
    xsMsXml

    já fiz varias alterações mais só retorna erro 12175image.png.95a233d4e3683063077fa6050ded5abc.pngimage.png.20e1a83e88fb4f4d75a2118a5b19a5d3.png

     

  2. não retorna nada, simplesmente apresenta este retorno de erro

    exatamente nesta parte;

    procedure TDFeWebService.EnviarDados;
    Var
      Tentar, Tratado: Boolean;
    begin
      { Sobrescrever apenas se necessário }

      FPRetWS := '';
      FPRetornoWS := '';

      { Verifica se precisa converter o Envelope para UTF8 antes de ser enviado.
         Entretanto o Envelope pode já ter sido convertido antes, como por exemplo,
         para assinatura.
         Se o XML está assinado, não deve modificar o conteúdo }
      if not XmlEstaAssinado(FPEnvelopeSoap) then
        FPEnvelopeSoap := ConverteXMLtoUTF8(FPEnvelopeSoap);

      Tentar := True;
      while Tentar do
      begin
        Tentar := False;
        Tratado := False;

        if (FPConfiguracoes.Certificados.NumeroSerie <> '') then  // Tem Certificado carregado ?
          if FPConfiguracoes.Certificados.VerificarValidade then
             if (FPDFeOwner.SSL.CertDataVenc < Now) then
               raise EACBrDFeException.Create('Data de Validade do Certificado já expirou: '+
                                              FormatDateBr(FPDFeOwner.SSL.CertDataVenc));

        try
          FPRetornoWS := FPDFeOwner.SSL.Enviar(FPEnvelopeSoap, FPURL, FPSoapAction, FPMimeType);
        except
          if Assigned(FPDFeOwner.OnTransmitError) then
            FPDFeOwner.OnTransmitError( FPDFeOwner.SSL.HTTPResultCode,
                                        FPDFeOwner.SSL.InternalErrorCode,
                                        FPURL, FPEnvelopeSoap, FPSoapAction,
                                        Tentar, Tratado) ;

          if not (Tentar or Tratado) then
            raise;
        end;
      end;
    end;

     

    image.png.f5602bb1866fe24e08911b0f475ca3f6.png

    Gegalmente o erro é este.

    image.thumb.png.6fc8e7ce0d2f6903a7d1758682f356a3.pngimage.thumb.png.4a1fe5b2dc044c08d328712f572c6083.png

  3. Boa tarde a todos,

     

    estou tentado enviar um xml de nfse para o estado de João Pessoa, em anexo o xml gerado pelo acbr no metodo enviar, mais o retorno sempre é erro interno 12157,

    se alguém puder dar uma dica ai.

     

      ACBrNFSe1.NotasFiscais.Clear;

      for i := 1 to dm.cdsListaNFSE.RecordCount do
        begin
          CarregaDadosRPS(dm.cdsListaNFSESEQ.AsInteger);
          MontaMovServico(dm.cdsListaNFSESEQ.AsInteger);

          vNumRPS := dm.cdsListaNFSERPS.AsString;
          AlimentaComponente(vNumRPS);

        end;

      ACBrNFSe1.Enviar(vNumRPS);

    26-env-lot.xml

  4. Bom dia,

    Seguindo os passos do exemplo passei a alimentar o componente e depois enviar, desta forma deu certo, antes eu estava gerando xml e depois dando loadfromfile, a dúvida é a função esta com erro ou tem algo que tem que se fazer diferente para carregar o xml.

    Outra questão seria como atualizar o número da nota que gerol o rps, pois minha danfe sai em numero de nota, 

  5. Obrigado Daniel pela atenção, o mais interessante é que no exemplo ela passa dessa função.

    aqui esta o trecho do código antes de dá o erro.

     

      ACBrNFSe1.NotasFiscais.Clear;

         dm.cdsListaNFSE.First;
         while not dm.cdsListaNFSE.Eof do
           begin
             sNumPRS :=  dm.cdsListaNFSERPS.AsString
                       + dm.cdsListaNFSESERIE.AsString;

             sCaminho := DiretorioNFSe.nfse +'Recibos\' + sNumPRS + '-rps.xml';

             if FileExists(sCaminho)
                then
                BEGIN
                 ACBrNFSe1.NotasFiscais.LoadFromFile(sCaminho);

                END;

             dm.cdsListaNFSE.Next;
           end;

       end;

      if ACBrNFSe1.NotasFiscais.Count > 0 then
        begin
          sSqlCarga := nil;
          sSqlCarga := TSQLQuery.Create(sSqlCarga);
          sSqlCarga.SQLConnection := dm.conn;

          sSqlCarga.Close;
          sSqlCarga.SQL.Clear;
          sSqlCarga.SQL.Add('update controle_nfe_seq a set a.nfse_lote = a.nfse_lote + 1');
          sSqlCarga.ExecSQL;
          sSqlCarga.Close;
          sSqlCarga.SQL.Clear;
          sSqlCarga.SQL.Add('select * from CONTROLE_NFE_SEQ');
          sSqlCarga.Open;

          iLote := sSqlCarga.FieldByName('NFSE_LOTE').AsInteger;

          for i := 0 to ACBrNFSe1.NotasFiscais.Count - 1 do
            begin
              TRY
              sSqlCarga.Close;
              sSqlCarga.SQL.Clear;
              sSqlCarga.SQL.Add('insert into lote_nfse(id_Lote, data, rps)');
              sSqlCarga.SQL.Add(' values(:idLote ,:pdata, :rps)');
              sSqlCarga.ParamByName('idLote').AsInteger := iLote;
              sSqlCarga.ParamByName('pdata').AsDate := Now;
              sSqlCarga.ParamByName('rps').AsString := ACBrNFSe1.NotasFiscais.Items.NFSe.IdentificacaoRps.Numero;
              sSqlCarga.ExecSQL;

              EXCEPT
               sSqlCarga.Cancel;
              END;

              //grava na nfse
              sSqlCarga.Close;
              sSqlCarga.SQL.Clear;
              sSqlCarga.SQL.Add('UPDATE NFSE SET LOTE = :LOTE');
              sSqlCarga.SQL.Add(' WHERE RPS = :RPS');
              sSqlCarga.ParamByName('LOTE').AsString := IntToStr(iLote);
              sSqlCarga.ParamByName('rps').AsString := ACBrNFSe1.NotasFiscais.Items.NFSe.IdentificacaoRps.Numero;
              sSqlCarga.ExecSQL;


            end;


          ACBrNFSe1.Enviar(iLote); *************erro aqui

  6. Boa tarde,

     

    exatamente neste ponto do código ele retorna este erro, e não estou identificado o que pode ser, observei que no exemplo acbr após alimentar o componente o próprio enviar gera o lote, mais aqui não gera e da esse erro, alguém tem alguma sugestão que possa me falar.

    nfse.jpg

  7. 6 minutos atrás, BigWings disse:

    Bom dia,

    Sugiro que leia o manual de orientação, existe um capítulo sobre contingência que explica sobre as SVC.

    https://www.nfe.fazenda.gov.br/portal/listaConteudo.aspx?tipoConteudo=33ol5hhSYZk=

     

    NFCe aceita apenas tipo de emissão Normal, EPEC e Contingência Offline.

    Bom dia,

    Valeu pela comunicação, é que no site sefaz pe mostra endereco: https://nfcehomologacao.svrs.rs.gov.br/ws/NfeAutorizacao/NFeAutorizacao.asmx

    e no acbr fica como :https://nfehomolog.sefaz.pe.gov.br/nfe-service/services/NfeAutorizacao?wsdl

     

    mais nenhum esta aceitando o envio. 

  8. Boa tarde a todos do fórum,

     

    venho solicitar uma ajuda sobre um erro que não estou conseguindo tratar na minha aplicação,

    as vez que eu tento enviar uma nota ela retorna o erro na figura em anexo, isso dentro do método enviar,

    minha observação e que ela cria os arquivos de lote, retorno e tudo só que o ultimo arquivo é status 105 lote em processamento,

    só que não consigo pega esse status para atualizar o xml porque o componente da erro dentro da função enviar como escrevi no inicio do tópico.

    Após o erro essa linha citada a baixo, vem com zero no retorno.

     MemoDados.Lines.Add('cStat: ' + IntToStr(ACBrNFe1.WebServices.Retorno.cStat));

     

    em resumo em minha concepção acho que o retorno 105 esta dando falta alguma tag que o acbr acha preciso, porque no 104 ela passa normalmente. 


    erronfe.jpg

    666-env-lot.xml

    666-rec.xml

    261170000052108-ped-rec.xml

    261170000052108-pro-rec.xml

    20170120163119-ped-sta.xml

    20170120163119-sta.xml

  9. Bom dia a todos do fórum, estou com uma dúvida sobre a rotina de enviar lote, esta retornando em um cliente sem acesso ao webservice, mais colocando o exemplo acbrdemo ele faz os procedimento normalmente, não estou conseguindo identificar o que esta bloqueando no meu exe, a rotina de envio esta praticamente igual como no exemplo acbr, e já vem funcionando em outros clientes.

    não é a primeira vez que me deparo com esse problema, o pior que a solução que estou fazendo é mandado format a maquina, mais nesse caso sempre gera problemas com o cliente, alguem tem alguma ideia o que pode esta impendido o envio do lote.

  10. Obrigado osmarbentojr,

    eu também gravo o protocolo, na verdade gravo todo ele que retorna, o que eu vejo é que o cliente verificou o erro de duplicidade e por algum motivo desistiu da nota no dia 13 e só no outro dia é que ele voltou a editar a nota e alterou os dados da nota no banco e depois enviou o xml, que voltou a dá duplicidade de nfe, ai foi neste momento que ele tentou consultar a nota pela chave e retorno o protocolo de autorizado que anexou ao xml que contia a mesma chave mais não era o que estava na sefaz.

    o que percebo é que sempre que gero a nota apos tratar algum erro de dados, a chave continua sempre a mesma 

    e essa é minha duvida só dígitos finais, seria interessante sempre que eu gerar ele mudar os últimos dígitos para da erro de chave de acesso.

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