Painel de líderes

Boa tarde pessoal, Atualizei agora para revision 24372 e funcionou beleza ! Obrigado Italo !

Boa tarde Ramalho, Ao usar o libWinCrypt utilize também o xsLibXml2 e não o xsMsXml.

Boa tarde Dercide, Favor atualizar os fontes e faça um novo teste.

Obrigado por sua resposta!

Bom dia Dercide, Fiz um teste usando o Delphi 7 e consegui reproduzir o erro. Já estamos trabalhando para resolver o problema.

Sobre o Gmail. Veja também uma outra opção para criar uma senha específica para o seu aplicativo que usa o ACBrMail. Fazer login com senhas de app: https://support.google.com/accounts/answer/185833

Olá, Muito obrigado pela contribuição. (TK-2285) Mas veja que esse campo mudou de posição conforme a: LEIAUTES DO eSOCIAL - Versão S-1.0 (consolidada até NT nº 03/2021). Tópico relacionado aqui: Na verdade, acabei de subir uma atualização das documentações do nosso SVN que agora está atualizada até a NT 04/2021. Queira reavaliar sua sugestão por favor.

Boa tarde, A Secretaria de Estado da Fazenda de São Paulo, através do Portal Nacional da Nota Fiscal Eletrônica (NF-e) informa que estará operando em contingência. SEFAZ/SP, Em 23/01/2022 a partir das 06:00 até 23/01/2022 as 18:00, manutenção programada do ambiente de autorização de DF-e da SEFAZ São Paulo. Durante esse período a emissão em documentos em servidor em ambiente normal, poderão não ser autorizadas, nesse caso necessário emissão em contingência caso aberta pela Sefaz Estadual. Fonte : Portal da Nota Fiscal Eletrônica (fazenda.gov.br)

Terminei o código para o button13 do teste que anexei (Consulta Lista de Boletos Inter) que ainda não estava pronto: procedure TForm1.Button13Click(Sender: TObject); var JsonStreamRetorno,JsonStreamEnvio: TStringStream; lista1:tstringlist; valor:real; texto:string; Parametros:string; begin Memo1.Clear; lista1:=tstringlist.create; JsonStreamRetorno := TStringStream.Create(''); lista1.text:='';//memo3.text; JsonStreamEnvio := TStringStream.Create(lista1.text); IdHttp1.Request.CustomHeaders.Clear; IdHTTP1.Request.CustomHeaders.Add('Content-Type: application/json'); IdHTTP1.Request.CustomHeaders.Add('x-inter-conta-corrente: '+conta_corrente); Parametros:=''; Parametros:=Parametros+'?filtrarPor=TODOS'; Parametros:=Parametros+'&dataInicial=2020-01-01'; Parametros:=Parametros+'&dataFinal=2020-08-14'; Parametros:=Parametros+'&ordenarPor=SEUNUMERO'; try IdHTTP1.Get('https://apis.bancointer.com.br:8443/openbanking/v1/certificado/boletos'+Parametros , JsonStreamRetorno); except on E:EIdHTTPProtocolException do memo1.Lines.add(IdHTTP1.ResponseText+#13#10+e.ErrorMessage) else showexception(exceptobject, exceptaddr); end; memo1.Lines.Add('Código de retorno: '+inttostr(IdHTTP1.ResponseCode)); memo1.Lines.Add(''); if JsonStreamRetorno.DataString<>'' then Memo1.Lines.add(JsonStreamRetorno.DataString); if IdHTTP1.ResponseCode<>200 then showmessage('Transação não pode ser inicada ('+inttostr(IdHTTP1.ResponseCode)+').'); end; obs: esse foi um teste inicial, por isso tem algumas variaveis declaradas que não tem uso. obs: lembrando que de acordo com o manual do Inter os boletos lançados no dia de hoje não aparecem na listagem, somente os anteriores. Já na consulta individual aparece.

Primeiro tem que criar os arquivo do certificado. No exemplo que vou postar tem que colocar no formcreate o numero da conta e o caminho de 3 dos arquivos criados. No memo3 tem que substituir alguns campos com os dados corretos: 1) Crie o aplicativo dentro do banco Inter a) Digite o seguinte comando no console (evite acentos): openssl req -new -newkey rsa:2048 -nodes -keyout nomearquivo.key -out nomearquivo.csr b) Nos campos solicitados, insira as informações: Country Name (código do país): as duas letras que representam o país internacionalmente. Ex: BR é Brasil State or Province Name (nome completo do estado): ex. Goias Locality Name (nome completo da cidade): ex. Goiania Organization Name (a razão social completa da sua empresa): ex. SuaEmpresa Organizational Unit Name (número de aplicação): copie a chave exclusiva gerada pelo Inter e cole-a no campo. Este é o "Número de aplicação" e é formado por letras, números e separado por hífens. Common Name (nome comum - campo opcional): o nome de domínio totalmente qualificado, ou URL que você deseja proteger. Exemplo: SEUDOMINIO.COM.BR E-mail Address (endereço de e-mail): insira seu e-mail A Challenge Password (uma senha forte): crie uma senha forte para este SSL c) Abra a CSR em um editor de texto e copie todo o texto gerado. d) Cole o texto gerado no campo "Assinatura do certificado (CSR)" e clique em "Confirmar". 2) Espere receber o e-mail do Inter avisando que sua aplicação foi Aprovada. Apos aprovação acesse suas aplicações no site do Inter e clique na seta que aparece do lado esquerdo no dome da aplicação. Clique no icone da nuvem para baixa o certificado (.crt). 3) Faça a seguinte conversão com o arquivo baixado: openssl x509 -inform PEM -in nomearquivo.crt > nomearquivo-publicchave.pem 4) Com o arquivo .KEY gerado anteriormente no passo 1 openssl rsa -in nomearquivo.key -text > nomearquivo-privatechave.pem BoletoInterAcbr.rar Desenvolvi tudo hoje... Ainda tem muito a fazer para uma implementação, mas como não conheço a fundo os moldes dos fontes do Acbr acho que alguém pode fazer bem melhor. ja tinha pensado o mesmo kkk