icozeira

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

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.

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?

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.

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.

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.

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

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.

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

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.

EMBarbosa Boa tarde, Vou atualizar e checar se corrige o problema

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

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.

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

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:

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.

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?

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

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.

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

Elton boa tarde, Vou tentar.

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

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.

Obrigado Pessoal.

Acabei de fazer a atualização e instalação do ACBr. E, está apresentando este erro quando tento compilar meu executável.