[Sugestão de alteração no ACBrPIXCD do BBrasil.]

Bom dia Pessoal,
No exemplo de geração do ACBrPIXCD (Lazarus) não consegui encontrar nenhum método para fazer o cancelamento de um Pix Criado/Solicitado.
O apelido que deram para isso é Revisao de Cobranca.
Um Pix solicitado e não pago, permite ser cancelado alterando o status dele para: REMOVIDA_PELO_USUARIO_RECEBEDOR;
Estou desenvolvendo em Delphi o Pix (ACBr) para o B Brasil e consegui fazer na minha aplicação esse cancelamento.
Entretanto, na geração dessa solicitação de cancelamento tive que fazer uma alteração na Unit ACBrPIXPSPBancoDoBrasil.pas para não perder a compatibilidade com outros bancos
O BB tem algumas particularidades no uso dos métodos Http.
Na procedure TACBrPSPBancoDoBrasil.QuandoReceberRespostaEndPoint tive que fazer um desvio p/alterar o código do HTTP de resposta.
Estou anexando a unit para os Colegas analisarem e se possível proceder a alteração no SVN.
Espero não ter feito besteira. rsrsrssrs
Meu código está funcionando perfeito aqui.

ACBrPIXPSPBancoDoBrasil.pas

[ACBrPIXCD Retorno Testes do BB]

Pessoal
Eu novamente. rssrsrrsrs
Não precisa fazer qualquer conversão dessa função.
Ela funciona perfeitamente em Delphi.
Aliás, nem necessita dela em Delphi para mostrar o retorno da Api.
Lindo.
Funcionou perfeitamente minha cobrança.
Muito obrigado a todos e desculpa os posts indevidos.

[ACBrPIXCD Retorno Testes do BB]

Pessoal descobri o problema da tal chave Dict.
Na verdade quero informar que essa bendita chave dict nada mais é do que a Chave Pix.

Quando Eu carregava os dados no componente ACBrPixCD informava a chave e por um lapso meu, achei que não precisaria informar novamente durante a criação da Cobrança Pix. Barrigada mesmo.
Após informar a chave na criação da cobrança recebi o retorno http 201 (sucesso).

Entretanto, estou precisando da ajuda dos Colegas para fazer a conversão de uma função que é chamada logo após o retorno do WS (chamada na linha 841 do Formulário FrPrincipal em Lazarus)
Ela faz a formatação em Json através do Lazarus.
Aqui a chamada:
mCriarCobrancaImediata.Lines.Text := FormatarJSON(ACBrPixCD1.PSP.epCob.CobGerada.AsJSON);
Esta é a função:

function TForm1.FormatarJSON(const AJSON: String): String;  (linha 1608 do formulário FrPrincipal em Lazarus)
{$IfDef FPC}
var
  jpar: TJSONParser;
  j: TJsonObject;
{$EndIf}
begin
  Result := AJSON;
  {$IfDef FPC}
  try
    j := TJSONObject.Create();
    try
      Result := j.Decode(Result);
    finally
      j.Free;
    end;
    jpar :=TJSONParser.Create(Result, [joUTF8]);
    try
      Result := jpar.Parse.FormatJSON([], 2);
    finally
      jpar.Free;
    end;
  except
    Result := AJSON;
  end;
  {$EndIf}
end;

Alguém com conhecimento conseguiria converter essa function para o Delphi (ela está em Lazarus) p/me auxiliar?

[ACBrPIXCD Retorno Testes do BB]

Daniel,

Não consegui em Lazarus não.
Meu conhecimento em Lazarus é zero.
Estou carregando a unit.pas (FrPrincipal.pas) no Delphi mesmo e tentando adivinhar +- como está o form.
Fiz um post no forum do BB (https://app.developers.bb.com.br) e estou aguardando a resposta deles.
Assim que me retornarem, informo aqui.

De toda maneira, muito obrigado pela  atenção.

[ACBrPIXCD Retorno Testes do BB]

Daniel bom dia...
Obrigado pela resposta.
Antes que me esqueço.
Não é pq posto a noite que precisam responder a noite. rsrsrsrs
Vê se dorme cara. KKKK
Qto ao detalhe do Pix BB estou enviando o developer_key, o Client_Id e o Client_Secret.
Esses são os dados que o BB pede.
Mas, estou postando no Forum deles esse retorno pra ver o que está acontecendo.
No debug do acbr está gerando o token beleza.
Mas, retorna essa msg ninja na requisição.
Quando tiver a resposta e conseguir sanar o problema, informo aqui.

 

[ACBrPIXCD Retorno Testes do BB]

Estou tentando implementar em Delphi o ACBrPIXCD para o Banco do Brasil.
Na tentativa de envio da criação de uma cobrança estou recebendo esse retorno Json:
{"type":"","title":"CHOM00000066060841910101","status":4764161,"detail":"O campo chave dict não é válido."}
Estou usando uma chave Pix indicada para uso em homologação pelo site de desenvolvedores do BB.
Tbm usando as credenciais fornecidas pelo site para homologação.

 

[DANFSe NFSe Não Gera PDF com nome alterado na propriedade NomeDocumento]

Bom dia,

Necessito salvar os arquivos PDFs das NFSes emitidas, em determinadas situações, com nome diferenciado do padrão do ACBr.

Uso o Fortes.

Tentei alterando a propriedade do componente ACBrNFSe.DANFSE.NomeDocumento para o nome desejado, mas, a geração do PDF não obedecia essa mudança.

Verificando o código da Unit ACBrNFSeDANFSeRLClass.pas o componente travava o valor com o numero da nota e desprezava a alteração.

Fiz uma pequena alteração na procedure TACBrNFSeDANFSeRL.ImprimirDANFSePDF(NFSe: TNFSe = nil);

Estou postando o ajuste.

Caso concordem, solicito fazer o commit.

ACBrNFSeDANFSeRLClass.pas

[ConsultaCadastro]

Bom dia Pessoal,

Postei uma msg para o Italo, mas, pelo que o BigWings está me informando RR está fora da brincadeira.

De toda maneira muito obrigado ao Italo e também ao BigWings pela atenção.

[ConsultaCadastro]

Estou tentando fazer a consultacadastro no meu sistema e está retornando sempre a rejeição 265.
Estou anexando um xml ped-cad-soap para análise.
Se alguém puder me auxiliar nessa tarefa, agradeceria muito.

20190515214009-ped-cad-soap.xml

[Tag vICMSSubstituto - Estado RR]

EmBarbosa Boa noite,

Desculpe a demora.
Isso tudo porque uso maquina virtual e sempre faço uma cópia da ultima versão.
Além disso, atualizo com o Instalador do ACBr para maior segurança.

Mas, deu tudo certo.

Gerou as notas corretamente no ambiente de Produção.
Pode fechar o tópico, por favor.

E, muito obrigado pela atenção.

[Tag vICMSSubstituto - Estado RR]

EMBarbosa Boa tarde,

Vou atualizar e checar se corrige o problema

 

[Tag vICMSSubstituto - Estado RR]

Pessoal 
Vai ser muito difícil o pessoal administrar essas alterações que estão para ocorrer na NFe/NFCe.
Cada Estado está dando um tratamento diferenciado para cada Tag.
Pior de tudo é que funciona como um relógio em Homologação e não funciona em Produção.
Vai ser um apocalipse no dia 07 de maio.
Para resolver meu problema tive que fazer uma gambiarra gigante.

Vou postar a Unit PCNNFeW que alterei.
Só não sei se tem como deixa-la de maneira mais usável.
Meus parcos conhecimentos não deixaram progredir nessa tarefa.

Vou deixar para alguém mais conhecedor para tentar dar uma solução melhor.

 

pcnNFeW.pas

[Tag vICMSSubstituto - Estado RR]

Italo Boa tarde

Já fiz isto no ForcarGerarTagRejeicao938 para nunca (informei no post inicial).
Só consegui enviar uma nota 55 de Combustível em Produção comentando todos os campos vICMSSubstituto da Unit  PCNNfeW do ACBr.

[Tag vICMSSubstituto - Estado RR]

Felipe Eu sempre utilizo o instalador ACBrInstall_Trunk2.exe.
Além disso, apago todos os arquivos antigos.

 

[Tag vICMSSubstituto - Estado RR]

Fiz a configuração do componente a NFe para ForcarGerarTagRejeicao938 = fgtNunca;
Mesmo assim o ACBr está gerando a Tag vICMSSubstituto para o ICMS cstRep60.
No Estado de Roraima está aceitando em Homologação,mas, em Produção não consegue enviar.

Apresenta este erro no site do validador do XML da Sefaz do RS -> enviNFe/NFe[1]/infNFe/det[1]/imposto/ICMS/ICMSST/vICMSSubstituto;
 

 

A resposta do WS é esta:

[EFD Contribuições - Versão 1.28 - Testes]

Juliomar boa noite.
Atualizei o componente completo e fiz o teste.
Funcionando perfeito.

Utilizei um banco de dados de um Cliente que tem movimentações com os registros M215, M615 e o 1050.
Todos gerados com sucesso e validados pelo PVA.

Muito obrigado pela atenção e pela ajuda.

[EFD Contribuições - Versão 1.28 - Testes]

Elton bom dia

Estou tentando gerar um arquivo com a versão nova e estou encontrando um erro quando dou o seguinte comando:
with ACBrSPEDPisCofins1.Bloco_1.Registro1050New do

debuguei e o problema ocorre na Unit ACBrEPCBloco_1.pas no  Add desta função

function TRegistro1050List.New: TRegistro1050;
begin
  Result := TRegistro1050.Create;
  Add(Result);
end;

Dá erro de access violation;

Vc tem idéia do que pode estar ocorrendo?

 

 

 

[EFD Contribuições - Versão 1.28 - Ajustes]

Prezado Elton,

Fiz alguns ajustes na Unit ACBrEPCBlocos.pas para fazer as conversões de String p/Enumerado dos novos códigos criados na Versão 1.28.

Isto p/facilitar no momento de fazermos a leitura e evitar o uso de cases muito grandes.

Verifique se está de acordo.

 

ACBrEPCBlocos.pas

[Guia Prático da EFD Contribuições – Versão 1.28]

Elton boa noite

Eu é que agradeço a paciência de estar revisando tudo.
Já atualizei e agora estou ajustando o meu sistema para contemplar essas alterações e em seguida proceder os testes.

Conclamo ao Pessoal da Comunidade para conferirmos se realmente está atendendo a versão 1.28 do Manual.
Qualquer problema reporto aqui.

[Guia Prático da EFD Contribuições – Versão 1.28]

Elton boa noite.

Depois de levar muito tapa (rsrsrsrs) segue as Units que fiz alterações.

Peço gentilmente que faça uma varredura completa e minuciosa para depois validar (commitar) os arquivos.

ACBrEPCBloco_1.pas

ACBrEPCBloco_1_Class.pas

ACBrEPCBloco_M.pas

ACBrEPCBloco_M_Class.pas

ACBrEPCBlocos.pas

ACBrSpedPisCofins.pas

[Guia Prático da EFD Contribuições – Versão 1.28]

Elton boa tarde,

Vou tentar.

[Guia Prático da EFD Contribuições – Versão 1.28]

Caro Elton,

Segue 3 Units que fiz algumas alterações.
Faça uma checagem para verificar se não fiz muita besteira.

Me retorne se for necessário.

ACBrEPCBloco_1.pas

ACBrEPCBloco_M.pas

ACBrEPCBlocos.pas

[Guia Prático da EFD Contribuições – Versão 1.28]

De acordo com o novo Guia Prático da EFD Contribuições Versão 1.28 a partir dos fatos gerados em Janeiro de 2019 houve algumas alterações na geração do arquivo, dentre elas estão:

1)Nova Versão;

2)Criado 3 Campos nos Registros M210 e M610;

3)Criado novos Registros M215, M615 e 1050;

Além de outras pequenas mudanças.

Alguém está fazendo essas alterações no Componente?

Estou perguntando porque não sou indicado para fazer essas alterações por falta de conhecimento mesmo. Mas, poderia auxiliar criando as propriedades nas Classes ou algumas tarefas básicas.
Só não fiz ainda porque me preocupa acabar fazendo um trabalho que alguém já esteja desenvolvendo e ficar redundante.

 

 

[Erro na Compilação após Atualização do ACBr]

Obrigado Pessoal.

[Erro na Compilação após Atualização do ACBr]

Acabei de fazer a atualização e instalação do ACBr.

E, está apresentando este erro quando tento compilar meu executável.