Ir para conteúdo
  • Cadastre-se

murilo cosme da silva

Membros
  • Total de ítens

    196
  • Registro em

  • Última visita

Tudo que murilo cosme da silva postou

  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 12175
  2. Bom dia, acabei de baixar acbr trunk para instalar delphi seattle mais a instalação para no primeiro componente ACBE_synapse.dpk
  3. Deve ser inconsistência no site, mais deve voltar logo.
  4. Obrigado, valeu.
  5. apos a atualização da mdfe para 3.00 o erro fica dando este, alguém já pegou este problema.
  6. Bom dia, Estou com o manifesto de nfe dando erro na hora de pegar as ultimas notas emitidas contra o CNPJ, retornando a mensagem: premature end of data, não chega a nem criar o arquivo. Alguém já pegou este erro.
  7. estou com o exemplo aberto, e testei em outro pc, mais dando o mesmo retorno 12157, opção proxy no internet explorer está desmarcado.
  8. sim deixei desta forma, o interessante que para Recife PE, estou conseguindo emitir, só para João Pessoa que fica dando erro 12157.
  9. já marquei as opções SSL2.0, SSL3.0 e TLS1.0.
  10. Bom dia, marquei todas TLS e SSL.
  11. 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; Gegalmente o erro é este.
  12. 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
  13. Valeu Juliomar Marchetti, Eu não conhecia o EscPos, fazia via ACBrNFeDANFCeFortes, muito obrigado.
  14. Bom dia, Alguém sabe o porque só na Epson a impressão do danfe da nfce para no tamanho de um A4, já mexi em varias configurações mais não tive sucesso.
  15. 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,
  16. Bom dia, Como está na figura acima no exemplo ACBr não da erro e não da para identificar o que pode ser porque os parametros são os mesmo, o que muda é o xml. Seque em anexo os xml para dar uma olhada. 34UNICA-rps.xml 35UNICA-rps.xml
  17. Bom dia após tentar instalar o exe mais novo, começou a dar este erro. alguém sabe como resolver. O log esta pequeno pois estou tentando instalar por parte. log_Delphi_XE8.txt
  18. 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
  19. 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.
  20. 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.
  21. Bom dia, Decreto 048/2017 informa que Pernambuco já pode emitir NFCe, mais não estou conseguindo fazer os teste, qual o ambiente devo configurar: teSVCRS teNormal.
  22. 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. 666-env-lot.xml 666-rec.xml 261170000052108-ped-rec.xml 261170000052108-pro-rec.xml 20170120163119-ped-sta.xml 20170120163119-sta.xml
  23. 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.
  24. 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.
  25. Obrigado Italo.
×
×
  • 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.