ademar-datalan

Blz, Agora deu certo, obrigado.

Infelizmente continua com o mesmo erro.

Bom dia, Acabei me passando na configuração. Fiz os ajustes, mas continua dando o mesmo problema, não sei esqueci de mais alguma coisa.

Seguem os arquivos com a imagem da tela do ACBrDemo, o Log e o INI

Usando essa lógica eu teria que criar um objeto com todos os campos da NF-e para fazer a serialização, seria isso?

Tem como mostrar como se faz isso?

Uso o Delphi 10.4

Olá, Gostaria de saber se tem como gerar um JSON com os dados do componente do ACBrNFe e também fazer a leitura de um JOSN e preencher o componente.

Quando gero uma lista de boletos para salvar todos juntos num único arquivo PDF, não está funcionando, só salva um boleto da lista. Fiz um testes com o DEMO e ocorre o mesmo problema. Usei a opção para incluir Vários boletos, inclui 10 boletos E usei a opção de Imprimir Stream, informando um arquivo PDF, só gravou um boleto no arquivo. Atualizei e reinstalei o ACBr hoje pela manhã.

Funcionou, obrigado.

Ao carregar os XML de uma NF-e de entrada, não tem os campos vBCSTREt, pST, vICMSSubistituto, ..., o XML de origem tem essa estrutura NFSe_2890_434775855300017190S00000002890415551619.PDF

Deu tudo certo, obrigado

Está sendo usando num servidor local com o fuso horário correto do Brasil.

Recebemos esse comunicado do suporte do BB ------------------------------------------------------- A data/horário informado não está sendo informado o horário com -3 conforme RFC 3339 UTC - 3 necessário para trazer os dados conforme horário de Brasília, o que pode estar gerando inconsistências. Ao informar a data de início sem o UTC correto, e colocar por exemplo "inicio":"2024-07-14T21:00:00","fim":"2024-07-15T20:59:59 serão apresentadas as transações entre 0h00 de 15/07 às 23h59 de 15/07, e a transação realizada às 21h27 de 15/07 não é exibida. Como não informam o UTC -3, a consulta está trazendo as cobranças realizadas COM UMA DIFERENÇA DE 3 HORAS. O correto para trazer o pagamento informado seria: "inicio":"2024-07-14T21:00:00-03:00","fim":"2024-07-15T20:59:59-03:00 Gentileza ajustar as consultas com UTC -3 conforme exemplo abaixo e refazer a consulta: Fonte:https://publicador.developers.bb.com.br/bucket/Documentacao_API_Pix_v2_pix_74b8abd91c.pdf

Ok, Mas não entendi se nós temos que fazer alguma coisa ou a equipe do ACBr vai fazer os ajustes para que possa ser mantida a compatibilidade?

Bom dia, Teve alguma evolução nesse assunto?

Fizemos o retrocesso para a versão 34464 e algumas anteriores, mas mesmo assim, não funcionou.

Oi, Como eu faço para verificar a versão?

Após a última atualização do ACBr, está ocorrendo algum erro interno no componente que não estamos conseguindo identificar. Esse erro só ocorre no processamento direto no servidor Windows server 2022 na nuvem. Quando a nota é enviada com o método síncrono, ele é autorizada, mas não retorno o código do status, a chave e nem a mensagem. Antes da atualização do ACBr estava tudo funcionando corretamente, não fizemos nenhuma alteração no sistema, apenas compilação e substituição do executável e parou de funcionar, voltando o executável antigo, o processo funciona corretamente. Segue em anexo XML e log gerado pelo componente. 000000000086980-env-lot.xml 000000000086980-pro-lot.xml ErrosAcbr.txt

Olá, Não tenho o delphi 7 para testar, não sei qual seria o comando que deveria se usado nesse caso. ACBrPIXCD.pas

Ao utilizar a rotina de consulta de PIX recebidos, tivemos problemas com o Banco do Brasil, que gerar uma rejeição por não informar corretamente o Time Zone, fizemos um ajuste na função function TACBrPixEndPointPix.ConsultarPixRecebidos, e com esse ajuste deu certo, gostaria que fosse feito ajuste na versão oficial do AcBr. function TACBrPixEndPointPix.ConsultarPixRecebidos(Inicio: TDateTime; Fim: TDateTime; const TxId: String; const CpfCnpj: String; PagAtual: Integer; ItensPorPagina: Integer): Boolean; var s, e: String; RespostaHttp: AnsiString; ResultCode: Integer; begin if (NivelLog > 1) then begin RegistrarLog('ConsultarPixRecebidos( '+FormatDateTimeBr(Inicio)+', '+ FormatDateTimeBr(Fim)+', '+ TxId+', '+CpfCnpj+', '+ IntToStr(PagAtual)+', '+ IntToStr(ItensPorPagina)+' )'); end; Clear; fPSP.PrepararHTTP; with fPSP.URLQueryParams do begin Values['inicio'] := DateTimeToIso8601(Inicio); Values['fim'] := DateTimeToIso8601(Fim); //------- Alterei aqui para resolver por enquanto ---------- Values['inicio'] := Values['inicio'].Replace('Z','-03:00'); Values['fim'] := Values['fim'].Replace('Z','-03:00'); // -------------------------------------------------------- s := Trim(TxId); if (s <> '') then begin Values['txid'] := s; Values['txIdPresente'] := 'true'; end; s := OnlyNumber(CpfCnpj); if (s <> '') then begin e := ValidarCNPJouCPF(s); if (e <> '') then raise EACBrPixException.Create(ACBrStr(e)); if Length(s) < 12 then Values['cpf'] := s else Values['cnpj'] := s; end; if (PagAtual > 0) then Values['paginacao.paginaAtual'] := IntToStr(PagAtual); if (ItensPorPagina > 0) then Values['paginacao.itensPorPagina'] := IntToStr(ItensPorPagina); end; fPSP.AcessarEndPoint(ChttpMethodGET, EndPoint, ResultCode, RespostaHttp); Result := (ResultCode = HTTP_OK); if Result then fPixConsultados.AsJSON := String(RespostaHttp) else fPSP.TratarRetornoComErro(ResultCode, RespostaHttp, Problema); end;

Estou precisando registrar boletos via API do BANRISUL. O link com as instruções é esse: https://developers-openbanking.banrisul.com.br/pages/PORTAL_V1.7.6/docs/clientes-banrisul/api-cobranca-v1.2.0.html Tem como fazer essa implementação? Posso ajudar com os testes.

Ok, Se não tem como fazer, estão pode encerrar o chamado. Obrigado.

Boa tarde italo, tudo bem? Em momento nenhum comentei que as descrições afrontam a Tabela de bandeiras, eu apenas estou pedindo para incluir mais uma opção BANRICOMPRAS seguindo a mesma lógica que já exite hoje, e acredito que esta nova opção, também não afronte Tabela de bandeiras. Desculpe se me expressei mal. Seria mais uma opção nesta função. function BandeiraCartaoToDescStr(const t: TpcnBandeiraCartao): string; begin case t of bcVisa: Result := 'Visa'; bcMasterCard: Result := 'MasterCard'; bcAmericanExpress: Result := 'AmericanExpress'; bcSorocred: Result := 'Sorocred'; bcDinersClub: Result := 'Diners Club'; bcElo: Result := 'Elo'; bcHipercard: Result := 'Hipercard'; bcAura: Result := 'Aura'; bcCabal: Result := 'Cabal'; bcAlelo: Result := 'Alelo'; bcBanesCard: Result := 'BanesCard'; bcCalCard: Result := 'CalCard'; bcCredz: Result := 'Credz'; bcDiscover: Result := 'Discover'; bcGoodCard: Result := 'GoodCard'; bcGreenCard: Result := 'GreenCard'; bcHiper: Result := 'Hiper'; bcJcB: Result := 'JcB'; bcMais: Result := 'Mais'; bcMaxVan: Result := 'MaxVan'; bcPolicard: Result := 'Policard'; bcRedeCompras: Result := 'RedeCompras'; bcSodexo: Result := 'Sodexo'; bcValeCard: Result := 'ValeCard'; bcVerocheque: Result := 'Verocheque'; bcVR: Result := 'VR'; bcTicket: Result := 'Ticket'; bcOutros: Result := 'Outros' end; end;

Boa tarde Antonio Carlos, Acho que eu não expliquei direito o caso, pois essa alteração não afeta em nada a NT que vc indicou, até porque fosse possível apenas as descrições tradicionais como Visa, Master, Amex,.., não poderiam ter, nesta mesma função, descrições como: Result := 'Mais'; Result := 'MaxVan'; Result := 'Policard'; Result := 'RedeCompras'; ETC... Esta função complementa a descrição que é impressa no DANFE da NFC-e, e é chamada dentro de outra função ManterDescricaoPagamentos. Favor revisar novamente. Obrigado funcao 2.txt