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,