nildglan

tava sem a horas é isso? vc resolveu seu problema?

Pessoal fiz a atualização do acbr no arquivo ACBrNFeServicos.ini comentando a linha vela e deixando a certa da nfe do estado do pará para rio grande do sul e está dando esse erro veja na imagem

estão atualizados a versão do VersaoQrCode é veqr200

Atualizei acbr hoje compilei novamente com build all e nada mesmo erro Rejeicao: Endereco do site da UF da consulta via QR-Code diverge do previsto estou no Estado do Pará

to com mesmo problema como resolveu?

Pessoal estou tentarndo enviar um NFCe em homologação no Pará e ta dando esse erro Rejeicao: Endereco do site da UF da consulta via QR-Code diverge do previsto

ja atualizei que bom

mais o acbr vai ta atualizado quanto a isso ou vamos ter que mudar algo?

Pessoal com sistema no Pará em setembro o sefaz do pará vai mudar o ambiente da NFe e NFA, temsos que ta ligado, gostaria de saber se tem que mudar o fonte no acbr ? ou tem lugar pra mudar http://sefa.pa.gov.br/index.php/noticias/15474-autorizacao

Na verdade gabriel, não aparece mesagem vinculado e em outro cliente da tudo certo, só nesse cliente que não faz nada ele não está entrando aqui NFe.EnviarEvento(StrToInt(IDLote)); with NFe.WebServices.EnvEvento.EventoRetorno.retEvento.Items[0].RetInfEvento do begin lMsg:= 'Id: ' +Id+#13+ 'tpAmb: ' +TpAmbToStr(tpAmb)+#13+ 'verAplic: ' +verAplic+#13+ 'cOrgao: ' +IntToStr(cOrgao)+#13+ 'cStat: ' +IntToStr(cStat)+#13+ 'xMotivo: ' +xMotivo+#13+ 'chNFe: ' +chNFe+#13+ 'tpEvento: ' +TpEventoToStr(tpEvento)+#13+ 'xEvento: ' +xEvento+#13+ 'nSeqEvento: ' +IntToStr(nSeqEvento)+#13+ 'CNPJDest: ' +CNPJDest+#13+ 'emailDest: ' +emailDest+#13+ 'dhRegEvento: '+DateTimeToStr(dhRegEvento)+#13+ 'nProt: ' +nProt; Application.ProcessMessages; bVinculadoManifesto:=true; lblInfo1.caption:='MANIFESTE VINCULADO...' ; end; nesse código esse é o problema o certificado é o mesmo e cnpj também

foi mal ai, o erro é que não vincula o evento , fica como se fosse manifestada mais não baixa o xml

Pessoal desde semana passada que não consigo manifestar a nfe, estava manifestando e agora não baixa a nfe, veja como estou fazendo / Memo1.Lines.Add( NFe.SSL.SelecionarCertificado); edtDestinatario.Text := NFE.SSL.CertCNPJ; CNPJ := edtDestinatario.Text; Chave := ''; Chave := RetornoNFEChave.Text; idLote := '1'; CNPJ := edtDestinatario.Text; NFe.EventoNFe.Evento.Clear; Result:= Application.MessageBox('Deseja confirma está nota junto a RECEITA FEDERAL?','Confirmação',MB_YESNO+ MB_ICONQUESTION + Mb_DefButton3); case Result of 2: abort; 7: abort; end ; with NFe.EventoNFe.Evento.Add do begin InfEvento.cOrgao := 91;//UFtoCUF('MA');// infEvento.chNFe := Chave; infEvento.CNPJ := CNPJ; infEvento.dhEvento := now; //infEvento.tpEvento := teManifDestConfirmacao; infEvento.tpEvento := teManifDestCiencia; end; NFe.EnviarEvento(StrToInt(IDLote)); with NFe.WebServices.EnvEvento.EventoRetorno.retEvento.Items[0].RetInfEvento do begin lMsg:= 'Id: ' +Id+#13+ 'tpAmb: ' +TpAmbToStr(tpAmb)+#13+ 'verAplic: ' +verAplic+#13+ 'cOrgao: ' +IntToStr(cOrgao)+#13+ 'cStat: ' +IntToStr(cStat)+#13+ 'xMotivo: ' +xMotivo+#13+ 'chNFe: ' +chNFe+#13+ 'tpEvento: ' +TpEventoToStr(tpEvento)+#13+ 'xEvento: ' +xEvento+#13+ 'nSeqEvento: ' +IntToStr(nSeqEvento)+#13+ 'CNPJDest: ' +CNPJDest+#13+ 'emailDest: ' +emailDest+#13+ 'dhRegEvento: '+DateTimeToStr(dhRegEvento)+#13+ 'nProt: ' +nProt; end; RetornoNFE.Edit; RetornoNFEManifestacao.Text := NFe.WebServices.EnvEvento.EventoRetorno.retEvento.Items[0].RetInfEvento.xEvento; RetornoNFE.Post; ShowMessage(lMsg); // nfe.ImprimirEvento; estou no estado do Pará

Pessoal estou tentando enviar uma NFCe e está dando esse erro custom apenas aceitas keycode 2=1, keycode 2 = 0, já desistalei e instalei certificado já atualizei esquemas fiz tantas coisas, alguém já passou por isso?

Juliana é que o cliente cobra o juros dele dessa forma ai 0,034, agora me fala uma coisa pra ficar 1% mensal como eu faria ai?

Pessoal meu tópico foi fechado mais, não resolvir meu problema quanto ao juros do boleto do banco do bradesco estou fazendo dessa forma veja if dtArquivoTIPO_JUROS.AsString ='1' then //Juros Diario begin Titulo.CodigoMoraJuros := cjValorDia; Titulo.ValorMoraJuros := dtArquivoJUROS_BOLETOS.AsFloat; end else if dtArquivoTIPO_JUROS.AsString ='2' then //Juros Mensal begin Titulo.CodigoMoraJuros := cjTaxaMensal; Titulo.ValorMoraJuros := dtArquivoJUROS_BOLETOS.AsFloat; end else if dtArquivoTIPO_JUROS.AsString ='3' then //Isento begin Titulo.CodigoMoraJuros := cjIsento; Titulo.ValorMoraJuros := 0; end; só que o juro confifurado esta dessa forma o valor 0,034 ai se eu deixar assim ele só aparece assim no arquivo remessa COBRAR JUROS DE R$ 0,03 POR DIA DE ATRASO PARA PAGAMENTO A PARTIR e na coluna de valores assim 0000000000003 se eu tirar o juros e colocar assim 0,34 fica assim COBRAR JUROS DE R$ 0,34 POR DIA DE ATRASO só que não posso colocar assim tenho que colocar o certo 0,034 como resolver isso?

Pessoal estou usando AcbrNfe para tirar NFCe mais ta dando muito erro de timeout no envio e as vezes de mais no recebimento já aumentei, fiz todas configuração que vir na internet com Internet Explorer, agora depois de um dia todo agora ta passando o envio e ta demorando muito receber , muito tempo e da erro de Lote em processamento então pergunta são duas, porque tanto erro de timeout nesse componente ? e porque essa demora em receber e esse erro de Lote em processamento? veja as configuração ACBrNFe.Configuracoes.WebServices.TimeOut := 25000; ACBrNFe.Configuracoes.WebServices.AguardarConsultaRet := 13000; ACBrNFe.Configuracoes.WebServices.IntervaloTentativas := 3000; ACBrNFe.Configuracoes.WebServices.Tentativas := 20; ACBrNFe.Configuracoes.WebServices.AjustaAguardaConsultaRet := True; alguém sabe porque isso, é um dos problemas maiores que tem de nota, os clientes fica a flor da pele e querendo trocar de sistema, alguém sabe de vez o motivo disso sou do estado do pará

achei mudou para MostraPreview e MostraSetup

aonde está essas propriedades ACBrNFeDANFEFR1.ShowDialog ACBrNFeDANFEFR1.MostrarPreview tenho monte de fonte com isso depois que atualizei hoje não tem mais nada, onde configur isso?

pessoal pelo que vir a variação que tava errada tava 001 e acho que é 19 bem eu acho agora queria saber isso aqui > Segmento S < Lote 0001 > -------------------------------------------------------------------- Deve ser removido: Não será tratado pelo Banco. é pra remover aonde?

Pessoal o banco me retonou o segunte erro depois de ter homologado veja Arquivo analisado conforme convênio acima Efetue o(s) ajuste(s) listado(s): > Header de Arquivo < Lote 0000 > -------------------------------------------------------------------- Posições 033 a 052: Preencher com o código do convênio: '002594019001417019 ' CONSTA 07.0 Código do Convênio no Banco 033 a 052 (20)A G007 > [002594019001417001 ] > Header de Lote < Lote 0001 > -------------------------------------------------------------------- Posições 034 a 053: Preencher com o código do convênio: '002594019001417019 ' CONSTA 11.1 Código do Convênio no Banco 034 a 053 (20)A G007 > [002594019001417001 ] > Segmento S < Lote 0001 > -------------------------------------------------------------------- Deve ser removido: Não será tratado pelo Banco. Após regularização da(s) pendência(s), reenviar o arquivo para validação. Gentileza, ao responder, conservar histórico desse e-mail. Caso não seja identificado retorno desta mensagem após 5 dias corridos (incluso este) o protocolo será encerrado em nossos sistemas. e minha remessa vou anexar só que olhando para o código do acbr no fonte do banco do brasil ta muito diferente veja PadLeft(OnlyNumber(CNPJCPF), 14, '0') + // 19 a 32 -Número de inscrição do cedente PadLeft(Convenio, 9, '0') + '0014' + // 33 a 45 - Código do convênio no banco [ Alterado conforme instruções da CSO Brasília ] 27-07-09 ACBrBanco.ACBrBoleto.ListadeBoletos[0].Carteira + // 46 a 47 - Carteira aModalidade + ' ' + // 48 a 52 - Variacao Carteira e meu acbr ta atualizado porque será que ta assim? R20_4_12_2018.txt

sim resolvir onte a noite muito obrigado, eu tirei esse ACBrNFe.NotasFiscais.GravarXML da contigencia deixei só no Gerarxml que fiz

não é isso eu removir do exception e continua gerando dois, e to debugando e ta indo somente um vez para GerarNFCe agora quando chega nesse procedimento aqui ACBrNFe.NotasFiscais.GravarXML; ele gera os dois 00991200000000000000650000000000001076922530-nfe.xml 15181217543691000172650010000012469000012467-nfe.xml

esse procedimento aqui está gravando dois ACBrNFe.NotasFiscais.GravarXML baixo de else begin Application.ProcessMessages; StatusPrincipal('Validando e assinando NFCe...',rAviso); FrmAreaPrincipal.txtInfomacao.Lines.Add('Validando e assinando NFCe.'); SetStatusNFCe(0,sCupomEnviarNFce,sStatusNFce); // enviada Codigo.txt

veja meu procedimento e como eu chamo ... Moderação: Editado

Pessoal estou fazendo dessa forma if EnviarNFCeOff then begin Ide.tpEmis := teOffLine; end else begin if not InternetGetConnectedState(@Flags, 0) then Ide.tpEmis := teOffLine else Ide.tpEmis := TpcnTipoEmissao(Configuracao.Geral.FormaEmissao); if Ide.tpEmis = teOffLine then FrmAreaPrincipal.txtInfomacao.Lines.Add('Tipo emissão: Contingência'); end; e está gerando dois xml na minha pasta porque?