Calmeida79

Amigos do ACBR, poderiam por gentileza me auxiliarem nessa questa? Na homologação do boleto caixa estou recebendo a seguinte mensagem: "Dígito Verificador do Código do Cedente Inválido." estou passando assim no fonte: x (Ocultei os dados) with FACBrBoleto.Cedente do begin TipoInscricao := pJuridica; Agencia := '0279'; AgenciaDigito := '8'; Conta := '03001776'; ContaDigito := '3' CodigoCedente := '1113111' Convenio := ''; Modalidade := '101'; CodigoTransmissao := ''; Nome := 'xxxxxxxxxxxxxxxxxxxxxxxxx'; CNPJCPF := 'xxxxxxxxxxxxxxxx'; Logradouro := 'xxxxxxxxxxxxxxxxxxxxxxxxx'; Bairro := 'xxxxxxxxxxxxxxxxxxxxxxxxx'; Cidade := 'xxxxxxxxxxxxxxxxxxxxxxxxx'; Complemento := 'xxxxx'; NumeroRes := 'xxxxx'; CEP := 'xxxxxxxx'; UF := 'xx'; end;

Obrigado. Apliquei a linha de código e agora coloquei para testar. Vou aguardar os resultados.

Coloco antes do NFE.EventoNFe.Evento.Clear; ?

Qual seria o comando? No meu código esta assim como postei... Alias ele segue o exemplo do ACBR...

Bom dia amigos, Ao tentar fazer uma carta de correção recebo o erro "Não existe NFe com a chave [ Chave da nota aqui ] carregada" Ao fechar o meu sistema e abrir novamente na maioria das veze a carta é transmitida normalmente. Parece que o sistema fica com alguma coisa presa na memória. Meu código está assim: NFE.EventoNFe.Evento.Clear; with NFE.EventoNFe.Evento.New do begin infEvento.chNFe := Chave; infEvento.cOrgao := CodOrgao; infEvento.CNPJ := NrCNPJ; Evento := Now; infEvento.dhEvento := Evento; infEvento.tpEvento := teCCe; infEvento.nSeqEvento := Sequencia; infEvento.versaoEvento := '4.00'; infEvento.detEvento.descEvento := 'Carta de Correção'; infEvento.detEvento.xCorrecao := quotedstr(RetirarCaractere(ADescCorrecao,[#10,#13,#39])); infEvento.detEvento.xCondUso := EmptyStr; end; idLote := '1'; NFE.EnviarEvento(strtoint(idLote)); <- O erro acontece aqui if not (NFE.WebServices.EnvEvento.cStat in [128,135,136]) then Exit; NFE.EventoNFe.GerarXML; NFE.EventoNFe.Gerador.SalvarArquivo(EnderecoDiretorioXML + CaminhoXML);

Obrigado amigos! Vou programar um pouquinho e usar o Distribução DFe da maneira como o João disse, adequando a minha realidade. Grande abraços... e fica uma sugestão para alguém desenvolver algo mais simples para o método distribuição por chave, trazendo os eventos relacionados. valeu!

Agora fiquei na dúvida se o método ACBrNFe.Consultar vai trazer os documentos de terceiros... Mas já seria uma ajuda porém ainda faltariam outros eventos...

Bom dia Juliana, Sim, eu li o artigo do Italo, entendi o funcionamento da rotinas. Mas na verdade eu gostaria de saber se existe algo mais simples, no caso informando a chave da nota e recebendo tudo o que for de evento vinculado a mesma, sem tem que ficar procurando todos os arquivos retornados de notas diferentes da que eu preciso. Apenas complementando, o método DistribuicaoDFePorChaveNFe me retorna apenas o XML da nota fiscal já manifestada, eu achava que este me retornaria os eventos da mesma como uma carta de correção por exemplo...

Olá amigos da comunidade ACBR, Sei que existem bastantes tópicos já sobre DFe mas eu estou tendo dificuldades em baixar os eventos mesmo apos ler bastante. Preciso simplesmente criar uma rotina onde eu entro com a Chave de Acesso da NF-e (Recebida e já manifestada) e assim baixar tudo o que for referente a mesma como XML principal e carta de correção por exemplo. *Estou em ambiente de homologação *Configuração do ACBRNFE Configuracoes.Arquivos.Salvar := True; Configuracoes.Arquivos.SalvarEvento := true; Configuracoes.Arquivos.PathNFe := EnderecoDiretorioXML; Configuracoes.Arquivos.PathEvento := EnderecoDiretorioXML; Configuracoes.Arquivos.EmissaoPathNFe := True; Configuracoes.Arquivos.DownloadDFe.PathDownload := EnderecoDiretorioProtEvento; Quando eu uso DistribuicaoDFePorChaveNFe recebo automaticamente apenas o XML da nota no diretório apontado mas os eventos não. Sei que o NSU da minha nota é 150 encontrado no xml pela DistribuicaoDFePorChaveNFe Se uso DistribuicaoDFePorNSU(25, CNPJ, '150') recebo apenas o XML da nota sem os eventos também... Se uso DistribuicaoDFePorUltNSU(25, CNPJ, '150'); recebo todos os outros documentos até o ultimo NSU 155 onte num deles encontra-se o evento da correção da minha nota Grato por quem puder me ajudar.

Acabei de baixar e atualizar o ACBR e não mudou em nada a situação mesmo... Veja que ao inutilizar a numeração ele não exibe a justificativa (estou em homologação) e ao imprimir não exibe nada... Ja em produção imprime os dados sem a justificativa como mostrei no post anterior...

Sim. Os fontes estão "relativamente" atualizados, coisa de 1 mês... Vou tentar reproduzir nos exemplos e volto aqui...

Fortes Report Fortes Report

Boa tarde amigos do ACBR, Hoje fui imprimir um PDF da inutilização de numeração da NF-e, coisa que nunca havia feito antes, e notei que a justificativa não é exibida e também os caracteres estão um pouco estranhos. Alguém pode me dizer se é assim mesmo ou se meu sistema pode estar faltando alguma coisa? Grato. 71041099000118_14139_Inutil.xml

Obrigado pela resposta... Vou fazer alguns testes em homologação.

Bom dia amigos do ACBR, Tenho meu sistema de transmissão de NF-e rodando aqui em SP porém recebi uma proposta de um cliente de MG e gostaria de saber se existe diferença nas tags ou blocos entre os dois estados. Alguem possui sistema nesses dois estados e poderia me dizer?

Juliomar, Obrigado pela ajuda. Retirei o UTF8Decode e funcionou, era a unica diferença que havia em relação ao exemplo do ACBR. Exemplo ACBR

Adicionando mais uma informação, as notas que estou tentando consultar são notas canceladas com eventos de carta de correção. As notas autorizadas ou canceladas sem evento recebo o retorno perfeitamente. O erro acontece aqui

Boa tarde amigos do ACBR, Estou com um problema no momento de fazer a consuta de algumas notas fiscais. Percebi que o erro acontece apenas nas notas que possuem eventos como carta de correção. Ao consultar a nota fiscal da seguinte forma: nfe.NotasFiscais.Clear; nfe.WebServices.Consulta.NFeChave := [CHAVE 44 dígitos]; nfe.WebServices.Consulta.Executar; LoadConsulta201(nfe.WebServices.Consulta.RetWS); Recebo o erro 'An invalid character was found in text content. Line 1 <retEvento versao="1.00"><infEvento><tpA'. Anexado estão o erro e o resultado do RetWS Conto com a ajuda de vocês. Obs. Já atualizei a minha pasta Schemas e todo o ACBR. Utilizo Delphi 2007 a.xml Adicionando mais uma informação, as notas que estou tentando consultar são notas canceladas com eventos de carta de correção. As notas autorizadas ou canceladas sem evento recebo o retorno perfeitamente.

Acredito que as empresas vão atualizar os aparelhos até o dead line

Pesquisando e lendo um pouco mais aqui... vi que o meu sat (RB200 Bematech) não suporta a versão 0.08...

Boa tarde amigo, Estou tentando enviar um SAT na versão 0,08 mas recebo a mensagem de "Resposta:002738|06010|1999|Erro desconhecido||" Anexei o XML gerado. Eu atualizei o ACBR; Atualizei o SAT Bematech pelo activation software; Alguém pode me dar uma luz? (Na versão 0,07 esse mesmo arquivo passa tranquilamente) SAT.XML

Manda e-mail direto na pagina da SEFAZ de SP. Eles costumam responder rápido.

Bom dia amigos, Como saber se já estou transmitindo atendendo os requisitos da NT 2018.005? Atualizei meu acbr, Schemas, Reports, DLL's e meu código fonte. (Aqui em SP não será obrigado a indicar o responsável técnico) Não mexi no código referente ao protocolo para as mensagens de interesse da sefaz... Fiz testes em homologação e tudo funcionou...

Acabei por conseguir... caso alguém precise está aqui a minha solução: EnderecoXML := "Caminho onde está o meu xml que vou cancelar" DM.NFE.NotasFiscais.Clear; DM.NFE.EventoNFe.Evento.Clear; if not DM.NFE.NotasFiscais.LoadFromFile(EnderecoXML) then Begin raise Exception.Create('Não foi possível carregar o XML da Nota Fiscal Eletrônica para cancelamento!'); Exit; End; strNrNota := "123456" iNumeroLote := StrToInt("123456"); DM.NFE.EventoNFe.idLote := iNumeroLote; strProtocolo := "Protocolo do XML" strChave := "Chave do XML" with DM.NFE.EventoNFe.Evento.Add do begin infEvento.chNFe := strChave; infEvento.CNPJ := strCnpjCompleto; infEvento.dhEvento := now; infEvento.tpEvento := teCancelamento; infEvento.detEvento.xJust := Justificativa; infEvento.detEvento.nProt := strProtocolo; end; DM.nfe.Configuracoes.Arquivos.Salvar := True; DM.nfe.Configuracoes.Arquivos.SalvarEvento := true; DM.nfe.Configuracoes.Arquivos.PathNFe := EnderecoDiretorioXML; DM.nfe.Configuracoes.Arquivos.PathEvento := EnderecoDiretorioXML; DM.nfe.Configuracoes.Arquivos.EmissaoPathNFe := True; if DM.NFE.EnviarEvento(iNumeroLote) then begin with DM.NFE.WebServices.EnvEvento do begin DataProtocolo := FormatDateTime('dd/mm/yyyy hh:nn:ss',EventoRetorno.retEvento.Items[0].RetInfEvento.dhRegEvento); NrProtocolo := EventoRetorno.retEvento.Items[0].RetInfEvento.nProt; XMLCancelamento := EventoRetorno.retEvento.Items[0].RetInfEvento.XML; Result := 'Cod:' + IntToStr(EventoRetorno.retEvento.Items[0].RetInfEvento.cStat) + '-' + EventoRetorno.retEvento.Items[0].RetInfEvento.xMotivo; DM.nfe.ImprimirEventoPDF; END End;

Bom dia amigos, Poderiam me ajudar no processo de gravar um XML de evento de cancelamento? Já li alguns topicos aqui mas não consegui ainda NotasFiscais.Clear; EventoNFe.Evento.Clear; NotasFiscais.LoadFromFile(EnderecoXML); EventoNFe.idLote := 1; with EventoNFe.Evento.Add do begin infEvento.chNFe := strChave; infEvento.CNPJ := strCnpjCompleto; infEvento.dhEvento := now; infEvento.tpEvento := teCancelamento; infEvento.detEvento.xJust := Justificativa; infEvento.detEvento.nProt := strProtocolo; end; EnviarEvento(iNumeroLote); Configuracoes.Arquivos.Salvar := True; Configuracoes.Arquivos.SalvarEvento := true; Configuracoes.Arquivos.PathNFe := EnderecoDiretorioXML; Configuracoes.Arquivos.PathEvento := EnderecoDiretorioXML; Configuracoes.Arquivos.EmissaoPathNFe := True; NotasFiscais.GravarXML(EnderecoDiretorioXML); reportDanfe.ImprimirDANFEPDF();