d2mpavan

Show!!! Funcionou perfeitamente! Mais uma vez muito obrigado!! Um Grande Abraço!

Boa Tarde Datilas! Deu certo! Consegui enviar. Só que conversei com o suporte da Empresa e, para adicionar um motorista é em outro local... customers/addDriver. Ficou assim essa rotina do motorista e fechou comunicação. Só uma dúvida: Porque quando eu envio na primeira vez funciona certinho e da segunda vez em diante dá erro? Veja como ficou o código abaixo que coloquei num botão e teste pra ver se pode me ajudar, por favor... procedure TForm1.Button1Click(Sender: TObject); var code : Integer; sResponse : String; Json : String; JsontoSend, AResponseContent : TStringStream; iStatusCode : Integer; begin Json := '{"Customer": { "DocumentType" : "CNPJ", "DocumentNumber" : "11229082000167" }, "Driver": { "PhoneCountry": "+55", "PhoneNumber": "19999690130", "Name": "Daniel Marcelo"} }'; JsonToSend := TStringStream.Create(Json); AResponseContent := TStringStream.Create(''); try IdHTTP1.Request.Clear; IdHTTP1.Request.CharSet := 'utf-8'; IdHTTP1.Request.ContentType := 'application/json'; IdHTTP1.Request.CustomHeaders.AddValue('AppKey','58fb05c3-4e8b-4929-b7df-95bd261035c9'); IdHTTP1.Request.CustomHeaders.AddValue('RequesterKey','629eda6f-9df5-40e7-a94e-4c54cec83a15'); IdHTTP1.Response.ContentType := 'applicattion/json'; IdHTTP1.Response.CharSet := 'utf-8'; try IdHTTP1.Post('https://api.tudoentregue.com.br/v1/customers/AddDriver',JsontoSend, AResponseContent); except on E:EIdHTTPProtocolException do begin Memo1.Lines.Clear; Memo1.Lines.Add('Error on Request: ' + #13+#10 + e.Message); exit; end; end; Memo1.Lines.Clear; Memo1.Lines.Add('Response Content: '+AResponseContent.DataString); Memo1.Lines.Add('Response Code: ' + InttoStr(IdHTTP1.ResponseCode)); Memo1.Lines.Add('Response Text: ' + IdHTTP1.ResponseText); finally JsontoSend.Free(); AResponseContent.Free(); end; end; Não sei como lhe agradecer em tudo que tem me ajudado! Muito Obrigado mesmo e que Deus te abençoe! Grande Abraço! Daniel

Pra mim, na primeira vez que rodo retorna vazio. Na segunda vez em diante retorna o mesmo erro que aparece pra você. Por favor, dê uma olhada se pode me ajudar. O código abaixo está com o App e Requester Key... Não sei como fechar essa comunicação... lembrando que estou usando o componente IDHTTP. segue código... var code : Integer; sResponse : String; Json : String; JsontoSend, AResponseContent : TStringStream; iStatusCode : Integer; begin Json := '{"PhoneCountry": "+55", "PhoneNumber": "19999999999", "Name": "Daniel", "IMEI": "123", "DeviceKey": "123456", "DeviceId": "222555",'; Json := Json +'"DeviceType": "MarcaModelo", "OSName": "Android", "OSVersion": "7.0", "Email": "[email protected]", "ZipCode": "13425066", "City": "Piracicaba", "State": "Sao Paulo", "Enable": false}'; JsonToSend := TStringStream.Create(Json); AResponseContent := TStringStream.Create(''); try IdHTTP1.Request.Clear; IdHTTP1.Request.CharSet := 'UTF-8'; IdHTTP1.Request.Method := 'POST'; IdHTTP1.Request.Username := ''; IdHTTP1.Request.Password := ''; IdHTTP1.Request.ContentType := 'application/json'; IdHTTP1.Request.CustomHeaders.AddValue('AppKey','58fb05c3-4e8b-4929-b7df-95bd261035c9'); IdHTTP1.Request.CustomHeaders.AddValue('RequesterKey','629eda6f-9df5-40e7-a94e-4c54cec83a15'); IdHTTP1.Response.ContentType := 'applicattion/json'; IdHTTP1.Response.CharSet := 'UTF-8'; try sresponse := IdHTTP1.Post('https://api.tudoentregue.com.br/v1/drivers',JsontoSend); except on E:EIdHTTPProtocolException do begin Memo1.Lines.Clear; Memo1.Lines.Add('Error on Request: ' + #13+#10 + e.Message); exit; end; end; Memo1.Lines.Clear; Memo1.Lines.Add(sResponse); finally JsontoSend.Free(); end; end;

Certo, Mas como faço para usar como você fez no seu exemplo inicial com o THTTPClient? (apresenta undeclared identifier) Ou com o TIDHTTP que estou usando terei o mesmo efeito? É que não estou tendo retorno usando o TIDHTTP... Obrigado!

Então... Inseri as informações na uses, porém quando vou compilar, não encontra o arquivo, por exemplo: "file not found: NetConsts.dcu" Obrigado!

Não encontrou o arquivo...

Bom dia Datilas! Muito obrigado por me ajudar! Porém, quando inseri as keys e tentei transmitir um arquivo obtive uma resposta vazia e os dados não foram inseridos. Isso quando apenas inseri as chaves utilizando o componente idhttp que eu estava utilizando. Testei também conforme seu código só que apresentou erro "undeclared identifier: 'THTTPClient' Como devo declarar na uses para corrigir o problema? (uso Delphi Rad Studio XE). Desde já agradeço se puder me ajudar novamente. Grande abraço! Daniel

Boa Tarde Pessoal! Se puderem me orientar, preciso consumir uma API (segue documentação... https://api.tudoentregue.com.br/Documentacao/index.html) Quanto à geração dos arquivo no formato Json, eu já consegui entender. Porém, já tentei de várias formas e não consigo fechar comunicação com web service para Post do arquivo. Vi na documentação que tem um "AppKey" e um "RequesterKey". As duas chaves eu possuo mas não tenho ideia de onde as defino. securityDefinitions": { "AppKey": { "type": "apiKey", "in": "header", "name": "AppKey", "description": "Identificador do software Homologado junto à ActiveCorp para integrar dados ao TudoEntregue." }, "RequesterKey": { "type": "apiKey", "in": "header", "name": "RequesterKey", "description": "Identificador único do Motorista/Cliente junto ao TudoEntregue." Estou utilizando IDHTTP, mas seria interessante que o envio fosse através de HTTPS. Vejam como estou fazendo: var code : Integer; sResponse : String; Json : String; JsontoSend : TStringStream; begin Json := '{"PhoneCountry": "+55", "PhoneNumber": "19999999999", "Name": "Daniel", "IMEI": "", "DeviceKey": "", "DeviceId": "",'; Json := Json +'"DeviceType": "MarcaModelo", "OSName": "Android", "OSVersion": "7.0", "Email": "[email protected]", "ZipCode": "13400000", "City": "Piracicaba", "State": "Sao Paulo", "Enable": false}'; JsonToSend := TStringStream.Create(utf8Encode(Json)); try IdHTTP1.Request.Clear; IdHTTP1.Request.CharSet := 'UTF-8'; IdHTTP1.Request.Method := 'POST'; IdHTTP1.Request.ContentType := 'application/json'; IdHTTP1.Response.ContentType := 'applicattion/json'; IdHTTP1.Response.CharSet := 'UTF-8'; try sResponse := IdHTTP1.Post('http://api.tudoentregue.com.br/v1/drivers',JsontoSend); except on E:EIdHTTPProtocolException do begin Memo1.Lines.Clear; Memo1.Lines.Add('Error on Request: ' + #13+#10 + e.Message); exit; end; end; Memo1.Lines.Clear; Memo1.Lines.Add(sResponse); finally JsontoSend.Free(); end; end; Alguém poderia me dar um exemplo de como enviar os arquivos se possivel em HTTPS? Desde já agradeço! Daniel

Boa Tarde José! Obrigado pelo Retorno! Resolvido conforme sua orientação. Muito Obrigado!

Boa Noite Juliana! Testei conforme me orientou, porém continua gerando o arquivo remessa da mesma forma. Segue novamente para análise arquivos Titulos.ini e o arquivo remessa. Apenas para informação, utilizo ACBRMonitorPlus versão 1.2.0.41; Desde já agradeço o empenho para me ajudar. Att. Daniel CB120702.REM Titulos.ini

Boa Noite Felipe! Muito obrigado pelo retorno! Desculpe responder somente agora. É que estou com outros bancos para homologar. Funcionou perfeitamente conforme sua orientação. Att. Daniel

Boa Tarde Juliana! Mesmo informando as propriedades que você citou, os Registros do segmento P das posições 58 e 59 não se alteraram. Para melhor avaliar, seguem anexo os arquivos Titulos.ini e o arquivo remessa gerado. Se puder me ajudar, ficarei muito grato. Att. Daniel CB120700.REM Titulos.ini

Boa Tarde Juliana! Mais uma vez obrigado pelo retorno! Vou ajustar o sistema para informar esses parâmetros. Att Daniel

Boa Tarde Juliana! Primeiramente obrigado pelo retorno! Quanto a impressão da carteira na linha digitável do boleto, funcionou corretamente conforme orientado! Porém, ainda referente ao Segmento P posições 58 e 59 citados acima, não consegui resolver. Também as informações retornadas pelo banco na análise do meu arquivo remessa não tem nada à ver com o que retornaram porque a posição 58 refere-se à Tipo de Cobrança (Nota 5 do Manual) e o campo 59 refere-se à Forma de Cadastramento (Nota 6 do Manual). Poderia me auxiliar nesse caso também pois não identifiquei o local para informar esses dados. Segue anexo manual do banco... Obrigado! Daniel H7815 Layout Cobrança CNAB 240 posições padrão Santander Multibanco Abril 2019 v 3.2.pdf

Boa Tarde Juliana! Primeiramente obrigado pelo retorno! Já, quanto a impressão da carteira na linha digitável do boleto, funcionou corretamente conforme orientado! Porém, ainda referente ao Segmento P posições 58 e 59 citados acima, não consegui resolver. Poderia me auxiliar nesse caso também? Obrigado! Daniel

Boa Tarde! Como devo proceder para informar o campo abaixo solicitado pela Caixa Econômica através do ACBRMonitorPlus? Segmento P Posição 225 a 227 – prazo de baixa/devolução, informar “030” dias. Desde já agradeço, Daniel

Bom Dia Senhores! Estou Homologando um cliente para o Banco Santander. Apenas para informação: - Utilizo ACBRMonitorPlus versão 1.2.0.41; - O banco Santander utiliza uma carteira para Impressão dos boletos (101) e uma carteira para informar no arquivo Remessa (5) as quais estão sendo informadas devidamente em cada momento; o Banco está requisitando a impressão da carteira "101" no boleto, conforme imagem anexa (boleto.png). Porém, como podem verificar, estou enviando a informação da Carteira 101. Como devo proceder para imprimir a carteira no campo que estão requisitando? Outra inconsistência: Posição 58 - 058 CÓDIGO DA CARTEIRA INCORRETO. DEVE SER: 5 Mesmo informando a Carteira "5", como solicitaram, está gerando com o código 1 nessa posição, conforme podem verificar pelos arquivos Titulos.ini e CB100700.rem. O que estou fazendo de errado nessa caso? Outra inconsistência: Posição 59 - 059 FORMA DE CADASTRAMENTO INCORRETA. DEVE SER: 1 Também não sei como solucionar esse caso... poderiam me ajudar. Desde já agradeço! Daniel CB100700.REM Titulos.ini

Obrigado Felipe! Quero que desconsiderem meu post... E me desculpem! O boleto estava sendo gerado, porém era salvo em PDF, pois não havia definido uma impressora. Agradeço a compreensão.

Boa Tarde Senhores! Estou usando a versão 1.2.0.18 do ACBRMonitorPlus, a qual baixei recentemente e instalei na minha máquina de desenvolvimento. Porém, utilizo o ACBRMonitorPlus apenas para gerar boletos, pois ainda não integrei essa função ao meu sistema diretamente com o ACBR. Só que agora, com essa nova versão, quando tento gerar um boleto aparece a seguinte mensagem: ATENÇÃO: Chave RSA Privada NÃO pode ser lida no arquivo "swh.ini". Após a mensagem o boleto não é gerado. Na versão anterior (1.1.0.54) que eu utilizava e está em produção nos clientes isso não ocorria e o boleto é gerado normalmente. Também já excluí o arquivo. Porém ele foi recriado e o problema continua. Poderiam me ajudar a resolver essa questão? Abraços! Daniel

Boa Noite Juliana! Com relação à Data da Multa, que era mais importante nesse momento da homologação junto ao banco, funcionou perfeitamente. Mas e com relação à Razão Social, alguma ideia? Muito Obrigado mesmo pela ajuda!!! Att. Daniel

Boa Noite Senhores! Estou tentando integrar com o Banco do Brasil. Utilizo ACBRMonitorPLUS (Versão 1.1.0.54). Porém, constatei alguns problemas. No caso, o Cliente que estou tentando integrar possui "Ç" na razão social. Por algum motivo que desconheço, o arquivo gerado pelo ACBRMonitorPLUS quando gera o arquivo remessa desconsidera 1 (um) caracter da razão social do cliente, invalidando o registro "Header" do arquivo remessa. Para esse caso, já "solucionei" passando a razão do cliente sem o "Ç". Um outro erro que não consegui descobrir tem há ver com o registro "R" no campo de data da cobrança da multa (posições 067 a 074). Este campo está vindo com a informação "30121899". Verifiquei o arquivo "Titulos.ini" (em anexo) e o campo DataMoraJuros está sendo informado com a Data de Vencimento + 1 dia e mesmo assim não preenche o campo com a informação desejada. O que está faltando informar? Desde já agradeço. Daniel CB190602.REM Titulos.ini LOG.TXT ACBrMonitor.ini

Também consegui! Criaram vergonha na cara e corrigiram o problema.

Ainda não consegui. Mesmo erro....

Boa Noite Galera! Desculpe.... abri um novo post. Também estou com o mesmo problema. Alguém teve sucesso? Retornaram meu e-mail informando que estavam corrigindo o caso, mas não passaram prazo.

Boa Noite Pessoal! Estou tentando insistentemente desde ontem (06/04) efetuar o Cadastramento de minha empresa como Software House. Porém, nosso digníssimo site da SEFAZ também está insistindo e retornar a mensagem: Sistema Temporariamente Indisponível. Por favor tente mais tarde. Alguém está passando por isso? Abri um chamado por e-mail e responderam que estão corrigindo o problema. Só que quando abri o chamado, solicitei que enviassem também um prazo previsto para retomada dos serviço e adivinhem.... nem tiveram o trabalho de responder. Tenho vários equipamentos para instalar, clientes pressionando e esses incompetentes nem pra deixar o sistema no mínimo operável eles servem. Isso é Brasil galera! Desculpem o desabafo. Um grande abraço a todos e se puderem relatar e abrir também alguns chamados para pressionar, desde já agradeço. Daniel