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. já marquei as opções SSL2.0, SSL3.0 e TLS1.0.
  2. Bom dia, marquei todas TLS e SSL.
  3. 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.
  4. 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
  5. Valeu Juliomar Marchetti, Eu não conhecia o EscPos, fazia via ACBrNFeDANFCeFortes, muito obrigado.
  6. 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.
  7. 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,
  8. 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
  9. 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
  10. 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
  11. 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.
  12. 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.
  13. 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.
  14. 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
  15. 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.
  16. 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.
  17. Obrigado Italo.
  18. Boa tarde a todos do forum, primeiramente gostaria de informa que não estou conseguindo seleciona o tópico nfe, só tem nfce, habilitado, por isso que coloquei em duvidas gerais. estou com um problema com um cliente e gostaria de saber de vocês se já passaram por isso e como tratar melhor o sistema para não mais acontecer, vamos ao problema. um cliente emitiu uma nfe dia 13/10/2016 para um determinado cliente dele, só que no banco de dados e no xml criado na pasta aponta a mesma nota para outro cliente e nem os valores batem, a questão é que o cliente do xml atual recebeu um xml e danfe que perante a Sefaz não estava autorizado para ele. na minha rotina só permito editar uma nota se o xml não estiver autorizado, ai levo a crer que ele tentou enviar a nota, e no momento não recebeu nenhum retorno, então tentou enviar novamente e deu duplicidade, como já era tarde ele foi embora e no outro dia editou a nota para outro cliente que era prioridade naquele momento, salvou e gerou o xml ai depois transmitiu ainda recebeu o mesmo retorno de duplicidade foi ai que ele decidiu consultar a chave pela nota e retornou o protocolo de autorizado, e o componente anexou o protocolo ao xml. minha dúvida é que o xml ele volta completo na consulta o só o protocolo, porque os dados em anexo dos produto e destinatário não fazem parte do xml original que esta na Sefaz. peço ajuda como posso resolver para notas futuras.
  19. Pessoa aproveitando este tópico não estou encontrando as tag no exemplo do acbrmdfe sobre o percursos.
  20. Obrigado André, não sei bem o que era porque eu conseguia fazer consulta manifesto, ai formatamos a maquina e pegou de cara. algo no windows estava broqueando.
  21. Boa tarde, alguém esta tendo dificuldade para pegar o status serviço Paraíba, fica só dando serviço inativo ou inoperante, ele só cria o arquivo de solicitação de status.
  22. Bom tarde ao fórum, gostaria de saber como faço para imprimir o comprovante de tef junto com a danfe da NFCe. gostaria de avisar que já fiz uma pesquisa no fórum antes de perguntar, só achei exemplos com ecf.
  23. Obrigado Italo, Fiz como você falou, mais fica ainda pegando as tag mesmo comentado, ai eu mudei setei para a tag do else mesmo assim ele fica com a arq, não conseguir entender o pq.
  24. segue anexo xml como exemplo fornecido pela tinus. Obrigado desde já. xmlEXEMPLO_RPSEF-comassinatura.xml
  25. Boa tarde, estou gerando um lote com um xml de serviço pela primeira vez e a forma que esta sendo gerado esta errada, segue o exemplo da forma que estou gerando e da forma certa abaixo. como esta gerando "errado" <?xml version="1.0" encoding="UTF-8"?> -<tin:Arg xmlns:tin="http://www.tinus.com.br"> -<tin:LoteRps Id="000020"> este é como tem que ser <?xml version="1.0"?> -<EnviarLoteRpsEnvio xmlns="http://www.tinus.com.br"> -<LoteRps Id="456">
×
×
  • 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.

The popup will be closed in 10 segundos...