AVERBAÇÂO AT&M CTE

[Matheus Peregrineli]

boa tarde, alguem ja fez o processo de averbacao do cte pela AT&M?

estou usando o componente indy. a parte de buscar o token de autenticacao funciona beleza, mais na hora de fazer a segunda requiscao utilizando o token que me retornaram nao funciona que é o momento que tem q enviar o xml.

ja tentei de todos os jeitos, enviar o caminho, enviar a string do xml, e assim por diante

alguem ja fez este processo e funciona poderia me dar uma ajuda no metodo post para enviar o xml com e com os headers correto?

parte da autenticacao

//*******************************************

Json1     := '{                           '+
                     ' "usuario": "'+trim(cdsaux.fieldbyname('usuario_averbacao').asstring)+'", '+
                     ' "senha": "'+trim(cdsaux.fieldbyname('senha_averbacao').asstring)+'",     '+
                     ' "codigoatm": "'+trim(cdsaux.fieldbyname('codigo_averbacao_atm').asstring)+'" '+
                     '}                           ';
         JsonToSend := TStringStream.Create( UTF8Encode(Json1) );

         HTTP := TIdHTTP.Create(nil);
         Post := TStringList.Create;
         Try
            HTTP.AllowCookies := True;
            HTTP.HandleRedirects := True;
            HTTP.Request.Accept := 'application/json';
            HTTP.Request.ContentType:='application/json';

            JsonRetorno := HTTP.post('http://homologaws.averba.com.br/rest/Auth',JsonToSend);

         Finally
            Post.Free;
            HTTP.Free;
         End;
         vAuth := copy(JsonRetorno,12,length(JsonRetorno)-13);

//***************************************

//**************************************

parte de enviar o xml para averbar

 

         Documento := TStringList.Create;
         Documento.LoadFromFile(cdsgere3LOCAL_CTE.asstring+'\'+
                                FormatDateTime('yyyymm',cdsCTELoteDATA_EMISSAO.asdatetime)+'\CTe\'+
                                cdsCTELoteCHAVE.asstring+'-cte.xml');
         DocNFeCTe := Documento.text;
         Documento.Free;

         JsonToSend := TStringStream.Create(DocNFeCTe);

         HTTP := TIdHTTP.Create(nil);
         Post := TStringList.Create;
         Try
            HTTP.AllowCookies := True;
            HTTP.HandleRedirects := True;
            HTTP.Request.Accept         := 'application/json';
            HTTP.Request.AcceptEncoding := 'gzip, deflate';
            HTTP.Request.CustomHeaders.FoldLines := False;
            HTTP.Request.CustomHeaders.Values['authorization'] := 'bearer '+trim(vAuth);
            HTTP.Request.CacheControl   := 'no-nache';
            HTTP.Request.Connection     := 'keep-alive';
            HTTP.Request.ContentType    := 'application/xml';
            HTTP.Request.CacheControl   := 'no-cache';
            Post.Add(DocNFeCTe); //aqui ja mandei string, ja mandei stringlist, stringstream, ja mandei o caminho do xml 

            JsonRetorno := HTTP.Post('http://homologaws.averba.com.br/rest/cte', cdsgere3LOCAL_CTE.asstring+'\'+FormatDateTime('yyyymm',cdsCTELoteDATA_EMISSAO.asdatetime)+'\CTe\'+cdsCTELoteCHAVE.asstring+'-cte.xml');

//**************************************

desde ja agradeço

[Italo Giurizzato Junior]

Boa tarde Matheus,

O que você acha de usar o componente ACBrANe?

Na pasta de exemplos temos um programa exemplo referente a esse componente.

[Matheus Peregrineli]

Boa tarde italo, 

vou verificar e fazer alguns teste no componente do acbrANe.

estava seguindo o layout de integracao da propria AT&M porem nao tem muita informação que ajudem com delphi

muito obrigado!

[Leandro Miler Santana]

Acabei de fazer a integração com o Web Service via ACBr.  Está funcionando perfeitamente.

Muito bom !!!

Agradeço à todos que colaboraram de alguma forma com este componente.

Antes de implementa-lo, eu usava a estratégia de copiar cada CT-e gerado para a pasta do ATM. Agora não precisamos mais disso.

Muito me ajudou.

Parabéns à todos que trabalharam neste projeto.

Muito Obrigado.

[Juliana Tamizou]

Obrigado por reportar.

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