ornei

Bom dia, Realmente não estou conseguindo fazer a consulta da distribuição das NFs, fiz também pelo ACBrNFe_Demo, acontece a mesma coisa, também fiz algumas nota para o próprio cnpj e nada, alguma dica do que pode ser. Obrigado

Bom dia, Estou fazendo a opção para fazer a consulta das NFs destinadas, sempre retorna status 137-Nenhum documento localizado, e ja fiz nfe para o proprio cnpj da empresa mas não retorna. Se fizer a consulta passando zero para o NSU retorna um xml com status 138 não tem as chaves das NFe, segue em anexo este arquivo retornado e a rotina que estou utilizando. procedure TfrmManifestacao.btnConsultarClick(Sender: TObject); var J, I: Integer; sMotivo, sTemMais, UltNSU, sUltimoNSU, sChave, sSerie, sNumero, sCNPJ, sNome, sIEst, sNSU, sEmissao, sTipoNFe, sUF, Impresso: string; Valor: Double; dhAuto: TDateTime; begin ValidarSQL('SELECT E.CGC, E.UF FROM VI_EMPRESA E',['E.COD='+CODEMP_COR],[@sCNPJ,@sUF]); with dmNFE_TR do repeat try {$IFDEF SIMULARETORNO} SimulaRetorno; {$ELSE} UltNSU := ParametroTxt('NSU','4',CODEMP_COR); NFEletronica.DistribuicaoDFePorUltNSU(UFtoCUF(sUF),sCNPJ,UltNSu); {$ENDIF} // Pega os dados retornados sMotivo := NFEletronica.WebServices.DistribuicaoDFe.retDistDFeInt.xMotivo; sUltimoNSU := NFEletronica.WebServices.DistribuicaoDFe.retDistDFeInt.ultNSU; // Verifica a tag se possui mas documentos if NFEletronica.WebServices.DistribuicaoDFe.retDistDFeInt.cStat = 137 then sTemMais := 'N' else sTemMais := 'S'; // Grava o ultiomo NSU na tabela de parametros GravaUltimaConsulta(sUltimoNSU); except on e: exception do raise Exception.Create('Falha ao Consultar NFe Destinadas.' + #13 + 'Erro Capturado: ' + e.Message); end; try if NFEletronica.WebServices.DistribuicaoDFe.retDistDFeInt.cStat = 138 then begin J := NFEletronica.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Count -1; for I := 0 to J do begin sSerie := ''; sNumero := ''; sCNPJ := ''; sNome := ''; sIEst := ''; sNSU := ''; sEmissao := ''; sTipoNFe := ''; Valor := 0.0; Impresso := ' '; dhAuto := 0; if NFEletronica.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items[i].resNFe.chNFe <> '' then begin // Conjunto de informações resumo da NF-e localizadas. // Este conjunto de informação será gerado quando a NF-e for autorizada ou denegada. sEmissao := DateToStr(NFEletronica.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items[i].resNFe.dhEmi); sChave := NFEletronica.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items[i].resNFe.chNFe; sCNPJ := NFEletronica.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items[i].resNFe.CNPJCPF; Valor := NFEletronica.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items[i].resNFe.vNF; sNome := NFEletronica.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items[i].resNFe.xNome; sIEst := NFEletronica.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items[i].resNFe.IE; sNSU := NFEletronica.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items[i].NSU; sSerie := Copy(sChave, 23, 3); sNumero := Copy(sChave, 26, 9); case NFEletronica.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items[i].resNFe.tpNF of tnEntrada: sTipoNFe := 'E'; tnSaida: sTipoNFe := 'S'; end; case dmNFE_TR.NFEletronica.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items[i].resNFe.cSitNFe of snAutorizado: Impresso := 'A'; snDenegado : Impresso := 'D'; snCancelado : Impresso := 'C'; end; dhAuto := NFEletronica.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items[i].resNFe.dhRecbto; end; // Registra no Banco de Dados as Notas Retornadas pela Consulta if not ExisteChaveNFE(StrToInt(CODEMP_COR),sChave) then begin with sqlManifestacao, sqlManifestacao.Sql do begin Clear; Add('INSERT INTO TB_MANIFESTACAO'); Add(' (CODEMP, CNPJ, NOME, IE, EMISSAO, TIPO, VALOR,SITUACAO, CONFIRMACAO, NSU, CHAVE, DTAUTORIZACAO, NUMNF)'); Add('VALUES '); Add(' (:CODEMP, :CNPJ, :NOME, :IE, :EMISSAO, :TIPO, :VALOR, :SITUACAO, :CONFIRMACAO, :NSU, :CHAVE, :DTAUTORIZACAO, :NUMNF)'); Params[0].AsString :=CODEMP_COR; Params[1].AsString :=sCNPJ; Params[2].AsString :=sNome; Params[3].AsString :=sIEst; Params[4].AsDate :=StrToDate(sEmissao); Params[5].AsString :=sTipoNFe; Params[6].AsFloat :=Valor; Params[7].AsString :=Impresso; Params[8].AsString :=''; Params[9].AsString :=sNSU; Params[10].AsString :=sChave; Params[11].AsDateTime:=dhAuto; Params[12].AsString :=sNumero; //*** try if Transaction.InTransaction then Transaction.Rollback else Transaction.StartTransaction; ExecSQL; Transaction.Commit; except Transaction.Rollback; end end; end; end; // Fim do For end else begin if NFEletronica.WebServices.DistribuicaoDFe.retDistDFeInt.cStat = 137 then begin ExibirMsg('Ultimo NSU: '+NFEletronica.WebServices.DistribuicaoDFe.retDistDFeInt.ultNSU+#13#10+ 'Status : '+IntToStr(NFEletronica.WebServices.DistribuicaoDFe.retDistDFeInt.cStat)+#13#10+ 'Motivo : '+NFEletronica.WebServices.DistribuicaoDFe.retDistDFeInt.xMotivo+#13#10+ 'Data/Hota : '+DateTimeToStr(NFEletronica.WebServices.DistribuicaoDFe.retDistDFeInt.dhResp), 'Manifestação das Nota Fiscal Eletrônica'); end else begin ExibirMsg('Falha ao realizar a consulta.'+#13#10+ 'Status : '+IntToStr(NFEletronica.WebServices.DistribuicaoDFe.retDistDFeInt.cStat)+#13#10+ 'Motivo : '+NFEletronica.WebServices.DistribuicaoDFe.retDistDFeInt.xMotivo+#13#10+ 'Manifestação das Nota Fiscal Eletrônica'); end; end; except on e: exception do raise Exception.Create('Falha ao gravar as NFe Destinadas.' + #13 + 'Erro Capturado: ' + e.Message); end; until (NFEletronica.WebServices.DistribuicaoDFe.retDistDFeInt.cStat = 137) or (sTemMais = 'S'); // end; Obrigado. 20180612090345-dist-dfe.xml

Bom dia BigWings não tinha entendido o que você quis dizer com o gerenciador, testei em vários servidor de e-mail com Gmail, Yahoo, Hotmail e o servidor da empresas deu certo, o Yahoo tem que visualizar para depois salvar, não salva direto, incredimail deu errado com a imagem acima, mas ante dava tudo certo em todos. Valeu pela atenção. Obrigado

BigWings pela imagem você pode ver que o email recebido foi do projeto ACBrNFe, na direita só tem o PDF como anexo. não fiz nenhuma alteração no fonte só compilei e configurei os caminhos, email e certificado e enviei o email por ele.

BigWings a questão não e o gerenciador, que é o IncrediMail, esta imagem e de como estou recebendo o email pelo acbrnfe demo, no caso a danfe em pdf fica como anexo e o xml no corpo do e-mail.

Boa tarde, realmente quando envia um XML como anexo ele e adicionado como stream e vai no corpo do e-mail como a imagem acima, isto e para qualquer arquivo com a extensão XML, no ACBrNFe-Demo e também no ACBrMail-Demo, criei um arquivo texto com um texto qualquer só que coloquei a extensão XML o texto ficou no corpo do email também e se colocar outra extensão o arquivo vai como anexo, estou com a ultima revisão 14570. Alguém já percebeu esta alteração no envio.

Boa tarde Segue uma imagem do e-mail

Bom dia Juliomar no exemplo também acontece a mesma coisa o xml vai no corpo do e-mail logo abaixo do texto. Demorei responder estou de ferias e o pc pessoal deu problema e tive que formatar e instalar tudo novamente.

Bom dia também pelo exemplo (compilado no delphi xe10.1) esta ocorrendo, o xml vai abaixo do texto do email e não como anexo, estou usando o delphi 7 com a ultima atualização, ainda não consegui contornar o problema. obrigado

boa tarde, com relação ao xml estar errado, fiz outra conferencia no xml e esta tudo ok, a questão e q ele não esta como anexo. Obrigado

Boa tarde, fiz a atualização do acbr hoje, também fiz alguns teste apos a atualização só que na opção de enviar por e-mail percebi que nos anexo só esta o danfe em pdf e o xml esta no corpo do e-mail não esta como anexo, copei este xml do corpo do e-mail coloquei em editor para conferi só que não esta completo também, segue o fonte. obrigado with dmNFE_TR do try // Busca a Serie da NF-e ValidarSQL('SELECT E.EMPRESA FROM TB_EMPRESA E',['E.COD='+CODEMP_COR],[@Remetente]); //*** lcXML := NFEletronica.Configuracoes.Arquivos.GetPathNFe(cdsNFEDATAENT.AsDatetime) + PathDelim + Trim(cdsNFECHAVE_NFE.AsString) + '-nfe.XML'; { Verifica se o arquivo XML existe } if not FileExists(lcXML) then Raise Exception.Create('Arquivo ' + lcXML + ' não encontrado.'); { Adiciona o e-mail para copia } CC := TstringList.Create; MinhaExtractStrings(';',Copia,CC); { Carrega o XML da NFe para enviar e-mail } NFEletronica.NotasFiscais.Clear; NFEletronica.NotasFiscais.LoadFromFile(lcXML); { Configura os dados do ACBr_Email } EMail.From := EMail.Username; EMail.ReadingConfirmation := Confirmacao; EMail.FromName := EMPRESA_COR; { Gera mensagem para ser enviada } mmEmailMsg.Lines.Text:=format(mmEmailMsg.Lines.Text,[LFill(IntToStr(NFEletronica.NotasFiscais.Items[0].NFe.Ide.cNF),10), NFEletronica.NotasFiscais.Items[0].NFe.Emit.xNome, FloatToStrF(NFEletronica.NotasFiscais.Items[0].NFe.Total.ICMSTot.vNF,ffNumber,10,2), NFEletronica.NotasFiscais.Items[0].NFe.Emit.xNome]); { Envia o e-mail } NFEletronica.NotasFiscais.Items[0].EnviarEmail(Para , Trim(FConfiguracaoEmail.EmailAssunto) + ' n. '+ LFill(IntToStr(NFEletronica.NotasFiscais.Items[0].NFe.Ide.cNF),10) , mmEmailMsg.Lines , True // Enviar PDF junto , CC //Lista com emails que serão enviado cópias - TStrings , nil); // Lista de anexos - TStrings ExibirMsg('XML e DANFE da Nota Fiscal ' + LFIll(cdsNFENUMNF.AsString,9) + ' enviada com sucesso!','Nota Fiscal Eletrônica'); finally CC.Free; end;

Obrigado EMBarbosa, vou olhar os tópicos que você citou.

Bom dia, tenho o delphi 7 com o acbr instalado uso o instaldor, minha máquina esta com windows 7 32bits rodando sem problemas, precisei instalar o delphi 10.2 tokyo, instalei o fortes, fastreport e o acbr também com o instalador sem nenhum erro com as três instalações, porém quando executo o delphi 10.2 ocorre o seguinte erro: pressionando OK mostra a mensagem a seguir: já tentei varias vezes e não da certo sempre esse erros acontece isto somente delphi 10.2 o delphi 7 esta funcionando normalmente também se o log e o ini. ACBrInstall_Trunk2.ini log_Delphi_10.2_Tokyo.txt

Juliomar realmente tem, neste caso terei que instalar manualmente, pois por enquanto estou usando trial.

bom dia, estou instalando o acbr no delphi tokyo utilizando o acbrinstall_trunk2, todos pacotes são compilados e instalados, o estranho e que não gera nada na pasta ..\delphi\lib25, isto ocorre com o instalador do fortes que e igual, o fortes instalei manual para testar e funcionou, a principio terei que fazer a mesma coisa para o acbr.

Isto mesmo fiz a consulta no final do xml tem as informações do cancelamento. obrigado.

Juliomar só consigo fazendo a consulta da NFe para trazer as informações do cancelamento/cce, porque quando faço um cancelamento e da tudo certo gera um xml assim 1101113117053870940800010055001000000362100000362001-procEventoNFe.xml pois faço a impressão cancelamento sobre ele e alguns cliente envia por e-mail também.

Boa tarde, tenho um cliente que fez um cancelamento só que não sei o que ocorreu e ele não soube falar o que aconteceu e com isso não gerou o xml do cancelamento e isto aconteceu com a carta de correção em um outro cliente, tem alguma maneira de gerar os xml novamente para que possa imprimir o documento do cancelamento e da carta de correção.

boa tarde, estou com o seguinte problema, fiz um cce na hora do envio demorou, com isto retornou o erro 1250, e não gerou o xml e se tentar enviar novamente retorna o erro de duplicidade de evento, não sei o que esta acontecendo consultando a NFe no portal nacional nem aparece o registro do envento. Tem como gera o xml para imprimir e enviar por emai..

Boa tarde, não está no svn pois não teno permissão, alterei os fontes para que possa sair as informações na danfe, com relação se e valida creio que sim pois tem que informar a data e hora da contingência e a justificativa. Obrigado

Bom dia, esses tipo de emissão teSCAN, teSVCAN, teSVCRS, teSVCSP estão junto com o teNormal, por este motivo quando envio uma nfe e contingência SVCAN não esta saindo as informações na danfe referente a emissão em contingência. Isto para danfe impressa usando o fortes retrato ou paisagem, fiz a alteração nos fontes e segue em anexo. Ornei ACBrNFeDANFeRLPaisagem.pas ACBrNFeDANFeRLRetrato.pas

Bom dia, enviei uma NFe para SEFAZ de MG no dia 22/07/2016, e agora preciso enviar uma CCe, a SEFAZ nos dias 23 e 24 vai estar em manutenção, tentei enviar utilizando contingencia SVC-AN, esta retornando o erro 491 - Rejeição: O Evento Informado Invalido. Alem de mudar o tipo de emissão, tem outra configuração a fazer para que não retorne este erro. Obrigado

Bom dia, já estou usando o trunk2 alguns meses, em Minas Gerais, esta semana a SEFAZ ficou fora do ar, neste caso as NFe estão sendo enviada em contingência SVC-AN, e percebi que não esta imprimindo os dados referente a contingência, quando usava a danfe do rave era impresso uma marca d'agua, e nas informações adicionais constava informação de contingência. Observando o código fonte vi que os tipos de contingência teSCAN, teSVCAN, teSVCRS, teSVCSP não esta habilitado a ser impresso, somente os teContingencia e teFSDA. E isso mesmo?

Henrique, boa tarde apos a atualização para a revisão 11988 como você falou deu certo, agora esta imprimindo normalmente. Obrigado

Boa tarde, Juliomar agora mesmo fiz o update do acbr e recebi uma atualização do ACBrNFeDANFeRLRetraro.dfm com a remoção da propriedade ExplicitWidth, recompilei o projeto e deu certo. Acho que esta tudo certo agora. Obrigado.