Ir para conteúdo
  • Cadastre-se
Seja bem-vindo
Regras e orientações da nossa comunidade Participe do Discord do ACBr

d2mpavan

Membros
 Perfil  Explorar Conteúdo

  • Total de ítens

    109

  • Registro em

  • Última visita

 Tipo de Conteúdo 

Posts postados por d2mpavan

    Integrar com API - ActiveCorp

    em Dúvidas não relacionadas ao ACBr

    Postado

    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

    Integrar com API - ActiveCorp

    em Dúvidas não relacionadas ao ACBr

    Postado

    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;
     

    Integrar com API - ActiveCorp

    em Dúvidas não relacionadas ao ACBr

    Postado

    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

    Integrar com API - ActiveCorp

    em Dúvidas não relacionadas ao ACBr

    Postado

    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

    Homologação Santander

    em ACBrMonitor PLUS

    Postado

    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

    Homologação Santander

    em ACBrMonitor PLUS

    Postado

    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

    Homologação Santander

    em ACBrMonitor PLUS

    Postado

    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

    Boleto.png

    CB100700.REM Titulos.ini

    Chave RSA Privada NÃO pode ser lida no arquivo "swh.ini".

    em ACBrMonitor PLUS

    Postado · Editado por d2mpavan

    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

    Arquivo Remessa - Data Mora Juros - Banco do Brasil

    em ACBrMonitor PLUS

    Postado

    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

    Cadastramento de Software House - Sistema Temporariamente Indisponível

    em ACBrSAT

    Postado

    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

    • Curtir 1
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.

The popup will be closed in 10 segundos...