TiagoTecchio

Bom dia, Você está se referindo a um efeito indesejado chamado "flickering". Tentou ativar o DoubleBuffered do componente ou do parent do componente? Por exemplo o TPanel. Tentou substituir o componente de GIF por uma TProgressBar?

OK, testado. Funcionando.

Boa tarde Elias. Grato pelo pronto retorno. Neste meio tempo alterei o fonte desabilitando a consistência e consegui gerar a cobrança. A título de informação, a API v2 do BB está intermitente, verificando o forum deles me deparei com várias pessoas relatando 404 ao criar o PIX. Na insistência, a cobrança é criada. Obrigado.

Boa tarde. Estou tentando validar a v2 da API do BB e me deparei com as situações abaixo (em produção). Veja que configurei para utilizar arquivo PFX, mas o componente não reconhece a configuração corretamente. Atualizei os fontes hoje de manhã. Estou deixando passar alguma coisa?

Boa tarde. Anexo está o arquivo Infisc.LerXml.pas com ajustes para ler as tags do grupo dadosDaObra e tag empreitadaGlobal. Infisc.LerXml.pas

Boa tarde Italo, Teste OK. Obrigado pelo retorno.

Boa tarde Italo, Anexo está um XML de exemplo com os dados. Obrigado. NFS-Sai-15630.xml

Boa tarde, Avaliando algumas situações em clientes que utilizam nota fiscal de serviço para o município de Caxias do Sul (provedor Infisc) me deparei com o seguinte. O método LerEnderecoTomador na unit Infisc.LerXml invoca a função ObterNomeMunicipio para recuperar o nome do município do tomador. Mas por quê? Pelo debug que fiz, este método internamente chama uma API do IBGE e que eventualmente me causa problemas. Então não vejo motivos para que seja chamada a API já que o XML que está sendo carregado já contém a tag xMun (o nome do município). Seria possível ter uma property para não executar este trecho de código? Ou modificar para ler diretamente a tag xMun?

Me parece erro de scope. Tentou revisar no ambiente de desenvolvimento do BB? Geralmente é "cob.read cob.write pix.read pix.write"

Boa tarde, Qual a mensagem de erro? Precisa detalhar melhor. As DLLs OpenSSL estão atualizadas? A URL em "/Endereco.php" suporta o formato que você está tentando postar? Se usar o synapse diretamente funciona?

Bom dia, Seria interessante se você postasse um trecho do seu código. Eu tenho feito o registro online de boletos do BB sem problemas e capturado o EMV para geração do QrCode. Contudo não gero a impressão dos docs usando o ACBrBoleto devido a customização do cliente.

Bom dia, Também cometi este erro, então creio que você esteja utilizando as propriedades erradas. Se fizer uma pesquisa na unit ACBrBoletoW_BancoBrasil_API.pas no método TBoletoW_BancoBrasil_API.GerarMulta(AJson: TJsonObject) verá que deve utilizar as propriedades PercentualMulta, MultaValorFixo e DataMulta. No caso dos juros são as propriedades ValorMoraJuros e CodigoMora. A propriedade CodigoMoraJuros:=cjTaxaDiaria que você utilizou não tem efeito. Como esta classe AcbrBoleto gera muita abstração e para vários bancos, é importante sempre olhar "dentro do capô".

Boa tarde Italo, Atualizado, funcionando. Obrigado pela ajuda.

Bom dia Italo, Fiz um update dos fontes contudo o método TNFSeR_Infisc.LerServicos está com campos faltando. Eu havia incluído a leitura da Alíquota e Base de INSS, o Valor da Redução de ISS e corrigido a leitura do campo ValorIRRF. Você consegue revisar por gentileza?

Boa tarde Italo, Grato pelo retorno. Atualizei os fontes conforme sua orientação, porém precisei realizar alguns ajustes na unit Infisc.LerXml (anexo), referente a campos relacionados a alíquota e valor de retenção de INSS, valor de redução de ISS e valor do IR. Adicionei um tratamento com try...except ao ler o campo nFat pois como descrevi anteriormente, o provedor permite que este campo seja string, assim acabo recebendo notas com barras, traço e pontos. Infisc.LerXml.pas

Bom dia Italo, Realizei alguns ajustes nas units do provedor Infisc para tratar corretamente a questão da retenção de ISS e a leitura das propriedades relativas a retenção de IR, PIS, COFINS e CSLL, pois não estavam completamente implementadas. Outro ponto é referente ao grupo de totais da Nota, onde a tag vtNF não coincidia com o total da tag vServ, conforme o manual. Infisc.LerXml.pas Infisc.GravarXml.pas

Boa tarde, Detectei uma situação de incompatibilidade entre o componente ACBrNFSeX e o xml gerado para o provedor Infisc para a cidade de Caxias do Sul. Ao tentar ler um XML já autorizado utilizando o método LoadFromFile uma exceção é disparada. Debugando os fontes me deparei com a seguinte situação. O componente ao ler a tag <nFat> que está dentro da tag <fat> espera que o número da fatura seja um inteiro, porém o provedor permite informar um valor alfanumérico de até 15 caracteres. Penso que a solução seria modificar a property Parcela da classe TParcelasCollectionItem na unit ACBrNFSeXClass.pas de integer para string. Seria possível este ajuste? NFS-Sai-700.xml

Pelas imagens você está usando o ambiente de homologação do BB, e pela minha experiência é instável (ou não prioritário). Erro 500 é algo dentro do servidor. Não parece o seu caso, mas já recebi este tipo de erro sem mensagem alguma de explicação ao enviar caracteres como (% e &) nas requisições das APIs de PIX. Na produção está normal, nenhum cliente reportou problema.

Esqueci de mencionar, mas pela mensagem o seu erro refere-se ao scope. Veja na imagem anexada o "pulo do gato"

Respondendo a sua dúvida: sim, eu já implementei com sucesso o uso da API do BB tanto com o ACBR quanto sem ele (fazendo as requisições manualmente usando o Synapse). Creio que as suas configurações estejam incorretas, deve atentar ao fato de você ter que criar uma aplicação no portal de desenvolvedores do BB, o seu cliente deve autorizar o uso para então ter acesso as credenciais (devKey, ClientID e ClienteSecret). O BB é de longe o banco mais fácil de ser implementado.

Bom dia, Seria uma consulta individual de boleto? Se for o caso tenho feito assim e funciona: //FGerador é uma instancia do acbrBoleto FGerador.ListadeBoletos.Clear; FGerador.Configuracoes.WebService.Filtro.Clear; FGerador.Configuracoes.WebService.Operacao := tpConsultaDetalhe; FGerador.Configuracoes.WebService.Filtro.indiceContinuidade := 0; FGerador.Configuracoes.WebService.Filtro.indicadorSituacao := TACBrIndicadorSituacaoBoleto.isbBaixado; if FTipoData = 1 then begin FGerador.Configuracoes.WebService.Filtro.dataVencimento.DataInicio := FDataInicial; FGerador.Configuracoes.WebService.Filtro.dataVencimento.DataFinal := FDataFinal; end else begin FGerador.Configuracoes.WebService.Filtro.dataMovimento.DataInicio := FDataInicial; FGerador.Configuracoes.WebService.Filtro.dataMovimento.DataFinal := FDataFinal; end; if FH.StrOk(FCPF) then FGerador.Configuracoes.WebService.Filtro.cnpjCpfPagador := FCPF; // doc => TACBrTitulo; doc := FGerador.CriarTituloNaLista; doc.Carteira := '17'; doc.NossoNumero := FCds.FieldByName('APINUMERO').AsString; // nosso número ok := FGerador.EnviarBoleto; if ok and (FGerador.ListaRetornoWeb.Count > 0) then // etc....

Boa tarde Italo, Atualizado, testado e funcionando. Obrigado pelo presteza.

Bom dia Italo, Estou tentando debugar os métodos para resolver a questão. Não sei se ajuda mas me parece que o método TACBrNFSeProviderInfisc.ProcessarMensagemErros não está lendo corretamente os retornos do webservice. Anexei um print do xml que é gerado para a consulta de RPS logo após o envio. No print do código percebi que a função FindAllAnyNs não consegue achar as tags <motivos> e <mot>

Boa tarde, Atualizei esta semana o ACBR e estou observando um comportamento estranho relacionado ao componente AcbrNfseX. Já havia posto em produção e validado o provedor Infisc para a cidade de Caxias do Sul/RS (https://www.projetoacbr.com.br/forum/topic/66217-nfsex-provedor-infisc-caxias-do-sulrs/?page=2) Porém após esta última atualização alguns procedimentos não estão funcionando corretamente. 1 - a função TNotaFiscal.GravarStream não está mais gerando um stream válido. Observei que a propriedade FXmlNfse está sempre em branco, o que não ocorria anteriormente. Para contornar, utilizei a função NotasFiscais.Items[0].GerarXML 2 - a propriedade acbrNfseX.WebService.Emite.Erros.Count está sempre retornando 0 após acionar o método Emitir, mesmo que rejeições ocorram no envio. Grato por qualquer ajuda. 20220621152816-lista-nfse-con-lot.xml 20220621152815-con-lot.xml 128-env-lot.xml

Bom dia, Você está passando todos os parâmetros necessários? Por exemplo o Scope, que no caso de registro de boletos deveria ser "cobrancas.boletos-info cobrancas.boletos-requisicao". Os fontes estão atualizados?