AnDes Sistemas

Prezados Srs. Juliomar e Daniel Boa Noite! Eu efetuei uma conferência detalhada no código-fonte atual e não constatei nada de anormal no componente que exibe o Código de Barras. Com relação à sugestão que o Sr. Daniel fez sobre porque não utilizo AcbrBoleto o problema é que este sistema ainda está no Delphi 5. Eu desenvolvi este Erp em 1999 e ele cresceu muito nos anos 2000, de tal forma que eu não tive tempo de migrá-lo para versões mais recentes do Delphi ( embora possua licença recente do Rad Studio ). Este sistema tem cerca de 800 formulários! Esta é a razão que ainda não pude utilizar recursos do Acbr neste Erp. Hoje eu tive uma idéia : abri um chamado no Setor de Tecnologia do Banco que meu cliente utiliza na Cobrança Bancária, e solicitei ajuda deles no sentido de me apontar quais características do Código de Barras eu terei que mudar para resolver este problema. Muito obrigado pela ajuda dos senhores. Acredito que podem fechar este tópico!

Companheiros Boa Noite! Gostaria de solicitar sua ajuda! Eu possuo um ERP desenvolvido em Delphi. Nele existe um recurso para emissão de Boletos. Como é um recurso antigo, esta geração do Boleto foi efetuada utilizando ReportBuilder ( na época eu não conhecia o AcbrBoleto ). Estou constatando o seguinte problema com os boletos : a)-Se digitada a Linha Digitável no Aplicativo do Banco ou no Caixa Eletrônico é possível baixar o boleto normalmente. b)-Se passar o Código de Barras no Caixa Eletrônico é possível baixar o boleto normalmente. c)-Porém se tentar ler o Código de Barras no Celular não se consegue efetuar a baixa. Sabem os companheiros o que pode estar ocasionando este problema e como resolver ? Grato

Companheiros Boa Tarde! Eu optei por consultar somente as NCMs que estão diretamente vinculadas com Produtos Acabados e Materiais. Desta forma o processo ficou mais rápido, pois estou desconsiderando NCMs que não estão em uso. Dá para perceber claramente que o problema está no tempo que o servidor "DeOlhoNoImposto" deve estar sobrecarregado. Depois pretendo criar um recurso definitivo para realizar este tipo de consulta diretamente em nosso servidor, sem depender do Servidor deles. Sra. Juliana, por favor, pode fechar o tópico. Muito obrigado pela atenção!

Companheiros Boa Tarde! Há alguns anos eu desenvolvi uma pequena aplicação que tem por finalidade realizar automaticamente o seguinte trabalho : a)- Verificar os Estados das Empresas cadastradas em um Banco de Dados b)- Verificar quais são os Códigos de NCM também cadastrados no Banco de Dados c)- E finalmente , utilizando o componente ACBrIBPTax, pesquisar no Site : www.deolhonoimposto.com.br os valores da Tabela IBPT ( que atualmente é a : Versão 24.1.C ) d)- E atualizar os valores no Banco de Dados Este processo é realizado sempre que existir nova Tabela de Valores IBPT disponível. Em média os Bancos de Dados de cliente possuem cerca de 10000 NCMs cadastradas! Este processo de consulta e atualização não era muito demorado ( por volta de 2 horas ). Porém, recentemente os clientes estão reclamando lentidão nesta pesquisa, com a aplicação ficando até mais de 1 dia sem concluir toda a lista de NCMs. Por acaso algum dos companheiros passou por este problema e conseguiu alguma maneira de otimizar esta pesquisa ? Grato por sua ajuda!

Sr. Victor Para qual email eu devo enviar mensagem para obter um orçamento ?

Sr. Victor Eu acabei de enviar novo email para : [email protected] sob o Título : SOLICITAÇÃO DE AUXILIO : CONSULTA NOVA API DOS CORREIOS.

Sr. Victor Eu encaminhei mensagem no email : [email protected] mas não obtive resposta.

Bom Dia! Eu tentei implementar de acordo com o sugerido, mas estou me deparando com o seguinte problema : No componente RestClient eu configurei da seguinte forma : Porém, quando comando Execute no componente : RestRequest aparece a seguinte mensagem de erro : Sabem me dizer o que pode estar ocasionando este erro ? Grato

Sr. Vitor Na verdade, o que deve estar ocorrendo é que eu sou inexperiente em Desenvolvimento Web. Pode ser que esteja faltando passar conteúdo para alguma propriedade do AcbrHTTP que eu não estou sabendo e isto estar sendo a causa do retorno da Api dos Correios não estar vindo no padrão que eu preciso. Vou continuar tentando aqui para ver se acho o que está ocasionando o problema. Agradeço muito por sua ajuda.

Sr. Victor : Sim, no PostMan rodando a rotina recebemos este resultado : { "coProduto": "04669", "pcBase": "15,43", "pcBaseGeral": "16,24", "peVariacao": "0,0000", "pcReferencia": "16,24", "vlBaseCalculoImposto": "16,24", "inPesoCubico": "N", "psCobrado": "1", "peAdValorem": "0,0100", "vlSeguroAutomatico": "24,50", "qtAdicional": "0", "pcFaixa": "16,24", "pcFaixaVariacao": "16,24", "pcProduto": "16,24", "pcFinal": "16,24" } A questão é : como realizar a consulta utilizando o AcbrHTTP e obtendo o retorno em JSon ? Que informações estão faltando para que seja indicado que o retorno ocorra em JSon ( mesmo que seja uma mensagem de erro igual as que aparecem no PostMan ). Grato

Bom Dia! No meu caso , meus clientes já tinham contrato com os Correios! Como seu desenvolvedor Windows e não domino muito esta parte de comunicação com APIs, solicitei ajuda de um Desenvolvedor Web e consegui pelo menos mapear o endereço da API , que é por exemplo: https://api.correios.com.br/preco/v1/nacional/04669?cepOrigem=14406004&cepDestino=14620000&nuContrato=9999999999&nuDR=74&psObjeto=0.8100&comprimento=33&largura=19&altura=11&diametro=0&dtEvento=02-10-2023 Note que na frente do endereço da API vão sendo concatenados os parâmetros , como era antes. O que mudou é que agora é necessário enviar também o Token gerado pelos Correios na parte "Authorization: Bearer" do código HTTP. Minha dificuldade está sendo como efetuar esta pesquisa dentro do Delphi , porque utilizamos ainda no nosso Erp o Delphi X2 ( que não tem os componentes Rest : RestClient, RestRequest , etc.. ). Tentei utilizar o AcbrHTTP mas também não está dando certo. Criei até um questionamento no forum do Acbr sobre a utilização do AcbrHTTP, que ainda não foi respondido. Como o companheiro já conseguiu implementar uma solução dentro do Delphi para interagir diretamente com a Api dos Correios tem como compartilhar conosco ? Grato pela ajuda! Abaixo está a consulta que criei no Forum Acbr :

Sr. Victor Meu problema é que quando eu executo aquela rotina estou recebendo um código Html enorme que começa assim : <!DOCTYPE html> <html xmlns="http://www.w3.org/1999/xhtml" lang="pt-br" xml:lang="pt-br"> <head><meta http-equiv="Content-Type" content="text/html; charset=UTF-8" /> <!-- In&#237;cio das informa&#231;&#245;es dos Correios --> <title>Correios</title> <link rel="icon" type="image/png" href="/++theme++tema-do-portal-correios/static/imagens/favicon-32x32.png" sizes="32x32" /> <!-- Inicio Google Analytics --> <meta name="apple-itunes-app" content="app-id=1399617917" /> E o esperado é que a API dos correios me devolva uma resposta em JSON. Como não tenho experiência em interação com APIs, eu não tenho a mínima idéia porque ocorre este erro. Alguém tem alguma idéia de como resolver isto ? Grato

Sr. Victor Eu não sei qual é o custo que os Correios vão impor ao meu cliente pelo consumo deste serviço. O que preciso fazer é criar uma forma de realizar a Consulta de Preços através da Api dos Correios. Meu problema é que não estou ambientado ao uso da rotina AcbrHTTP ( que fica dentro de : ACBrSocket.pas ). E eu tinha esperanças de conseguir utilizar o AcbrHTTP para realizar a interação com a API. Para tentar realizar este trabalho eu tentei criar a seguinte rotina : procedure TForm1.Button1Click(Sender: TObject); var httpSend : TACBrHTTP; begin httpSend := TACBrHTTP.Create(nil); try try httpSend.HTTPSend.Clear; httpSend.HTTPSend.MimeType := 'application/json'; httpSend.HTTPSend.Headers.Add('Accept-Charset: utf-8'); // Autorização : Token dos Correios httpSend.HTTPSend.Headers.Add(Trim(memAutorizacao.Text)); // Url ( com parâmetros concatenados ) httpSend.HTTPGet(Trim(memURL.Text)); // Gravo resultado do Retorno em um Memo memResultado.Text := httpSend.RespHTTP.Text; except on E: Exception do begin Application.ProcessMessages; ShowMessage(E.Message); end; end; finally FreeAndNil(httpSend); end; end; Note que nesta aplicação eu tenho 3 objetos do tipo TMemo : a)-memAutorizacao : Contém o token fornecido pelo Correio b)-memURL : Contém a URL base com os parâmetros concatenados c)-memResultado : Que deverá receber o retorno Eu esperava receber como retorno um arquivo Json. Sabe me dizer que ajustes terei que fazer nesta rotina ? Grato

Companheiros Bom Dia! Gostaria de solicitar seu auxílio novamente. Estou tentando efetuar a consulta de Custo de Postagem na nova API dos Correios. Após diversas pesquisas ( com auxílio de um Desenvolvedor Web ) constatei que a rotina de consula aos correios tem 2 elemenntos obrigatórios : a)-A URL deverá ser informada com os parâmetros na frente. Por exemplo : 'https://api.correios.com.br/preco/v1/nacional/04669?cepOrigem=14406004&cepDestino=14620000' b)-Também deverá ser passado o Token que é gerado no site dos correios como Autorização : Por exemplo : 'Authorization: Bearer eyjh1oeir' Meu desafio é conseguir agora efetuar a consulta passando estes parâmetros! Notei que dentro da Unit : AcbrSocket existe a rotina AcbrHTTP. Porem me auxiliar indicando como eu poderia utilizar o AcbrHTTP para : - efetuar a consulta aos Correios - obter o JSon do retorno gerado pelos Correios ? Podem me passar um exemplo completo de uma rotina ? Grato pela ajuda. Carlos Franca-Sp

Sr. Alexandre Boa Tarde! O que o Correio fez é restringir o acesso à API para que apenas empresas que possuem Contratos ( não entendi qual foi o propósito disto ). Anteriormente a API era pública, mas só podia utilizar o Serviço aqueles que também tivessem contratos com os Correios. Por outro lado eles desativaram a APÍ anterior e criaram uma nova ( modo Rest ). Grato