rodrigoogioni

Bom dia, Atualizei o Fortes também, fiz um teste em um relatorio fora do acbr utilizando RLReport1.print; e também aparece a caixa de dialogo. Será isso um bug do Fortes? Alguem mais está passando por esse problema? Grato

Sim, estou passando, acabei de atualizar o acbr agora, mas continua o mesmo problema. Grato

Bom dia Juliomar, obrigado pela resposta. fiz dessa forma: ACBrNFeDANFCeFortes1.MostrarPreview:= false; ACBrNFeDANFCeFortes1.MostrarStatus:= false; ACBRNFE3.NotasFiscais.Imprimir; Mesmo assim continua a aparecer a caixa de dialogo Grato

Boa noite, Sempre que envio a impressão da nfc-e esta aparecendo uma caixa de dialogo antes de imprimir. ACBRNFEDANFCeFortes1.Impressora:= FImpPadrao.ImpNFCe.Text; ACBrNFeDANFCeFortes1.MostrarPreview:= false; ACBRNFE3.NotasFiscais.Imprimir; O que será que estou fazendo de errado? Grato

Boa tarde! Uso Capicom, o certificado é A1. Grato

Boa tarde a Todos, Estou com problema em um cliente ao consultar a DF-e Houve um erro ao processar NF-e(s) 0- WebService Distribuição de DFe: -Inativo ou Inoperante tente novamente. O tempo limeite da operação foi atingido- url: https://www1.nfe.fazenda.gov.br/NFeDistribuicaoDFe/NFeDistribuicaoDFe.asmx... O certificado está emitindo nota fiscal normalmente, somente ao consultar é que esta gerando esse erro. Grato por qualquer ajuda!

Boa tarde, sim, O que ocorre é que alguns usuarios não estão se adaptando as atualizações que eu fiz, então nos fontes do acbr, não vai funcionar. Então eu fiz uma alteração em 4 units que estão la naquele outro topico e quem quiser usar, basta substitui-las e compilar os fontes novamente. É isso que eu faço sempre que tenho que atualizar o ACBR. Qualquer coisa estamos as ordens!

Sim, tenho um cliente que faz essa operação do cupom fiscal e ele esta emitindo a todo vapor! Grato

Bom dia Rodrigo, Aqui em meu sistema consigo emitir normal, atualizei os fontes a uns 10 dias. Grato

Ta estranho, no fuso horario esta brasilia - 3 horas Mas o mais estranho ainda, é que tentamos mais uma vez agora la no cliente e deu certo sem termos alterado nada. Vai entender. Grato pela ajuda!

Bom dia BigWings, Isso é erro la da SEFAZ-RS ou tenho que corrigir algo aqui? Por que até então estava tudo funcionando corretamente. Grato

Bom dia a todos, Hoje um cliente foi cancelar uma nfe, e esta retornando esse erro. Imaginei que foi por causa da troca do horario de verao. Mas no sistema buscamos o horario do recibo da propria sefaz. Fazemos assim: DM.ACBrNFe1.EventoNFe.Evento.Clear; with DM.ACBrNFe1.EventoNFe.Evento.Add do begin infEvento.chNFe := DMX.IBNotaFiscalCHAVEACESSO.Value; infEvento.CNPJ := DMX.TabEmpresaCNPJ.Value; infEvento.dhEvento := dm.ACBrNFe1.WebServices.StatusServico.dhRecbto; infEvento.tpEvento := teCancelamento; infEvento.detEvento.xJust := Justificativa; infEvento.detEvento.nProt := DMX.IBNotaFiscalPROTOCOLO.Value; end; dm.ACBrNFe1.EnviarEvento(DMX.IBNotaFiscalLOTENF.Value); no xml esta saindo assim: <dhEvento>2016-10-21T10:18:48-03:00</dhEvento> o horario esta batendo com o horario do computador. O que pode estar ocorrendo? Grato

Obrigado Italo, BigWings pela ajuda! Aparentemente esta tudo certo!

Bom dia Italo, Como ja tinha uma rotina antes com a forma anterior de fazer o download, o ultimo NSU eu deixei o mesmo da outra rotina. Acredito que ele tenha puxado todas as notas do cliente desde o começo de sua abertura porque baixou 572 notas. Então deu a mensagem de consumo indevido. Na verdade não precisaria ter baixado as 572 notas porque elas ja haviam sido baixadas. Tem alguma maneira de evitar isso? Grato pela ajuda,

Boa noite! No meus testes deu certo, porem fui testar em um cliente, começou a fazer o processo e deu a mensagem de consumo indevido, para tentar depois de 1 hora. Acho que ainda nao esta bem certo o meu codigo! Tem alguma luz? Grato

Por que nas pastas tem alguns xmls, mas por exemplo tem um xml em especifico que não foi encontrado. 42161083064741000163550010004526401669635912-resNFe.xml So veio esse arquivo. Grato

Boa noite, consegui fazer funcionar, ufa! Agora uma duvida, as manifestações, continua como estavam antes certo? Mas o download? Eu procuro naquela pasta aqueles arquivos baixados e uso eles, ou tenho que usar algum outro comando para para fazer o download original somente de uma nfe especifica? Grato pela ajuda

Boa noite! Obrigado pela resposta. Estou tentando descobrir onde pode estar a falha o que estou percebendo é que no trecho onde busca a chave de acesso esta retornando vazio, por isso os erros. Esta nesse trecho if DM.AcbrNFe1.WebServices.DistribuicaoDFe.retDistDFeInt.cStat = 138 then begin Showmessage('Chave de Acesso: ' + DM.ACBRNFe1.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items.resNFe.chNFe); // aqui retorna vazio j := DM.ACBRNFe1.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 := ' '; // aqui ele faz tres vezes mas o chNFE retorna vazio. if DM.ACBRNFe1.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items.resNFe.chNFe <> '' then begin Tem alguma ideia do que posso estar fazendo errado? Grato

Boa tarde! Sim, estou fazendo dessa forma: x := 0; erro:= 0; repeat // Rotina que vai realizar a consulta e armazenar no banco de dados os dados retornados da NFe encontrada // para futura Manifestação. Application.ProcessMessages; dm.ACBrNFe1.DistribuicaoDFe(verificacodigouf(dmx.TabEmpresaESTADO.Value), FMain.RemoveChar(dmx.TabEmpresaCNPJ.AsString), nsu.Text, '' ); nsu.Text:= dm.ACBrNFe1.WebServices.DistribuicaoDFe.retDistDFeInt.ultNSU; until dm.ACBrNFe1.WebServices.DistribuicaoDFe.retDistDFeInt.cStat = 137; Então ali no cstat não devia ser 137? Grato

Boa tarde Italo, muito obrigado pela ajuda, ja estou pelo menos tendo um norte para seguir. Fiz as alterações que vc indicou, li tambem o arquivo txt onde tem instruções de como usar, me orientei por la e adaptei da seguiten maneira: {if DM.AcbrNFe1.WebServices.DistribuicaoDFe.retDistDFeInt.cStat = 138 then begin} ShowMessage(DM.ACBRNFe1.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Count.ToString()); if DM.ACBRNFe1.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Count > 0 then begin j := DM.ACBRNFe1.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 := ' '; Showmessage(DM.ACBRNFe1.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items.resNFe.chNFe); if DM.ACBRNFe1.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items.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. sChave := DM.ACBRNFe1.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items.resNFe.chNFe; sSerie := Copy(sChave, 23, 3); sNumero := Copy(sChave, 26, 9); sCNPJ := DM.ACBRNFe1.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items.resNFe.CNPJCPF; sNome := DM.ACBRNFe1.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items.resNFe.xNome; sIEst := DM.ACBRNFe1.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items.resNFe.IE; case DM.ACBRNFe1.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items.resNFe.tpNF of tnEntrada: sTipoNFe := 'E'; tnSaida: sTipoNFe := 'S'; end; sNSU := DM.ACBRNFe1.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items.NSU; sEmissao := DateToStr(DM.ACBRNFe1.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items.resNFe.dhEmi); Valor := DM.ACBRNFe1.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items.resNFe.vNF; case DM.ACBRNFe1.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items.resNFe.cSitNFe of snAutorizado: Impresso := 'Autorizada'; snDenegado: Impresso := 'Denegada'; snCancelado: Impresso := 'Cancelada'; end; end; Qry.Close; Qry.SQL.Clear; Qry.SQL.Add('SELECT CODIGO AS CODIGO, CHAVE AS CHAVE FROM MANIFESTACAO WHERE CHAVE=:CHAVE'); Qry.ParamByName('CHAVE').AsString:= sChave; Qry.Open; if Qry.FieldByName('chave').AsString = '' then begin IBManifestacao.Append; IBManifestacaoUltNSU.AsString := DM.ACBrNFe1.WebServices.ConsNFeDest.retConsNFeDest.ultNSU; IBManifestacaoCNPJ.AsString := sCNPJ; IBManifestacaoEmitente.AsString := sNome; IBManifestacaoEmissao.AsDateTime := StrToDate(sEmissao); IBManifestacaoValor.AsFloat := Valor; IBManifestacaoCHAVE.AsString := schave; IBManifestacaoIE.AsString := sIEst; IBManifestacaoDataRecebto.AsDateTime := 0; IBManifestacaoSitNFe.AsString := Impresso; // IBManifestacaoSitConf.AsString := SituacaoManifesto[StrToInt(SituacaoManifDestToStr(cSitConf))]; IBManifestacaoNUMNOTA.Value:= copy(schave,26,9); IBManifestacao.Post; end else begin if IBManifestacao.Locate('codigo', qry.fieldbyname('codigo').AsInteger, []) then begin IBManifestacao.Edit; // IBManifestacaoSitConf.AsString := SituacaoManifesto[StrToInt(SituacaoManifDestToStr(cSitConf))]; IBManifestacaoNUMNOTA.Value:= copy(schave,26,9); IBManifestacao.Post; end; end; end; // Fim do For end else begin // Nenhum Documento Localizado para o Destinatário if DM.ACBRNFe1.WebServices.DistribuicaoDFe.retDistDFeInt.cStat = 137 then begin ShowMessage2(DM.ACBRNFe1.WebServices.DistribuicaoDFe.retDistDFeInt.cStat.ToString() + '-Nenhum Documento Localizado para o Destinatário.') end else begin ShowMessage2('Falha ao Realizar Consulta: ' + DM.ACBRNFe1.WebServices.DistribuicaoDFe.retDistDFeInt.cStat.ToString() + ':' + DM.ACBRNFe1.WebServices.DistribuicaoDFe.retDistDFeInt.xMotivo); end; end; Porém nos testes que fiz não retorna nenhum registro e vai direto para cstat 137, mas na pasta downloads ele baixou varios xmls. O que sera que estou fazendo errado? Grato

Bom dia Italo, também estou com um pouco de duvidas de como funciona a Distribuição DFE procurei no Demo, achei um pouco limitado, se não for te incomodar muito, poderia colocar um breve exemplo de como utilizar as tags? Grato

Abrahaofv, da uma olhada nesse link Para atender alguns clientes que querem personalizar os cabeçalhos, desenvolvi uma saida para isso, porém, sempre que atualizar o ACBR tem que fazer ajustes. Espero ter colaborado,

Boa noite! Cada colega teria que ajustar seus sistemas para posicionar o cabeçalho. O logo fica em cima ou na lateral conforme os exemplos que coloquei no inicio deste post. Também permite alterar o tamanho do logo e a distancia entre o logo, o nome da empresa e o endereço. Unifiquei o endereço, email e telefone todos em um so campo memo para fascilitar o posicionamento. Não tem como garantir que vai ficar igual como estava antes para quem não deseja usar. Mas acredito que assim ficou bem melhor. Vale a pena o esforço e nem é tão dificil. E depois de ajustado fica tudo certo. Se acharem que não, também não tem problema! É só uma sugestão. Grato

Bom dia Pessoal, Recebi um email de um dos colegas perguntando porque não estava funcionando o reposicionamento do logo com as tags do componente que foram adicioanadas por mim. Referente a essa alteração, baixei os fontes atualizados hoje, e reajustei para funcionar, estou compartilhando caso alguem queira utilizar. Porém há algumas modificações no cabeçalho. Para funcionar tem algumas alterações nas units ACBRNfeDANFeRLClass e ACBRNFeDANFERlRetrato que estao em anexo. Basta substitui-las nos fontes do projeto e recompilar o componente ACBr_NfeDANFeRL Porém gostaria de saber se há possibilidade de essas alterações ficarem permanentes, pois ajuda muito na personalização do cabeçalho. Nesse caso, os colegas teriam que fazer uma pequena alteração em seus sistemas, porque se não, o cabeçalho vai ficar desconfigurado. Grato Modificações ACBR.rar

Mesma duvida!