[email protected]

não tem arquivo .ini com endereços.

Não tenho alterações locais. Enviando para produção eu já tinha testado, porém curiosamente funcionou corretamente na minha máquina (na Alemanha), mas não funcionou com os mesmos dados no cliente conectando de Brasília, dando um outro erro, que não é esse do serviço indisponível. O erro que aparece me sugere que o endereço do serviço em homologação esteja desatualizado no ACBR, ou que o serviço esteja fora do ar. O cliente em questão voltou para o regime do simples nacional, então essa questão não tem prioridade no momento. Caso ocorra em algum outro lugar, eu aviso aqui. Muito obrigado pela atenção!

Cidade é Brasília/DF. O provedor foi definido automaticamente. Os seguintes valores foram definidos: Geral.SSLLib := libOpenSSL; Geral.SSLXmlSignLib := xsLibXml2; WebServices.SSLType := LT_TLSv1_2; Os demais valores não foram definidos manualmente. Agradeço a atenção!

Quando enviada a NFS-e em ambiente de homologação, dá o erro: EACBrXmlException with message 'EndTag: '</' not found Olhando o StackTrace, vejo uma mensagem de "Service unavailable". O XML da NFS-e enviada está anexo. O que fazer? NFS enviada.xml

As primeiras notas também foram emitidas pelo web Service. Não entendo o que acontece, pra mim parece um problema lá no WS.

Obrigado pela rápida resposta. Veja, que conforme abaixo, a empresa já está cadatrada. E também foram emitidas anteriormente 2 NFS-e distintas nessa empresa.

Muito obrigado! Assim também funciona, com o código abaixo, não precisando modificar um aquivo .ini. Porém não funciona a consulta direta com a chave de acesso, exatamente como você mencionou. with FNfs.NotasFiscais.Items[0].NFSe do begin if FNfs.Configuracoes.WebServices.Ambiente = taProducao then Link := 'https://df.issnetonline.com.br/online/NotaDigital/VerificaAutenticidade.aspx' // Link := 'https://df.issnetonline.com.br/online/NotaDigital/VerificaAutenticidadeQRCode.aspx?%ChaveAcesso%' else Link := 'https://www.issnetonline.com.br/homologaabrasf/online/NotaDigital/VerificaAutenticidade.aspx'; // Link := 'https://www.issnetonline.com.br/homologaabrasf/online/NotaDigital/VerificaAutenticidadeQRCode.aspx?%ChaveAcesso%'; Link := StringReplace(Link, '%ChaveAcesso%', Self.GetChaveAcesso, [rfReplaceAll]); {$ifdef DEBUGx} Clipboard.AsText := Link; {$endif} end;

A nota anexa é emitida com sucesso em ambiente de homologação, porém não é emitida em ambiente de produção, retornando o erro "E138 - Usuário não autorizado a realizar o serviço." Vejam que o XML é idêntico, exceto naturalmente o número do RPS e a assinatura. O certificado usado para envio é o mesmo, tanto em produção como homologação. O provedor é o ISSNet, para Brasília - DF. XML's de envio da nota enviada em homologação e produção em anexo, assim como respectivos retornos. Já enviei mensagem para [email protected], porém eles não respondem. Agradeço a ajuda! NG Produção NFS enviada.xml NG Produção NFS retorno.xml NG Homologação NFS enviada.xml NG Homologação NFS retorno.xml

O QR Code não é gerado na NFS-e do DF, que usa o provedor ISSNet. Olhando o arquivo ACBrNFSeXServicos.ini, verifiquei que não existe o valor definido para ProLinkURL ou HomLinkURL em [5300108] (UF=DF). Como sei que o seguinte link funciona: https://df.issnetonline.com.br/online/NotaDigital/VerificaAutenticidadeQRCode.aspx?ZWANsozCE+yITmDMWCNVk59Gnc/cP0aCI8SxJ6/bxeY20atuNgogxJrOFKp+w+D406XodhoWno/n1FmJVCX66GABdzbzI1QJa/UakozVh1A= Suponho que tenham de ser feitas as seguintes alterações em ACBrNFSeXServicos.ini ProLinkURL=https://df.issnetonline.com.br/online/NotaDigital/VerificaAutenticidadeQRCode.aspx?%ChaveAcesso% HomLinkURL=https://www.issnetonline.com.br/homologaabrasf/online/NotaDigital/VerificaAutenticidadeQRCode.aspx?%ChaveAcesso% Não sei se na URL somente precisa ser passada a chave de acesso ou algo mais Tem como alguém verificar e alterar isso no citado arquivo .INI e também gerar o arquivor .RES correspondente?

Obrigado! Porém faltaram as alterações em ACBrBancoBRB.pas, conforme solicitadas pelo próprio BRB, que exige o código 13 para "Não receber após o vencimento".

Sem a alteração no arquivo ACBrBoleto.pas, quando o boleto só pode ser pago até o vencimento, é mostrado "Não Receber após 0 dias", que não é muito clara. "Não receber após o vencimento" seria uma mensagem mais correta neste caso. At,

O BRB também exige que quando a data limite para o pagamento é a data do vencimento, que o código da instrução seja 13 (barrar pagamento de título após o vencimento). Para isso tem de alterar: if (DataLimitePagto > 0) then begin wDiasPagto:= IntToStrZero(DaysBetween(Vencimento, DataLimitePagto),2); if (Instrucao1 = '00') then begin if Vencimento <> DataLimitePagto then Instrucao1:= '94' else Instrucao1 := '13'; Prazo1 := wDiasPagto; end else if (Instrucao2 = '00') then begin if Vencimento <> DataLimitePagto then Instrucao2 := '94' else Instrucao2 := '13'; Prazo2 := wDiasPagto; end end; Anexo o arquivo alterado. Segue mensagem do BRB com a solicitação. · Forma correta: Corrigir ainda no arquivo de remessa, as seguintes posições: a. 188 a 195: inserir data maior ou igual a atual. b. 276 a 277: inserir cód. 13 referente ao barramento do titulo após o vencimento (corrigir a data no boleto também). Após as devidas correções, enviar a massa de testes novamente com os boletos e as suas respectivas remessas. Atenciosamente, Danielle dos Santos Equipe Cobrança BRB BRB - Banco de Brasília S.A. DISEP/ SUSEB/ GEBAN * [email protected] ACBrBancoBRB.pas Também é necessária a seguinte alteração em ACBRBoleto.pas (arquivo alterado anexo). if DataLimitePagto <> 0 then begin if DataLimitePagto > Vencimento then AStringList.Add(ACBrStr('Não Receber após ' + IntToStr(DaysBetween(Vencimento, DataLimitePagto))+ ' dias')) else AStringList.Add(ACBrStr('Não Receber após o Vencimento')); end; ACBrBoleto.pas

A questão do endereço no boleto está correta no ACBr. Faltava informar em Cedente apenas. Fica a única correção até o momento a questão da agência enviada.

Arquivo com a correção anexo. Abaixo a mensagem do BRB. Note que algumas coisas já haviam sido corrigidas na versão corrente no ACBr. Também estão reclamando da falta do endereço do cedente impresso no boleto. Estou dando uma olhada para ver o que se trata também. Obrigado! De: "//GEBAN - Cobrança BRB" <[email protected]>Data: 26 de jan de 2017 14:31Assunto: ENC: Homologação de boletosPara: "[email protected]" <[email protected]>Cc: Thiago, boa tarde. Favor proceder com os seguintes ajustes: 1. No arquivo remessa: a) Campo 13 a 26: inserir apenas os números referentes ao CPF ou CNPJ (ex. para o CPF inserido apenas 95018930144 sem os três zeros finais); Campo 123 a 135: inserir o "seu número" conforme número do boleto respectivo; c) Campo 154 a 157: inserir o número da agência ( ex. 0043); d) Campo 188 a 195: Inserir data de venciemento válida (acima da data atual) e) Caso tenha juros, multa e desconto favor preencher os campos destinados. 2. No recibo do pagador e no boleto: Após ajustes enviar nova massa de testes. Att., André Costa da Silva DISEP/SUSEB/GEBAN - Gerência de Administração de Produtos e Serviços Bancários ACBrBancoBRB.pas

O correto seria colocar PadLeft(Cedente.Agencia, 4, '0') ao invés do valor fixo '0050' no número da agência cobradora. Senão fica incorreto! Tive de alterar localmente conforme pedido pelo BRB. Porém seria certo alterar no fonte SVN linha 321 de ACBrBancoBRB.pas