Fernando Rodrigo

ótimo, valeu @BigWings

estou precisando importar alguns CT-e par meu sistema e ja faço isso com nota fiscal usando a função ACBrNFe1.NotasFiscais.LoadFromFile(OpenDialog1.FileName); No CT-e existe essa mesma função igual da nota fiscal ? Fico grato

bom dia a todos, tambem estou precisando pegar o nosso numero no arquivo de retorno, so que não esta funcionando, vem com zero var_nossoNumero := ACBrBoleto1.Banco.MontarCampoNossoNumero(ACBrBoleto1.ListadeBoletos[i]);

fiz isso mas não deu certo, vou anexar o arquivo de retorna para ver estou usando dessa forma var_nossoNumero := ACBrBoleto1.Banco.MontarCampoNossoNumero(ACBrBoleto1.ListadeBoletos[i]); IEDCBR4516503202113708.ret

pessoal, estou fazendo o retorno para o banco do brasil no cnab 240 preciso pegar o nosso numero por completo, so que esta vindo somente uma parte dele e sem o digito conforme abaixo 0010001300001T 020184060000001074482 142481121570 70000056539-03 quando é retornado so vem o valor 12157 e sem o digito existe alguma forma de pegar o nosso numero por completo ? que seria o codigo do convenio + o nosso numero + digito que ficaria 142481121570

eu tambem ate hoje não consegui colocar para rodar, ja criei as chaves e nada de rodar

bom dia pessoal, deu certo com a dica la no grupo do telegran, era a dll que estava errada,

fiz todas as configurações e a mensagem é a mesma

Estou usando o DEMO em um cliente so que na minha maquina envia o e-mail normal, mas na maquina do cliente não envia de forma alguma. Ja foi no gmain e coloquei as opções de software menos seguros, ja copiei as dll para a mesma pasta e não consigo enviar de forma alguma, sempre aparece a mensagem abaixo O estranho que na minha maquina roda normal, so no cliente que não. Ja foi no firewall para ver se tem algo bloqueando e nada Alguem ja recebeu essa mensagem ?

problema resolvido com a ajuda do @FGGLUIZ, estranho pq se eu informar os dados do cedente no final da geração do arquivo ele da esse erro, se informar no inicio gera certo os arquivos muito obrigado pelo ajuda @FGGLUIZ

estranho no demo tambem ocorre o mesmo problema procedure TfrmDemo.Button5Click(Sender: TObject); var I: Integer; NrTitulos: Integer; NrTitulosStr: String; Convertido: Boolean; begin NrTitulos := 10; NrTitulosStr := '10'; Convertido := true; ACBrBoleto1.Cedente.FantasiaCedente := 'Nome Fantasia do Cliente'; repeat InputQuery('ACBrBoleto','Número de Boletos a incluir',NrTitulosStr); try NrTitulos := StrToInt(NrTitulosStr); except Convertido:= false; end; until Convertido; for I := 1 to NrTitulos do begin With ACBrBoleto1.CriarTituloNaLista do begin With ACBrBoleto1.Cedente do begin {Dados do cedente - Loja} CodigoTransmissao := '11'; TipoInscricao := pJuridica; {CNPJ} CNPJCPF := '34954837000191'; Nome :='RMP AUTO PECAS LTDA'; CodigoCedente := '55395'; Convenio := '3210690'; Modalidade := '19'; // Variação Carteira := '17'; Logradouro :='AV. CONSOLACAO N 835'; NumeroRes := ''; Complemento := ''; Bairro := 'CIDADE JARDIM'; Cidade := 'GOIANIA'; UF := 'GO'; CEP := '74425535'; Agencia :='1840'; AgenciaDigito := '6'; Conta :='64516'; ContaDigito := '8'; ResponEmissao := tbCliEmite; TipoCarteira := tctRegistrada; TipoCarteira := tctRegistrada; CaracTitulo := tcSimplesRapComReg; end; LocalPagamento := 'Pagar em qualquer banco'; //MEnsagem exigida pelo bradesco Vencimento := IncMonth(EncodeDate(2020,12,10),I); DataDocumento := EncodeDate(2020,10,15); NumeroDocumento := PadRight(IntToStr(I),8,'0'); EspecieDoc := '2'; Aceite := atSim; DataProcessamento := Now; NossoNumero := IntToStrZero(I,8); SeuNumero := IntToStrZero(I,8); ACBrBoleto1.Banco.TamanhoMaximoNossoNum := Length(NossoNumero); ValorDocumento := 100.35 * (I+0.5); Sacado.NomeSacado := 'FERNANDO RODRIGO DE JESUS'; Sacado.CNPJCPF := '47854871191'; Sacado.Logradouro := 'AV. PIO XII'; Sacado.Numero := '618'; Sacado.Bairro := 'CIDADE JARDIM'; Sacado.Cidade := 'GOIANIA'; Sacado.UF := 'GO'; Sacado.CEP := '74425010'; ValorAbatimento := 10; ValorMoraJuros := 0.05; DataAbatimento := Vencimento-5; Instrucao1 := '00'; Instrucao2 := '00'; with ACBrBoleto1.Banco do begin TipoCobranca := cobSantander; Carteira := '17'; end; end; end; end;

ele ja chega errado, ja deu um clear, ja baixei os componentes novamente, ja desinstalei e instalei novamente mas sempre vem errado

ja faço dessa forma, mas continua o mesmo problema

mesmo jeito fazendo a alteração ACBrBoleto.Cedente.CaracTitulo := tcSimplesRapComReg; // Simples com Registro ACBrBoleto.Cedente.TipoCarteira := tctRegistrada;

ainda não, talvez alguem ja passou por isso e ja tenha alterado a unit

veja esse outro print, esta setado certo tcSimplesRapComReg mas ele so passa no tcSimples no primeiro registro, a partir do segundo ele passa normal

vejam como fica, o primeiro registro sempre passa na linha tcSimples Dai os proximos registros gera normal

estou homologando cnab 240 do santander com carteira simples tenho 5 títulos para enviar, com cobrança simples (Rápida com registro), conforme layout abaixo Nota 5: TIPO DE COBRANÇA REMESSA: '1' = Cobrança Simples (Sem Registro e Eletrônica com Registro) '3' = Cobrança Caucionada (Eletrônica com Registro e Convencional com Registro) ‘4’ = Cobrança Descontada (Eletrônica com Registro) '5' = Cobrança Simples (Rápida com Registro) ‘6’ = Cobrança Caucionada (Rápida com Registro) Estou configurando da seguinte forma os títulos ACBrBoleto.Cedente.CaracTitulo := tcSimplesRapComReg; Todos os 5 títulos estão passando na rotina normal, so que na unit (ACBrBancoSantander.pas) para validar o tipo de cobrança, o primeiro título sempre entra como tcSimples, sendo que passei padrão como tcSimplesRapComReg, o restante dos títulos vai como tcSimplesRapComReg function TACBrBancoSantander.DefineCaracTitulo(const ACBrTitulo: TACBrTitulo): String; begin with ACBrTitulo do begin case CaracTitulo of tcSimples : Result := '1'; {Cobrança Simples (Sem Registro e Eletrônica com Registro)} tcCaucionada : Result := '3'; {Cobrança Caucionada (Eletrônica com Registro e Convencional com Registro)} tcDescontada : Result := '4'; {Cobrança Descontada (Eletrônica com Registro)} tcVinculada, tcDireta, tcSimplesRapComReg : Result := '5'; {Cobrança Simples (Rápida com Registro)} tcCaucionadaRapComReg: Result := '6'; {Cobrança Caucionada (Rápida com Registro)} { TODO : 8 = Cobranca Cessao (Eletronica com Registro) } else Result := '1'; end; end; end;

bom dia, como irei informar o codigo 5 A opção ACBrBoleto.Cedente.TipoCarteira := tcSimplesRapComReg; não tem no componente, ja atualizei e compilei tudo novamente e da erro [Error] Gera_Arquivo_Banco.pas(1742): E2010 Incompatible types: 'TACBrTipoCarteira' and 'TACBrCaracTitulo' Nota 5: TIPO DE COBRANÇA REMESSA: '1' = Cobrança Simples (Sem Registro e Eletrônica com Registro) '3' = Cobrança Caucionada (Eletrônica com Registro e Convencional com Registro) „4‟ = Cobrança Descontada (Eletrônica com Registro) '5' = Cobrança Simples (Rápida com Registro) „6‟ = Cobrança Caucionada (Rápida com Registro)

Quais desses campos tenho que informar la no componente ACBrBoleto1.Cedente.CedenteWS.ClientID := 'eyJpZCI6IjdhYjA3YmMtMmVjNS00MGMxIiwiY29kaWdvUHVibGljYWRvciI6MCwiY29kaWdvU29mdHdhcmUiOjExNTA1LCJzZXF1ZW5jaWFsSSW5zd0'; ACBrBoleto1.Cedente.CedenteWS.ClientSecret := 'eyJpZCI6ImJjMzY5ZjEtYTBlZS00MjZmLWFkODUtMzc2MjMzOCIsImNvZGlnb1B1YmxpY2Fkb3IiOjAsImNvZGlnb1NvZnR3YXJlIjoxMTUwNSwic2VxdWVuY2lhbEluc3RhbGFjYW8iOjEsInNlcXVlbmNpYWxDcmVkZW5jaWFsIjoxLCJhbWJpZW50ZSI6ImhvbW9sb2dhY2FvIiwiaWF0IjoxNjAyODgwMzI2Nzg4fQ'; ACBrBoleto1.Cedente.CedenteWS.Scope := 'cobranca.registro-boletos'; ACBrBoleto1.Cedente.CedenteWS.KeyUser := 'jd402299';

vc gerou essas chaves de homologação ou produção, pq o pessoal do banco me passou o link abaixo para fazer o cadastro https://developers-piloto.bb.com.br/#/menu/credenciais

mesmo problema tenho que passar o certificado também ?

@José M. S. Junior fiz igual vc passou so que deu outro erro, coloquei os fontes se vc puder dar uma olhada para ver onde esta o problema, pq as chaves e a chave J estão todas corretas Delphi.zip

Esse erro esta retornando na unit ACBrBoletoW_BancoBrasil..pas function TBoletoW_BancoBrasil.GerarTokenAutenticacao:String; begin result:= ''; if Assigned(OAuth) then begin if OAuth.GerarToken then result := OAuth.Token else raise EACBrBoletoWSException.Create(ClassName + Format( S_ERRO_GERAR_TOKEN_AUTENTICACAO, [OAuth.ErroComunicacao] )); end; end; Essa função acima que faz a validação do token, esta na unit ACBrBoletoWS.pas o token esta chegando sempre em branco, onde tenho que preencher ele ? function TOAuth.GerarToken: Boolean; begin if ( Token <> '' ) and ( CompareDateTime( Expire, Now ) = 1 ) then //Token ja gerado e ainda válido Result := True else //Converte Basic da Autenticação em Base64 Result := Executar( 'Basic ' + String(EncodeBase64(AnsiString(FClientID + ':' + FClientSecret))) ); end;

agora com esse tratamento que vc fez @Renato Rubinhoda para saber onde é o problema