Averbação de Carga Porto Seguro

[Gr@c@]

Estou tentando fazer a averbação de carga pela Porto Seguro (que não aderiu ao AT&M). Usando a unit que foi disponibilizada aqui e alterado pelo Juliomar Marchetti, mas está ocorrendo o erro: 

---------------------------
Debugger Exception Notification
---------------------------
Project CTe.exe raised exception class EIdHTTPProtocolException with message 'HTTP/1.1 301 Moved Permanently'.
---------------------------

No momento, somente a seguradora Porto Seguro está fazendo seguro de veículos transportados em mudança interestadual. 

Uso Delphi 10.3 Professional. 

Propriedade  HandleRedirects := True;

 

uPortoSeguroIndy.pas

[mcob]

Boa Tarde a todos.

A Porto Seguro mudou o endereço de averbação, por motivo de segurança e passou a utilizar o TLS 1.2 / 1.3, está é a causa da mensagem de erro que está recebendo.

Abaixo segue o novo endereço de averbação, que você deve alterar no arquivo:

const
   AURI: string = 'https://api.averbeporto.com.br';

no create do componente
   FURL            := 'https://api.averbeporto.com.br/websys/php/conn.php';

não vou anexar o meu arquivo aqui, pois, o meu delphi é o XE2 e por esse motivo tem algumas diferença a serem consideradas.

espero ter ajudado.

Abraços a todos.

[Gr@c@]

Grata pela resposta. Somente hoje consegui o manual de integração atualizado. Vou testar.

Como obter o Manual de Integração:

0800-727-2755 opção averbação
Solicite também ao suporte os dados para realizar testes (Usuario e senha)  wws.averbeporto.com.br

Link do Manual de Integração: (este link sempre trará o manual atualizado)

https://docs.google.com/document/d/1da005UzBF1Wzm8LmiB4JJnaXaLXtFKgl6S_rErMlXF8/edit

 

[josimar]

Olá. você conseguiu utilizar essa unit para emitir a averbação pela porto seguro, se sim, teria como disponibilizar um exemplo do codigo do envio da averbação.

 

[mcob]

Bom dia a todos

 

Segue um exemplo de como faço a chamada para averbação:

function AverbaPorto( aFile, xUsuario, xSenha, xProtCte: string; bMSg: boolean = False string ;
var
  fSeg: TPortoSeguroIndy ;
  bStatus: boolean ;
  xProt: String ;
begin
  xProt := '99999' ;
  fSeg := TPortoSeguroIndy.create ;
  fSeg.UserName  := xUsuario ;
  fSeg.Password  := xSenha ;

  bStatus        := fSeg.UpLoad( aFile ) ;
  if bStatus then
    xProt  := fSeg.Protocolo
  else

  if bMsg then
    ShowMessage(stringReplace(fSeg.MensagemRetorno,';',#13,[rfReplaceAll])) ;
  fSeg.Destroy ;
  result := xProt ;  

end;
 

espero que te ajude.

Abraços.

[josimar]

Blz. Muito Obrigado.

[simons]

ola, fiz as alteracoes necessarias de url e estou recebendo a seguinte mensagem:

FRespFileStream.DataString '{"success":1, "error":{"code":"01", "msg":"No login."}}'  no fazer o post...

 

alguem consegue me ajudar?

[Juliomar Marchetti]

7 minutos atrás, simons disse:

ola, fiz as alteracoes necessarias de url e estou recebendo a seguinte mensagem:

FRespFileStream.DataString '{"success":1, "error":{"code":"01", "msg":"No login."}}'  no fazer o post...

 

alguem consegue me ajudar?

Mudou só a URL ou também mais coisas do webservice?

[simons]

Endereços da API *1:
Seguro: https://apis.averbeporto.com.br/php/conn.php (:443 - TLS 1.0, 1.1, 1.2 e 1.3) *2 - HTTP/3
Plain: http://api.averbeporto.com.br/php/conn.php (:80 - Plain text - HTTP/2) - descontinuado

*1 NÃO utilizar www. ou wws. ou nenhum outro subdomínio para acesso à API, será bloqueado.
*2 Pode ser necessário definir um user-agent como “Mozilla/5.0 (Windows NT 6.1; WOW64; rv:12.0) Gecko/20100101 Firefox/12.0” para acessar apis, isso impedirá que o CF bloqueie seu programa com o erro 403/1010
*3 Chamar o endereço da API no navegador irá gerar uma mensagem de erro (item 7) pela absoluta falta de parâmetros na comunicação.
 

em anexo manual

Manual de Integração - AverbePorto.odt

[simons]

resolvido era a url que copiei aqui do forum e no manual esta diferente, agradeço a atençao 

[Juliomar Marchetti]

Obrigado por reportar.

Fechando. Para novas dúvidas, criar um novo tópico.