darlananogueira

Prezados, enviei o arquivo errado. Segue o correto, da solução criada baseado na sugestão do Lesf. Darlana pcnRetDistDFeInt.pas

Carissimos, eu usei a solução do Lesf, post Alguns testes realizados, funcionando perfeito. Segue anexo. Darlana Nogueira pcnDistDFeInt.pas

Travache, fiz atualização do componente... ontem... tenta fazer atualização - da build all... e faz o testes que Italo sugeriu... Ambiente produção gcultimoNSU := '1'; gcAtualNSU := ''; ACBrNFe1.DistribuicaoDFe(31, CNPJ, gcUltimoNSU, gcAtualNSU); Provavelmente dará certo. Atenciosamente, Darlana Nogueira

Italo, excelente... em modo de produção retornou... agora vou testar e organizar as coisas por aqui... vou postar os arquivos para você, caso queira verificar ou fazer testes... Valeu. 20150115162514-con-dist-dfe.xml 20150115162514-con-dist-dfe-soap.xml 20150115162516-dist-dfe.xml 20150115162516-dist-dfe-soap.xml

Italo, fiz o seguinte agora... gcultimoNSU := '1'; gcAtualNSU := ''; ACBrNFe1.DistribuicaoDFe(31, CNPJ, gcUltimoNSU, gcAtualNSU); E nada, continua não retornando nada. Alguma outra possibilidade? Grata pelo dedicação...

Italo, o codigo fonte esta assim... e mesmo com '0' no 3º parametro e '' (vazio) no ultimo, continuo recebendo Nenhum documento encontrado try CNPJ := DbCNPJCPFEmpresa.Text; lcUfAutor := DbEstaEmpresa.Text; gcultimoNSU := '0'; gcAtualNSU := ''; indNFe := '0'; IndEmi := '0'; ACBrNFe1.DistribuicaoDFe(BuscarCodigoCidadeUF('',lcUFAutor),CNPJ, gcUltimoNSU, gcAtualNSU); Atenciosamente, Darlana 20150114132428-dist-dfe-soap.xml 20150114132428-dist-dfe.xml 20150114132426-con-dist-dfe-soap.xml 20150114132426-con-dist-dfe.xml

Prezados, estou emitindo NF-e usando o meu CNPJ também para destinatário (CNPJ Emitente = CNPJ Destinatario), na intenção de testar o DF-e. Conforme XML anexo. Porem sem sucesso, continuo recebendo Nenhum documento localizado no DF-e. <cStat>137</cStat> <xMotivo>Nenhum documento localizado</xMotivo> <dhResp>2015-01-14T13:09:19</dhResp> <ultNSU>000000000000000</ultNSU> <maxNSU>000000000000000</maxNSU> Logo, como vi que muitos estão na mesma situação, então gostaria de convidá-los à uma parceria, quem puder emitir NF-e para o meu cnpj em modo de homologação, e querendo que eu emita para vocês é so deixar os dados basicos. Meus Dados: CNPJ: 05229436000170 IE: 0010466600062 UF: MG Ambiente: Homologação Obrigado, Darlana Nogueira 31150105229436000170550020002600181258427428-nfe.xml

Prezados, estou emitindo NF-e usando o meu CNPJ também para destinatário (CNPJ Emitente = CNPJ Destinatario), na intenção de testar o DF-e. Conforme XML anexo. Porem sem sucesso, continuo recebendo Nenhum documento localizado no DF-e. <cStat>137</cStat> <xMotivo>Nenhum documento localizado</xMotivo> <dhResp>2015-01-14T13:09:19</dhResp> <ultNSU>000000000000000</ultNSU> <maxNSU>000000000000000</maxNSU> Logo, como vi que muitos estão na mesma situação, então gostaria de convidá-los à uma parceria, quem puder emitir NF-e para o meu cnpj em modo de homologação, e querendo que eu emita para vocês é so deixar os dados basicos. Meus Dados: CNPJ: 05229436000170 IE: 0010466600062 UF: MG Ambiente: Homologação Obrigado, Darlana Nogueira

Andre, como dito ainda não consegui identificar o problema, mas em ACBrNFe, ao enviar uma carta de correção em modo de homologação, quando chega no codigo abaixo, o valor de CartaCorrecao.CCe.Evento.InfEvento.tpAmb chega com o valor taProdução. Porem, ao executar o procedimento DefinirDadosMsg, retorma o valor retorna para Homologação. Testei também em Produção, e aparetenmente sem problemas, então creio que podemos desconsiderar. Teste o envio da carta de correção, em Homologação, funcionou perfeitamente. Em produção não tenho como faze-lo. function TACBrNFe.EnviarCartaCorrecao(idLote: Integer): Boolean; var i : integer; begin EventoNFe.Evento.Clear; for i:= 0 to CartaCorrecao.CCe.Evento.Count-1 do begin with EventoNFe.Evento.Add do begin infEvento.id := CartaCorrecao.CCe.Evento.InfEvento.id; infEvento.cOrgao := CartaCorrecao.CCe.Evento.InfEvento.cOrgao; infEvento.tpAmb := CartaCorrecao.CCe.Evento.InfEvento.tpAmb; procedure TNFeEnvEvento.DefinirDadosMsg; var EventoNFe: TEventoNFe; I, F: Integer; Lote, Evento, Eventos, EventosAssinados: String; begin EventoNFe := TEventoNFe.Create; try EventoNFe.idLote := FidLote; for I := 0 to TNFeEnvEvento(Self).FEvento.Evento.Count-1 do begin with EventoNFe.Evento.Add do begin infEvento.tpAmb := TpcnTipoAmbiente(FConfiguracoes.WebServices.AmbienteCodigo-1); Darlana Nogueira.

.

Ronaldo Paulino, De uma olhada no post Darlana Nogueira

Prezados, Ja não estou certa se aqui será o melhor local para falarmos sobre o assunto, visto que tornou-se especifico da atualização do Carta de Correção, vi vários posts criados por colegas, falando, qualquer coisa oriente-me melhor. Andre, fiz as alterações sugeridas e funcionou corretamente, porem deparei com o seguinte problema nos fontes: ACBrNFe.pas Linha(413) function TACBrNFe.EnviarCartaCorrecao(idLote: Integer): Boolean; var i : integer; begin EventoNFe.Evento.Clear; for i:= 0 to CartaCorrecao.CCe.Evento.Count do begin with EventoNFe.Evento.Add do Necessita de um -1 no count, pois senão dará List out Bound(1) Correçao: for i:= 0 to CartaCorrecao.CCe.Evento.Count -1 do ACBrNFeWebServices.pas Agora a respeito do Ambiente, ainda não encontrei a solução... Segue os problemas Linhas com erro (1317, 1914, 2029, 2129, 2501, 2969, 3097, 3370, 3459, 3561, 3641, ) procedure TNFeEnvEvento.DefinirDadosMsg; var EventoNFe: TEventoNFe; I, F: Integer; Lote, Evento, Eventos, EventosAssinados: String; begin EventoNFe := TEventoNFe.Create; try EventoNFe.idLote := FidLote; for I := 0 to TNFeEnvEvento(Self).FEvento.Evento.Count-1 do begin with EventoNFe.Evento.Add do begin infEvento.tpAmb := TpcnTipoAmbiente(FConfiguracoes.WebServices.AmbienteCodigo-1); A função em pcnConversao, considera os valores numericos dos ambiente... Linha(731) function StrToTpAmb(var ok: boolean; const s: string): TpcnTipoAmbiente; begin result := StrToEnumerado(ok, s, ['1', '2'], [taProducao, taHomologacao]); end; Atenciosamente, Darlana Nogueira

Cantu, veja esse post... pode te ajudar Darlana

Andre, na atualização não consegui identificar os retornos da carta de correção, estava utilizando os seguintes ACBrNFe1.WebServices.CartaCorrecao.CCeRetorno.cStat ACBrNFe1.WebServices.CartaCorrecao.CCeRetorno.retEvento.Items[0].RetInfEvento.nProt ACBrNFe1.CartaCorrecao.CCe.Evento.Items[0].InfEvento.FChave ACBrNFe1.CartaCorrecao.CCe.Evento.Items[0].InfEvento.FTpEvento ACBrNFe1.CartaCorrecao.CCe.Evento.Items[0].InfEvento.FnSeqEvento alguns destes poderei substituir pelo obternomedoarquivo, mas este como consigo, tentei pesquisar no compoente não consegui, não estou conseguindo compilar. ACBrNFe1.WebServices.CartaCorrecao.CCeRetorno.cStat Atenciosamente, Darlana Nogueira

Valeu Italo, e otairlaveso, tudo indica que o ambiente não pronto, inclusive o de homologação, visto que se o mesmo ja estivesse funcionando normalmente, creio que teriam liberado o produção. Logo nos resta esperar, como sugerido. Darlana Nogueira

Prezados, Estou fazendo apenas assim, ainda em testes, na esperança de obter algum retorno diferente do que tenho obtido. Em homologação: Ate o momento nenhum documento localizado. Em Produção: Hoje obtive uma resposta diferente. Ressalto que estou emitindo NF-e, normalmente. --------------------------- Debugger Exception Notification --------------------------- Project NFE.exe raised exception class EACBrNFeException with message 'WebService Distribuição de DFe: - Inativo ou Inoperante tente novamente. - An error occurred in the secure channel support - URL:https://www.nfe.fazenda.gov.br/NFeDistribuicaoDFe/NFeDistribuicaoDFe.asmx - SOAPAction:http://www.portalfiscal.inf.br/nfe/wsdl/NFeDistribuicaoDFe/nfeDistDFeInteresse'.Process stopped. Use Step or Run to continue. --------------------------- OK Help --------------------------- try CNPJ := DbCNPJCPFEmpresa.Text; lcUfAutor := DbEstaEmpresa.Text; gcultimoNSU := '0'; gcAtualNSU := ''; indNFe := '0'; IndEmi := '0'; ACBrNFe1.DistribuicaoDFe(BuscarCodigoCidadeUF('',lcUFAutor),CNPJ, gcUltimoNSU, gcAtualNSU); finnaly Application.MessageBox('Finalizado.','Aviso',0+64); end; Atenciosamente, Darlana Nogueira 20141111143340-con-dist-dfe-soap.xml 20141111143340-con-dist-dfe.xml

Prezados, o cancelamento fora do prazo "Cancelamento extemporâneo" tem particularidades em cada estado, a melhor opção é ligar para o Suporte Tecnico da SEFAZ do seu estado. Segue anexo um material que fiz pesquisas ha um tempo atras, talvez possa nortea-lo melhor. Atenciosamente, Darlana Nogueira Cancelamento Extemporaneo.pdf

Karlo Uchoa se porventura o erro que esta acontecendo seja parecido com este Erro: Requisição não enviada. 12157 - Erro no suporte a canais seguros Dê uma olhada no post Pode ser que resolva seu problema ai também. Otimo dia, Darlana Nogueira

Carlos, de uma olhada no post Creio que seja o mesmo caso, ou pelo menos possa resolver o seu ai também. Otimo dia. Darlana

Prezados, não estou certa do motivo, e ainda observando. Mas depois que fiz a alteração sugerida pelo Andre, em outro post, não ocorreu. Ainda monitorando. a alteração feita foi: // Descomente a linha abaixo para usar o componente de comunicação SOAP do Delphi ao invés do ACBrHTTPReqResp - ACBr.inc da pasta ACBrComum (Funciona apenas com a versão CAPICOM) - Não é compatível com o Lazarus //-------------------------------------------------------------------------------- {$DEFINE SoapHTTP Atenciosamente, Darlana Nogueira

Prezados, Deparei em 4 clientes a semana passada com uma situação inusitada, e resolvi compartilhar com vocês para avaliarmos, e até mesmo verificar se ocorreu com mais alguém. Ao transmirir uma NF-e, obtivemos o status e protocolo de autorização da mesma no momento do envio, e o componente resgatou os retornos, como pode ser visto no arquivo de log anexo. E no log, identificamos o erro de: Erro: Requisição não enviada. 12157 - Erro no suporte a canais seguros 10:10:11hs Lamentávelmente uso a propriedade de salvar esta ativa, logo como o cliente realizou a consulta na sequencia, o XML foi atualizado, e consequentemente não temos o XML de retorno dos protocolos, para uma analise melhorada. Alguém vivenciou essa situação? Alguma luz no final do tunel? Atenciosamente, Darlana Nogueira 31141010572553000172550030000236301330155085-NFe.xml LogNFE-10-09.txt

Italo, o erro permanece. Mesmo no ambiente de produção. --------------------------- Debugger Exception Notification --------------------------- Project NFE.exe raised exception class EACBrNFeException with message 'WebService Distribuição de DFe: - Inativo ou Inoperante tente novamente. - Erro: Requisição não enviada. The resource cannot be found.'. Process stopped. Use Step or Run to continue. --------------------------- OK Help --------------------------- Enviando os XML também. 20141013114901-con-dist-dfe.xml 20141013114901-con-dist-dfe-soap.xml

Italo, a ultima string esta vazia. E de fato não esta disponivel mesmo. Então nos resta aguardar. Valeu.

Prezados, Acabei de realizar uma consulta a DF-e ACBrNFe1.DistribuicaoDFe(FrmPrincipal.BuscarCodigoCidadeUF('',lcUFAutor),CNPJ, gcUltimoNSU, gcAtualNSU); E aparentemente obtive sucesso conforme os arquivos anexos. Porem a duvida é, neste caso os retornos foram sem documentos, e valores zerados para o ultimoNSU e também para o MaxNSU, o que indica se ao enviar uma nova consulta, o ultimo NSU, novamente será 0... O questionamento é o seguinte, ao realizar a consulta a DistribuicaoDFe, existindo documento, o arquivo zipadoscom os documentos ficara disponivel na mesma pasta? Ou teremos que realizar as pesquisas como faziamos no manifesto, várias vezes, até o encontrasse ou não encontrasse mais documentos? Em modo de produção esta apresentando erro, na chamada unit ACBrNFeWebServices; FRetornoWS := EnviarDadosWebService(FURL,SoapAction,Texto); Erro, ocorre exatamente ao executar, a linha 366, de unit ACBrHTTPReqResp; PosError := Pos('<TITLE>',UpperCase(Result))+7; --------------------------- Debugger Exception Notification --------------------------- Project NFE.exe raised exception class Exception with message 'Erro: Requisição não enviada. The resource cannot be found.'. Process stopped. Use Step or Run to continue. --------------------------- OK Help --------------------------- Segue anexo os XML da consulta em homologação e produção. Darlana Nogueira 20141009110857-dist-dfe.xml 20141009110851-con-dist-dfe.xml 20141009134300-con-dist-dfe.xml 20141009134300-con-dist-dfe-soap.xml