Dangelo2010

Teria alguma sit ou manual para homologação do AutoTEF para uso?

Boa noite! O AutoTEF já esta pronto para teste ou ainda não?

Sim Pode fechar eu consegui entender e ajustar aqui. Fiz assim e deu certinho. Registro vários boletos em menos de 1 minuto. Obrigado! procedure TFBoletoAutomatico.ACBrBoletoAntesAutenticar(var aToken: string; var aValidadeToken: TDateTime); begin aToken := sToken; aValidadeToken := sExpira; end; procedure TFBoletoAutomatico.ACBrBoletoDepoisAutenticar(const aToken: string; const aValidadeToken: TDateTime); begin sToken := aToken; sExpira := aValidadeToken; end;

Como eu uso esses dois eventos procedure TFBoletoAutomatico.ACBrBoleto1AntesAutenticar(var aToken: string; var aValidadeToken: TDateTime); begin end; procedure TFBoletoAutomatico.ACBrBoleto1DepoisAutenticar(const aToken: string; const aValidadeToken: TDateTime); begin end;

Obrigado!

Eu não expliquei direito, desculpe Nesse caso ai eu estou gerando um boleto e registrando ele online

@Daniel InfoCotidiano, mim tire um duvida por favor Cada boleto que tento validar eu faço assim, esta correto? Ou seja eu Limpo "FACBrBoleto.ListadeBoletos.Clear" While FDMReceber.Eof = False Do Begin Application.ProcessMessages; Gauge.Progress := Gauge.Progress + 1; If (FDMReceberNOSSO_NUMERO.AsString = '') And (FDMReceberTOTAL_BOLETO.AsFloat > 0) And (FDMReceberMES_ANO.AsString <> '') Then Begin FACBrBoleto.ListadeBoletos.Clear; Titulo := FACBrBoleto.CriarTituloNaLista; Titulo.Vencimento := FDMReceberDATA_VENCIMENTO.AsDateTime; Titulo.DataDocumento := FDMReceberDATA_EMISSAO.AsDateTime;

Isso não e de hoje, já estou a 1 semana assim. Porem hoje eu esgotei e vim pedir ajuda Vou entrar em contato com eles. Obrigado

De 10 boletos marcados para validar, somente valida 4, no quinto ele ja da mensagem. Ai tenho que esperar 1 minuto para validar mais 4, e assim vai. Ou seja, 4 boletos por minuto somente

Mesma mensagem 'Falha na Autenticação: HTTP_Code=429 Erro=' Será que estou fazendo algo errado?

Bom dia! estou gerando os boletos do banco inter, porem quando vou gerar mais de 4 boletos eu recebo essa mensagem 'Falha na Autenticação: HTTP_Code=429 Errp=', depois de 1 minuto eu gero mais 4. como posso resolver isso e gerar mais de 4 boletos em menos de 1 minuto?

@Daniel InfoCotidiano Boa noite! Eu testei aqui a baixa dos boletos Santander por tipo tpConsultaDetalhe e vieram certinho. Porem pela tpConsulta ele diz que não foi implementado. mais para mim um funcionando já resolve Obrigado!

Tranquilo!

Tem como sim, mais eu fiz direto em produção Vou te mandar Enviado

Bom dia! Estou realizando uma consulta de baixa dos boleto do banco santander, porem no log consta que foi LIQUIDADO, porem não consigo ver pelo componente, o valor pago retorna zero Boleto.Configuracoes.WebService.Filtro.Clear; Boleto.Configuracoes.WebService.Filtro.indicadorSituacao := isbBaixado; Boleto.Configuracoes.WebService.Filtro.indiceContinuidade := 300; Boleto.Configuracoes.WebService.Operacao := tpConsultaDetalhe; Boleto.Enviar; RetornoDetalhe := Boleto.ListaRetornoWeb[Z]; For Z := 0 To Pred(Boleto.ListadeBoletos.Count) Do Begin If (RetornoDetalhe.DadosRet.TituloRet.ValorPago > 0) Then Begin .... End; End;

Obrigado! Achei que o problema era aqui no meu computador Valeu

Bom dia! tem varios links que não estou conseguindo acessar estou com mensagem de erro "Algo deu errado. Por favor, tente novamente."

Não deu certo, pois ele faz o download novamente e alimenta wSL.LoadFromFile(wArq, TEncoding.UTF8);

Você fala de excluir o arquivo ACBrNCM.json que esta na pasta?

wSL.LoadFromFile(wArq, TEncoding.UTF8); fiz assim tambem e nao deu certo

Tranquilo Até dessa forma eu fiz mais não resolveu // Tente ler com ISO-8859-1 (ou ajuste se precisar de outra codificação) wSL.Encoding := TEncoding.GetEncoding(28591); // ISO-8859-1 wSL.LoadFromFile(wArq); // Se você tiver certeza da codificação correta, pode ajustar isso FileText := wSL.Text; // Se a leitura estiver errada, você pode tentar uma codificação diferente if ContainsStr(FileText, 'Caracteres estranhos') then begin // Tente uma codificação alternativa se necessário wSL.Encoding := TEncoding.GetEncoding(1252); // Windows-1252 wSL.LoadFromFile(wArq); FileText := wSL.Text; end; // Converta para UTF-8 se necessário FileText := TEncoding.Convert(TEncoding.GetEncoding(28591), TEncoding.UTF8, TEncoding.GetEncoding(28591).GetBytes(FileText)); wJson := CriarEValidarJson(FileText);

Eu vi aqui que dentro do arquivo json esta certinho, so quando vem para o grid que fica assim function TACBrNCMs.CarregarCache: String; var wArq: String; wSL: TStringList; wJson: TACBrJSONObject; wDataCache: TDateTime; xData: string; begin Clear; wJson := Nil; Result := EmptyStr; wArq := CacheArquivo; if (wArq = EmptyStr) or (not FileExists(wArq)) then Exit; try wSL := TStringList.Create; try wSL.LoadFromFile(wArq); // aqui ja vem com os caracteres wJson := CriarEValidarJson(wSL.Text); try xData := TratarCampoData(wJson.AsString['DataCache']); wDataCache := StringToDateTimeDef(xData, 0, 'dd/mm/yyyy'); if (CacheDiasValidade > 0) and (DaysBetween(Now, wDataCache) > CacheDiasValidade) then begin DeleteFile(wArq); Exit; end; Result := wSL.Text; finally wJson.Free; end; finally wSL.Free; end; except DeleteFile(wArq); end; end;

Estou com o mesmo problema, meu Delphi e o 11

Entendi, valeu

Boa tarde! Teria alguma documentação sobre broadcast?