carlos batista

ok obrigado.

estou tendo problemas ao validar o arquivo c240, não estou conseguindo corrigir o problema, alguém tem uma ideia de como corrigir esses erros, olhei no manual e aparentemente esta ok, mas quando passa pelo validador da esse erros. cb110801.rem

estou implementando o componente gerar boletos, quando gero o arquivo remessa c400 aparentemente esta ok mas ,quando gero c240 esta me retornando um monte de erros, na primeira imagens e do tipo c400 e na segunda e c240, nesse site que faco a validação https://gmtedi.bb.com.br/validaleiaute/?_ga=1.33425406.1984275204.1487957184#/validadorleiaute para o arquivo c240 e https://wspf.bradesco.com.br/wsValidadorTeleBanco/ValidadorRemessa.aspx para c400, Relatorio.10-08-2020 13_55_07.pdf cb100801.rem

rapaz c e fera, funcionou perfeitamente obrigado.

ok

ha esqueci de mencionar que no demo também sai duplicado

Olhei mas não vi diferença no preenchimento ```while not FDataSet.Eof do begin LCodReceber := FDataSet.FieldByName('CodReceber').AsInteger; Self.BuscarTitulos(LCodReceber); LTitulo := FBoleto.CriarTituloNaLista; LVencimento := FDataSet.FieldByName('Venc').AsDateTime; with LTitulo do begin if Vencimento < DataAtualServidor then LVencimento := IncWorkingDay(DataAtualServidor, 1); Vencimento := LVencimento; DataDocumento := DataAtualServidor; NumeroDocumento := FQuery3.FieldByName('NumeroDocumento').AsString; if Naoestavazio(Sodigitos(FQuery3.FieldByName('Parcela').AsString)) then Parcela := FQuery3.FieldByName('Parcela').AsInteger; EspecieDoc := FEspecieDoc; EspecieMod := 'R$'; Aceite := atNao; if FAceiteDocumento = 'SIM' then Aceite := atSim; DataProcessamento := DataAtualServidor; LTamanhoNossoNumero := FBoleto.Banco.CalcularTamMaximoNossoNumero(FCartteira, FQuery3.FieldByName('NossoNumeroBolCtrl').Value); Carteira := FCartteira; NossoNumero := PadLeft(FQuery3.FieldByName('NossoNumeroBolCtrl').Value, LTamanhoNossoNumero, '0'); ValorDocumento := FDataSet.FieldByName('Valor').AsFloat; Sacado.NomeSacado := FQuery3.FieldByName('NomeSacado').AsString; Sacado.Pessoa := pFisica; if FQuery3.FieldByName('Tipo').AsString = 'Juridica' then Sacado.Pessoa := pJuridica; Sacado.CNPJCPF := FormataCpfCnpj(OnlyNumber(FQuery3.FieldByName('CNPJCPF').AsString)); Sacado.Logradouro := FQuery3.FieldByName('Logradouro').AsString; Sacado.Numero := FQuery3.FieldByName('Numero').AsString; if EhImprimirCaixaPosta then Sacado.Numero := FQuery3.FieldByName('CxPostal').AsString; Sacado.Bairro := FQuery3.FieldByName('Bairro').AsString; Sacado.Cidade := FQuery3.FieldByName('Cidade').AsString; Sacado.UF := FQuery3.FieldByName('UF').AsString; Sacado.CEP := OnlyNumber(FQuery3.FieldByName('CEP').AsString); Sacado.Email := FQuery3.FieldByName('Email').AsString; if Sacado.Email = EmptyStr then Sacado.Email := FQuery3.FieldByName('Email2').AsString; UsoBanco := FUsoBanco; LocalPagamento := FLocalPagamento; OcorrenciaOriginal.Tipo := FTipoOcorrencia; if Assigned(FMesagemBoleto) then Mensagem.Text := FMesagemBoleto.Text; CodigoMoraJuros := cjTaxaMensal; ValorMoraJuros := FQuery3.FieldByName('Juros_am').AsFloat; ValorDesconto := FQuery3.FieldByName('ValorDesconto').AsFloat; DataMoraJuros := LVencimento; DataDesconto := IncDay(LVencimento - 1); if FDiasProtesto > 0 then DataProtesto := IncDay(LVencimento, FDiasProtesto); CodigoMulta := cmPercentual; PercentualMulta := FQuery3.FieldByName('Multa').AsFloat; FBoleto.AdicionarMensagensPadroes(LTitulo, Mensagem); ArquivoLogoEmp := ExtractFileDir(GetCurrentDir) + '\Imagens\Logo.jpg'; end; FBoleto.ChecarDadosObrigatorios; Self.SalvarNossoNumero(LCodReceber, LTitulo); FDataSet.Next; if (LNome <> FQuery3.FieldByName('NomeSacado').AsString) or (FDataSet.Eof) then begin if FTarefaBoleto = tbImprimeBoletoCompleto then begin FBoleto.ACBrBoletoFC.NomeArquivo := GetUserTempDir + 'Boleto Cobranca ' + FBoleto.ListadeBoletos[0].Sacado.NomeSacado + '.pdf'; Self.Imprimir(); if FEhEnviarEmail then Self.EnviarEmail(); FBoleto.ListadeBoletos.Clear; end; end; LNome := FQuery3.FieldByName('NomeSacado').AsString; end;``` fiz a reinstalação do componente hoje pela manha mas, de qual quer forma verifiquei se tinha alguma alteração

Como faço para corrigir?

estou implementando o boleto mas , no impresso esta saindo duas vezes o valor da multa e juros

Boa tarde @Italo Jurisato Junior . Não tem outro evento mas para tirar a duvidas irei gerar um novo CT-e e tentar novamente

bom dia @Italo Jurisato Junior desculpa a demora no retorno tive que entrar aqui em outro processo.... Fiz a correção, mas esta dando o mesmo erro 1-eve.xml 1-ped-eve.xml

Boa tarde estou com dificuldade para transmitir o evento em questão, não estou conseguindo identificar a onde estou errando. esta dando a segui te mensagem 'erro na regra' , estou fazendo preenchendo dessa maneira esta faltando algo? ACBrCTe.Conhecimentos.Clear; ACBrCTe.EventoCTe.Evento.Clear; with ACBrCTe.EventoCTe.Evento.New do begin infEvento.id := IntToStr(FLot); infEvento.cOrgao := StrToInt(FCodigoOrgao); infEvento.chCTe := FChaveCte; infEvento.CNPJ := SoDigitos(FCNPJ);; infEvento.dhEvento := DataHoraAtualServidor; infEvento.tpEvento := teComprEntrega; infEvento.nSeqEvento := FSequencia; infEvento.detEvento.nProt := FProtocoloAutorizacaoCTe; infEvento.detEvento.dhEntrega := FDataHoraEntrega; infEvento.detEvento.nDoc := FDocumentoPessoaEntrega; infEvento.detEvento.xNome := FNomePessoaEntrega; infEvento.detEvento.latitude := FLatitude; infEvento.detEvento.longitude := FLongitude; LStream := TMemoryStream.Create(); try FImagemComprovanteEntrega.SaveToStream(LStream); infEvento.detEvento.hashEntrega := CalcularHashDados(LStream, FChaveCte); infEvento.detEvento.dhHashEntrega := DataHoraAtualServidor; finally LStream.Free(); end; infEvento.detEvento.infEntrega.Clear; while not dmCTe.sqlCTeNFe.Eof do begin with infEvento.detEvento.infEntrega.New do chNFe := dmCTe.sqlCTeNFechavenfe.AsString; dmCTe.sqlCTeNFe.Next; end; end; if ACBrCTe.EnviarEvento(FLot) then begin with ACBrCTe.WebServices.EnvEvento.EventoRetorno.retEvento.Items[0].RetInfEvento do begin end else raise Exception.Create('Erro ao enviar Comprovante de entrega:' + #13 + 'Status: ' + IntToStr(cStat) + #13 + xMotivo); end; end; 1-eve.xml 1-ped-eve.xml

Bom dia para corrigir esse problema tive que trocar o método ACBrNFe1.EventoNFe.Evento.Add para ACBrNFe1.EventoNFe.Evento.New, no paramento InfEvento.cOrgao sempre vai o código 91 como o Italo Jurisato Junior Informou anteriormente. o código fico mais ou menos assim with ACBrNFe1.EventoNFe.Evento.New do begin InfEvento.id := IntToStr(idLote); InfEvento.cOrgao := 91; InfEvento.chNFe := Chave; InfEvento.CNPJ := CNPJ; InfEvento.dhEvento := StatusServicoNFe.dhEnvioEvento; case CodSit of 1: InfEvento.tpEvento := teManifDestConfirmacao; 2: InfEvento.tpEvento := teManifDestCiencia; 3: InfEvento.tpEvento := teManifDestDesconhecimento; 4: InfEvento.tpEvento := teManifDestOperNaoRealizada; end; if CodSit = 4 then // Nao realizada InfEvento.detEvento.xJust := xJust; end; if not(ACBrNFe1.EnviarEvento(idLote)) then raise Exception.Create('Erro ao transmitir a Manifestação do Destinatário da NF-e! Tente novamente!'); obrigado leandroaoa.

Poise estranho não estar aceitando colocar 91, vou reinstalar do componente.

sim esta atualizado,

entendo isso mas nao tem mais 91 no componente ACBR function TInfEvento.getcOrgao: Integer; // (AC,AL,AP,AM,BA,CE,DF,ES,GO,MA,MT,MS,MG,PA,PB,PR,PE,PI,RJ,RN,RS,RO,RR,SC,SP,SE,TO); // (12,27,16,13,29,23,53,32,52,21,51,50,31,15,25,41,26,22,33,24,43,11,14,42,35,28,17); begin if FcOrgao <> 0 then Result := FcOrgao else Result := StrToIntDef(copy(FChave, 1, 2), 0); end; isso esta em Unit pcnEventoNFe Se eu coloco 91 da esse erro FALHA NA VALIDAçãO DA MENSAGEM DO EVENTO: '91' VIOLATES ENUMERATION CONSTRAINT OF '11 12 13 14 15 16 17 21 22 23 24 25 26 27 28 29 31 32 33 35 41 42 43 50 51 52 53 90'. THE ELEMENT '{HTTP://WWW.PORTALFISCAL.INF.BR/NFE}CORGAO' WITH VALUE '91' FAILED TO PARSE.

Sim esse era o mesmo processo que eu já fazia antes de atualizar o componente, porem nessa nova versão foi removido do enumerado o código 91, mas se tento usar outro esta dando o erro que sitei.

bom dia, Erro ao transmitir o evento: Status: 657 - Rejeição: Código do Orgao diverge do orgao autorizador. não estou conseguindo resolver esse erro, antes eu enviava no Órgão = 91, depois de atualizar o 91 não tem mais, passei a colocar o código do estado que no 51, se não preencho o componente pega da chave mas da o mesmo erro, alguém tem ideia de como corrigir? InfEvento.id := IntToStr(idLote); InfEvento.nSeqEvento := 1; InfEvento.chNFe := Chave; InfEvento.CNPJ := CNPJ; InfEvento.cOrgao := StrToInt(copy(IBGECidade,1, 2)); InfEvento.versaoEvento := ?

era o shemas tinhao alterado o caminho da pasta, obrigado

estou usando os Schemas que esta na pasta Acbr\Exemplos\ACBrDFe\Schemas, pulei esse raise EACBrMDFeException.CreateDef( IfThen(Configuracoes.Geral.ExibirErroSchema, ErroValidacaoCompleto, ErroValidacao)); e a mdfe passou

Bom dia, fiz a atualizaçao do componente e agora esta dando esse erro --------------------------- Debugger Exception Notification --------------------------- Project .exe raised exception class EACBrMDFeException with message 'Falha na validação dos dados do Manifesto: 127 Element '{http://www.portalfiscal.inf.br/mdfe}infMDFeSupl' is unexpected according to content model of parent element '{http://www.portalfiscal.inf.br/mdfe}MDFe'. Expecting: {http://www.w3.org/2000/09/xmldsig#}Signature. '. --------------------------- Break Continue Help --------------------------- sendo que na versão anterior o mdfe com os mesmos dados passa, o que esta faltando para ser preenchido

Você pode fazer o download do XML original (com valor legal) pelo método DistribuicaoDFe (pesquise no fórum, tem muitos tópicos sobre ele). Depois apenas carregar para o componente com ACBrNFe.LoadFromFile(). OK muito obrigado

Se a intenção é apenas importar a nota, porque está gerando outro XML? Sim e Fazer a importação. Estou usando essa function GerarXML(Arquivo: AnsiString; Raiz: string = ''): string, que está na unit uACBrHTMLtoXML, tem outra forma?

Boa tarde. Como fazer para dar entrada de uma nota (NFA-e) importando o pelo numero da chave? tem alguma função no componente que verifica se é uma NFA-e? por que quando o compone-te gera a NFe-e de entrada que foi importada ele altera o xml e o numero da chave. Sou novo, então pode ser que minha duvida não tenha ficado clara então vou mandar o xml originar e o xml gerado na importação. Antes_51181203507415000578558900001071931353168970.xml Depois_51181224967782000109558900001071931353168972-nfe.xml

Bom dia, aproveitando o topo e a experiencia de vocês, como fazer para dar entrado da nota (NFA-e) importando o pelo numero da chave? tem alguma função no componente que verifica se e uma NFA-e, por que quando o compone-te gera uma NFe-e que foi importada ela altera o xml e o numero da chave. Sou novo, então pode ser que minha duvida nao tenha ficado clara então vou mandar o xml originar e depois. Antes_51181203507415000578558900001071931353168970.xml Depois_51181224967782000109558900001071931353168972-nfe.xml