Ir para conteúdo
  • Cadastre-se

dev botao

AVERBAÇÂO AT&M CTE


Ver Solução Respondido por Italo Giurizzato Junior,
  • Este tópico foi criado há 1506 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

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

Link para o comentário
Compartilhar em outros sites

  • Consultores
  • Solution

Boa tarde Matheus,

O que você acha de usar o componente ACBrANe?

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

  • Curtir 2
Consultor SAC ACBr

Italo Giurizzato Junior
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr

Analista de Sistemas / e-mail: [email protected] / Fone: (16) 9-9701-5030 / Araraquara-SP

Araraquara - A era dos Trólebus

Link para o comentário
Compartilhar em outros sites

  • 2 semanas depois ...

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.

  • Curtir 3
  • Obrigado 1
Link para o comentário
Compartilhar em outros sites

  • Administradores

Obrigado por reportar.

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

Consultora SAC ACBr

Juliana Tamizou

Gerente de Projetos ACBr / Diretora de Marketing AFRAC
Ajude o Projeto ACBr crescer - Seja Pro

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.  Discord

Projeto ACBr - A maior comunidade Open Source de Automação Comercial do Brasil


Participe de nosso canal no Discord e fique ainda mais próximo da Comunidade !!

Link para o comentário
Compartilhar em outros sites

  • Este tópico foi criado há 1506 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.
Visitante
Este tópico está agora fechado para novas respostas
×
×
  • 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.