Painel de líderes

12/08/2020 Regras de validação do MDF-e Integrado - Ambiente de Homologação Comunicamos que as regras de rejeição 725 e 726 referentes ao MDF-e integrado foram reativadas SOMENTE no ambiente de HOMOLOGÇÃO de empresas da SVRS para permitir testes das empresas.

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

Bom dia Juliomar. Fiz o que você sugeriu e na conferencia com o exemplo do ACBR com minha programação acabei encontrando um erro na minha programação. A linha abaixo eu havia configurado de modo errado. ACBrNFe_NFE.Configuracoes.WebServices.UF := DM.tbEmpresaIDUF.Text; // UF do Emitente. Dou por fechado esse tópico. Grato. Att. Gilberto Rezende

Obrigado vou validar isso se por acaso tiver particularidades dai eu terei que criar outra classe ou solicitar para voces né

com 1 serviço 38-env-lot.xmlXML com 2 serviço - 48-env-lot.xml em anexo nfs-e com 1 serviço (OK, envia direitinho), e com 2 serviço o qual da erro -> Valor Total de Servicos nao confere com o enviado

eu imaginei isso tbm, que poderia ser o Certificado, vou tentar reinstalar ele e aviso a Comunidade aqui se deu certo.

O erro é outro faltando informações no xml

Sim usei, Mais atualizei os fontes e reinstalei e agora funcionou, obrigado.

Juliomar, sim, é o campo autoincremento do MYSQL, por fim resolvi fazendo isso mesmo LAST_INSERT_ID e depois mudei para a função FDConnection1.GetLastAutoGenValue() e com isso faço o locate.Mas ainda gostaria de saber uma outra forma que funcionasse sem que precisasse fazer isso.

Resolvido. Muito obrigado pela ajuda de vocês. Abraço, Marcos

Deve ser algo no certificado... Tente re-instalar o driver do mesmo... O ACBr não é mais lento, quando usando o A3

Diego, Se prepara pois tem varias pegadinhas no schema da cidade de Cataguases. Realmente eu gostaria de conversar pessoalmente com o responsável (se podemos chamar de responsável) desse provedor. Os caras mudam o namespace do schema, mudam algumas tags dentro do schema, sinceramente eu não entendo.

Obrigado por reportar. Fechando. Para novas dúvidas, criar um novo tópico.

Não quer contribuir com o ACBr e tentar escrever usando os padrões ou até mesmo postando aqui como fez assim estará ajudando a comunidade

Bom dia Diego, Muito obrigado pela colaboração, assim que possível vou analisar a sua alteração. Acredito ter encontrado uma forma de compatibilizar para todas as cidades desse provedor. Segue os arquivos em anexo para que vocês possam fazer os testes. Cidades.ini VersaTecnologia.ini ACBrNFSeConfiguracoes.pas

Eu utilizo com java o A3, não precisei do numero de série. Só configurei o tipo token ou smartcard. Por isso. Mas show, obrigado novamente pelas explicações.

Boa noite está no svn com a correção para lazarus também. Obrigado favor testar e reportar qualquer coisa

Entendi Obrigado amigo.

Sim só terá que para cada empresa carregar um arquivo ini de configuração antes de fazer as operações ou ter diversos monitores instalado um para cada empresa. Pode é via socket se existir a vpn Mas agora outra coisa que bem me lembro tu programa em delphi então usar os componentes é mil vezes melhor, o monitor foi feito para quem usa outras linguagens agora tu que usa o delphi utilize os componentes

Movi para um tópico adequado. está falando do Sped Fiscal? abre o arquivo ACBrEFDBloco_C_Class.pas e vai na linha 3718 e coloca um ponto de parada e quando gerar veja o que tem ali antes de gerar oarquivo

Oi @manuela Estou anexando os últimos arquivos em XML que eu tenho aqui comigo, só editei uns dados do prestador e tomador, são do fim de julho mas de lá pra cá não tive que mexer mais no conteúdo deles, espero que seja algo referente isso 804-env-lotS.xml 2321UNICA-rps.xml

Ok, testei no D7 e XE6. Funcionou sem problemas. Obrigado.

A verdade é que o suporte está perdido. Pediram para alterar cabeçalho de soap, falaram que era um erro HTTP e TLS...estavam atirando para tudo quando é lado. Encontrei o problema, no início da tag <XML> havia um espaço. Removi e funcionou. Espero que ajude para problemas futuros, NÃO sigam as orientações do suporte da nota control de alterar namespaces para HTTPS.

Boa tarde! Certo, iremos atualizar e testar. Obrigado

RoundABNT da ACBrUtil faz isso.

Já houve relato no fórum dessa opção causar problemas: Se me lembro ela afeta as declarações do tipo packed record que pode ter comportamento diferente de acordo com a opção de compilação. Então sugiro que mantenha no padrão do Delphi (8).

Se você distribui o arquivo do ACBrNFeServicos.ini junto com sua aplicação, sim, basta alterar dessa forma que já estará redirecionando para a SVRS. Se você não distribui o ini e precisa compilar como recurso no executável, precisa: - Alterar o ACBrNFeServicos.ini. - Executar o arquivo Compila_RES.bat para gerar o ACBrNFeServicos.res. - Executar o ACBrInstall_Trunk2.exe para copiar os novos arquivos para a pasta Lib. - Recompilar a aplicação. Provavelmente essa alteração só poderá ser feita no repositório no dia 02/09 já que, pelo aviso, só a partir desse dia a SVRS vai autorizar as NFe do PA.