Rafaelbudag

Entendi, muito obrigado

Bom dia @Italo Giurizzato Junior, Mas nesse caso esses campos não deveriam ser alimentados na rotina GerarPrestador da unit ACBrNFSeXGravarXml_ABRASFv2? Fiquei na dúvida porque os campos de endereço do Tomador são preenchidos na rotina GerarTomador da unit ACBrNFSeXGravarXml_ABRASFv2, não deveria funcionar da mesma forma para os dois?

Boa tarde! Tenho um cliente que me questionou sobre a falta dos dados do endereço da empresa dele na impressão da DANFSE. Verifiquei aqui que os dados de endereço do prestador não estão sendo carregados para o XML da nota, na rotina GerarPrestador da unit ACBrNFSeXGravarXml_ABRASFv2 são carregados somente dados como Razão Social e Inscrição Municipal. Quando os dados da nota estão sendo carregados a partir do XML para fazer a impressão da DANFSE, na rotina LerEnderecoPrestadorServico da unit ACBrNFSeXLerXml_ABRASFv2, para preencher o endereço corretamente é necessário que no XML tenha a tag com os dados do endereço. Em anexo estou enviando as rotinas que mencionei acima e também um XML de exemplo que gerei. 804.xml

Bom dia Daniel, Tenta fazer o seguinte procedimento para abrir o arquivo e conferir: Pega o que esta dentro do campo "arquivo" do seu retorno e cola dentro de um arquivo txt e depois muda a extensão para .zip. Após isso importa o arquivo nesse site https://www.base64decode.org/pt/ e decodifica. Ele vai gerar o Zip decodificado e dentro dele vai estar o json já pronto. Foi esse o procedimento que fiz conforme orientação da Sicoob para poder implementar na consulta.

Entendi, vou tentar mudar a forma como carregamos as informações então, obrigado!

Bom dia! Tenho um cliente que me questionou sobre a falta da descrição do código de classificação do serviço na impressão da Danfe da nota fiscal de serviço. Verifiquei aqui que esse campo é carregado do TabServicos.ini, porém é carregado somente se a impressão da Danfe for feita através do XML da nota, se carregarmos os dados diretamente para o componente não passa na rotina para ler o serviço e consequentemente não traz a informação da descrição do serviço. No nosso caso nós carregamos os dados direto da classe para o componente do ACBR, sem utilizar o XML para carregar, teria alguma forma de trazer a descrição ou é obrigatório carregar pelo XML? Em anexo estou enviando um print do campo que estou me referindo e o XML dessa nota. Obrigado! 31394.xml

Boa Tarde, Devido a uma necessidade implementei a parte de consulta via API que não estava disponível com a Sicoob. Vi em outro tópico que havia sido descontinuado pela demora do retorno no processamento da solicitação na Sicoob. Porém desenvolvi essa parte separando as 3 requisições (Solicitação das Movimentações, Consulta dos Arquivos da Solicitação, Consulta por arquivo), sendo assim o desenvolvedor que for utilizar pode tratar o intervalo entre uma requisição e outra. Segue abaixo o meu código das chamadas das funções: var AcBrBoleto: TACBrBoleto; FiltrosAPI : TACBrBoletoWSFiltroConsulta; RetornoAPI : TListaACBrBoletoRetornoWS; VpfLacoArquivos: Integer; begin FiltrosAPI.Clear; FiltrosAPI.indicadorSituacao := TACBrIndicadorSituacaoBoleto.isbBaixado; FiltrosAPI.dataMovimento.DataInicio := VpaDatInicio; // Data de Início FiltrosAPI.dataMovimento.DataFinal := VpaDatFinal; // Data Final AcBrBoleto.Configuracoes.WebService.Operacao := tpFazSolicitacaoConsultaMovimentacao; AcBrBoleto.Enviar; if AcBrBoleto.Configuracoes.WebService.Filtro.CodigoSolicitacaoConsultaMovimentacao > 0 then begin AcBrBoleto.Configuracoes.WebService.Operacao := tpConsultaListaArquivosSolicitacaoMovimentacao; AcBrBoleto.Enviar; RetornoAPI := AcBrBoleto.ListaConsultaRetornoWeb; if (RetornoAPI[0].HTTPResultCode = 400) then begin Sleep(10000); AcBrBoleto.Enviar; RetornoAPI := AcBrBoleto.ListaConsultaRetornoWeb; end; if (RetornoAPI.Count > 0) and (RetornoAPI[0].HTTPResultCode = 200) then begin for VpfLacoArquivos := 0 to RetornoAPI[0].ListaArquivosConsultaMovimentacao.Count-1 do begin AcBrBoleto.Configuracoes.WebService.Operacao := tpConsultaArquivoSolicitacaoMovimentacao; AcBrBoleto.Configuracoes.WebService.Filtro.IDArquivoSolicitacaoConsultaMovimentacao := StrToInt(RetornoAPI[0].ListaArquivosConsultaMovimentacao[VpfLacoArquivos]); AcBrBoleto.Enviar; end; end; Na pasta Fontes/ACBrBoleto alterei os seguintes fontes: ACBrBoleto.pas ACBrBoletoConversao.pas ACBrBoletoWS.pas ACBrBoletoWS.Rest.pas Na pasta Fontes/ACBrBoleto/WS alterei os seguintes fontes: ACBrBoletoRet_Bancoob.pas ACBrBoletoRetorno.pas ACBrBoletoW_Bancoob.pas Seguem em anexo os fontes alterados ACBrBoletoWS.pasACBrBoletoConversao.pasACBrBoleto.pasACBrBoletoWS.Rest.pas ACBrBoletoRetorno.pasACBrBoletoRet_Bancoob.pasACBrBoletoW_Bancoob.pas

Bom dia, testei aqui e deu tudo certo Obrigado!

Bom dia, estou tentando consultar uma nota fiscal de serviço emitida pelo provedor Elotech porém está retornando Access Violation. Essa nota fiscal consta como cancelada na prefeitura e identifiquei que o problema ocorre quando passa na linha destacada abaixo, isso porque no XML que está sendo lido não possui o campo "Confirmacao" que é procurado antes, dessa forma a variável AuxNode fica nil, não tendo como procurar o campo correto para esse XML "ConfirmacaoCancelamento". Se eu for em modo debug e pular a parte do "Confirmacao" funciona certinho. Em anexo estou enviando também como está o XML que está sendo analisado no retorno.

Bom dia Juliomar, Sim, estou informando os dados conforme o tópico Estou enviando em anexo como está a parte do meu código que faz a Consulta de Detalhe Consulta Detalhe ACBrBoleto.txt

Boa Tarde, Após atualizar os fontes, no momento da geração do Token está dando erro 500 - falha na autenticação. Antes da atualização dos fontes, a consulta de detalhe de boleto funcionava normalmente, mas agora ele para na geração do token Se eu for em modo debug, quando entra na function TOAuth.GerarToken, na seguinte linha da o erro abaixo: Linha: Result := Executar('Basic ' + String(EncodeBase64(AnsiString(ClientID + ':' + ClientSecret)))); Erro: Project Eficaz.exe raised exception class EJsonParserException with message 'Expected "{" but found identifier (1, 10)'.

Boa Tarde, Atualizei os fontes, mas não consigo testar o registro de boletos para ver se resolveu a questão do CodigosMoraAceitos. Após atualizar os fontes, no momento da geração do Token está dando erro 500 - falha na autenticação. Se eu for em modo debug, quando entra na function TOAuth.GerarToken, na seguinte linha da o erro abaixo: Result := Executar('Basic ' + String(EncodeBase64(AnsiString(ClientID + ':' + ClientSecret)))); Erro: Project Eficaz.exe raised exception class EJsonParserException with message 'Expected "{" but found identifier (1, 10)'.

Atualizei faz umas 3 semanas. Vou atualizar novamente e já reporto em seguida se resolveu

Boa Tarde, Estou com um problema ao registrar boletos do Sicoob via API. No create da ACbrBancoBancoob.pas a property CodigosMoraAceitos é setada como '012'. Acredito que essa informação é usada para registros via remessa bancária. Porém o WebService da Sicoob requer '123'. O fonte do ACbr já está enviando 1,2 e 3, porém quando entra na validação dos códigos aceitos ele não permite seguir a diante com o registro do boleto. Neste caso, como eu poderia alterar a informação desta property?

No caso eu deixo o campo AcBrBoleto.Cedente.CedenteWS.KeyUser como vazio então pois será gerado pelo componente? Nas configurações padrões a linha mostra o seguinte: AcBrBoleto.Cedente.CedenteWS.KeyUser := Access token (Bearer) portal developpers sicoob;