Averbação De Carga Online

[Gr@c@]

Não deu certo. seguem os arquivos de envio e resposta da primeira tentativa (201710021203...) e de envio e resposta da segunda tentativa, onde envio averbação do mesmo CT-e (essa retorna a averbação) (201710021204...). Atualizei o ACBr, recompilei e reinstalei o componente manualmente porque ele não consta no ACBrInstall, dei build no componente, no meu projeto, recompilei projeto.

20171002120410-res-ANe-soap.xml

20171002120409-ped-ANe-soap.xml

20171002120348-res-ANe-soap.xml

20171002120347-ped-ANe-soap.xml

Editado 2 Outubro, 2017 por Gr@c@

[Italo Giurizzato Junior]

Graça,

Por favor mais uma vez, atualize e faça novo teste.

[Gr@c@]

13 minutos atrás, Italo Jurisato Junior disse:

Graça,

Por favor mais uma vez, atualize e faça novo teste.

Deu certo a averbação. Obrigada mais uma vez. Só falta colocar o componente no ACBrInstall_Trunk2

Editado 2 Outubro, 2017 por Gr@c@

[Juliomar Marchetti]

1 hora atrás, Gr@c@ disse:

Deu certo a averbação. Obrigada mais uma vez. Só falta colocar o componente no ACBrInstall_Trunk2

Opa com Certeza @Gr@c@

logo vai estar.!!

[Gr@c@]

Gerei uma carga agora com dados reais de uma transportadora (porém em ambiente de homologação) com mais de 20 CT-e´s. Foram todos averbados com sucesso, sem nenhuma interrupção, um após o outro: Ct-e enviado -> CT-e autorizado -> Averbação enviada -> Averbação autorizada com retorno dos dados da averbação ok. 

Gerei o MDF-e versão 3.00 constando no xml todas as averbações.

Dúvidas:

1- essas averbações deverão ser relacionadas no DAMDFE ? 

2-Tem que declarar o MDF-e também? Ou declarar MDF-e é uma opção entre AverbaNFe, AverbaCTe, DeclaraMDFe? Alguém já faz esse procedimento?

[Italo Giurizzato Junior]

Boa tarde Graça,

Note que no caso do CT-e e NF-e devemos averbar, já o MDF-e devemos declarar.

No manual, consta o web services para realizar a declaração do MDF-e e através do mesmo web services podemos enviar os eventos de cancelamento, encerramento e inclusão de condutor.

No meu entendimento devemos sim declarar o MDF-e depois de averbar todos os CT-e/NF-e contidos no MDF-e.

Quanto ao DAMDFE não encontrei nada.

[Gr@c@]

Em 02/10/2017 at 15:54, Italo Jurisato Junior disse:

Boa tarde Graça,

Note que no caso do CT-e e NF-e devemos averbar, já o MDF-e devemos declarar.

No manual, consta o web services para realizar a declaração do MDF-e e através do mesmo web services podemos enviar os eventos de cancelamento, encerramento e inclusão de condutor.

No meu entendimento devemos sim declarar o MDF-e depois de averbar todos os CT-e/NF-e contidos no MDF-e.

Quanto ao DAMDFE não encontrei nada.

@italo, quanto ao caso de declarar MDF-e segue a resposta da AT&M

"A transmissão do MDF-e através da chamada "declaraMDFe" deve ser realizada somente quando for solicitado pela corretora/seguradora do transportador.

Poderá encontrar mais informações quanto ao envio de MDFe cancelado na página 96 do manual anexo.

Ressaltamos que o manifesto não será averbado, somente será realizada a transmissão das informações."

O que significa que devemos parametrizar no aplicativo se a seguradora requer declaração de MDF-e. 

[hugo_lmf]

Boa tarde.

Qual o caminho eu informo em  ACBrANe1.Configuracoes.Arquivos.PathSchemas ??

Pois não encontrei os schemas.

[Italo Giurizzato Junior]

Boa tarde Hugo,

Infelizmente não temos os Schemas para validar o XML antes do envio.

Sendo assim deixa essa propriedade em branco.

[josemarmt]

Boa noite Italo, parabéns pelo trabalho(mais um, rsrsrs).

Também estou com necessidade de disponibilizar esta ferramenta no meu sistema. Só que quando tento baixar ele me pede uma autenticação com usuário e senha. Não entendi porque um vez que sempre fiz as atualizações sem problemas.

Só mais um detalhe, já esta disponível no trunk2 ou só branches mesmo.

Abs

[Italo Giurizzato Junior]

Bom dia José,

O componente ACBrANe já se encontra no Trunk2 e o Juliomar (se não me falha a memória) ficou de acrescentar esse componente no ACBrInstall_Trunk2.

Não entendi, em que momento é solicitado usuário e senha?

Ao baixar os fontes ou ao enviar a Averbação?

[Juliomar Marchetti]

6 horas atrás, Italo Jurisato Junior disse:

Bom dia José,

O componente ACBrANe já se encontra no Trunk2 e o Juliomar (se não me falha a memória) ficou de acrescentar esse componente no ACBrInstall_Trunk2.

Não entendi, em que momento é solicitado usuário e senha?

Ao baixar os fontes ou ao enviar a Averbação?

Exatamente Logo estará disponível junto com mais componentes !

[Gr@c@]

Estou usando o ACBrANE e atualizo pelo trunk2. Instalo manualmente. Não pede senha ou usuario. Ao enviar a averbação, é necessário ter usuario e codigo AT&M. Para ter esse codigo basta entrar em contato com a AT&M e solicitar credenciamento para testes.

[josemarmt]

ok, Graça, eu acho que estava fazendo a atualização erradamente. Obrigado pela colaboração.

Blz Juliomar.

Att.,

Josemar

[josemarmt]

Graça, desculpe, quando vc diz que fez a instalação manualmente, quais passos, você fez.

Como preferi não atualizar todo o acbr e sim criar as pastas e copiar seus respectivos conteúdos, pastas ACBrANE de fontes e ACBrANE de exemplo.

Quando abro o exemplo, claro q me da o erro de classe, veio algum dpk ou pacote de instalação deste componente, iria até procurar agora, mas esta em uma máquina virtual q esta realizando um backup e não queria interromper o processo.

Desde já agradeço.

[Italo Giurizzato Junior]

Boa noite José,

Sim, alem da pasta que contem os fontes do componente, temos dentro da pasta: ...\Exemplos\ACBrDFe\ACBrANe\Delphi o programa exemplo e dentro da pasta: ...\Pacotes\Delphi\ACBrDFe\ACBrANe temos o pacote para realizar a instalação de forma manual.

Lembre-se que o componente já se encontra no Trunk2 com todas as devidas correções para que o envio seja realizado com sucesso.

Inclusive o ACBrANe já foi removido do Branches.

Te aconselho a excluir a pasta que você copiou do Branches para dentro da estrutura do Trunk2 e realizar a atualização completa de todos os fontes de todas as pastas.

[josemarmt]

ok, Itálo, vou esperar meu backup acabar por segurança, q ai sim poderei fazer toda e qualquer alteração que for preciso sem perder a situação q a máquina se encontra agora, vou fazer os testes e retorno.

Abs

[josemarmt]

Desculpe não ter retornado antes. Como trocar pneu com o carro andando é complicado, vou deixar para fazer a troca(atualização) da biblioteca no sábado. Inclusive tive que fazer algumas alterações na parte de NFSe para conseguir emitir as mesmas aqui na cidade de Juiz de Fora, já foi postado algo sobre o assunto em outro tópico do forum. Enfim, volto a dar um feedback o mais rápido possível e obrigado pela atenção de todos.

Abs

[RodrigoGA]

Boa noite, caros colegas, não estou conseguindo configurar o componente corretamente, tenho que averbar para TokioMarine (AT&M), mesmo como o exemplo não consegui configurar corretamente....
 

 

Abs

[Gr@c@]

16 horas atrás, RodrigoGA disse:

Boa noite, caros colegas, não estou conseguindo configurar o componente corretamente, tenho que averbar para TokioMarine (AT&M), mesmo como o exemplo não consegui configurar corretamente....
 

 

Abs

Eu configuro o ACBrANE quase todo como as configurações do ACBrCTe:

  If edtATMCodigo.Text <> '' then
  TRY
    ACBrANe1.Configuracoes.Geral.TipoDoc             := tdCTe;//(tdNFe, tdCTe, tdANeATM, tdlistaErros, tdAddBackMail);
    If cbxATMVersaoDF.Text = 've200' then
      ACBrANe1.Configuracoes.Geral.VersaoDF          := pcaConversao.ve200
    Else
      ACBrANe1.Configuracoes.Geral.VersaoDF          := pcaConversao.ve200;
    ACBrANe1.Configuracoes.Geral.Usuario             := TRIM(edtATMUsuario.Text);
    ACBrANe1.Configuracoes.Geral.Senha               := TRIM(edtATMSenha.Text);
    ACBrANe1.Configuracoes.Geral.CodATM              := TRIM(edtATMCodigo.Text);
    ACBrANe1.Configuracoes.Geral.CNPJEmitente        := edtEmitCNPJ.Text;
    ACBrANe1.Configuracoes.Geral.SSLLib              := ACBrCTe1.Configuracoes.Geral.SSLLib;
    ACBrANe1.Configuracoes.Geral.SSLCryptLib         := ACBrCTe1.Configuracoes.Geral.SSLCryptLib;
    ACBrANe1.Configuracoes.Geral.SSLHttpLib          := ACBrCTe1.Configuracoes.Geral.SSLHttpLib;
    ACBrANe1.Configuracoes.Geral.SSLXmlSignLib       := ACBrCTe1.Configuracoes.Geral.SSLXmlSignLib;
    ACBrANe1.Configuracoes.Geral.FormaEmissao        := teNormal;
    ACBrANe1.Configuracoes.Geral.Salvar              := True;
    ACBrANe1.Configuracoes.Geral.ExibirErroSchema    := True;
    ACBrANe1.Configuracoes.Geral.FormatoAlerta       := 'TAG:%TAGNIVEL% ID:%ID%/%TAG%(%DESCRICAO%) - %MSG%.';
    ACBrANe1.Configuracoes.Geral.RetirarAcentos      := True;
    ACBrANe1.Configuracoes.Geral.RetirarEspacos      := True;
    ACBrANe1.Configuracoes.Geral.IdentarXML          := False;
    ACBrANe1.Configuracoes.Geral.ValidarDigest       := True;
    ACBrANe1.Configuracoes.Arquivos.EmissaoPathANe   := False;
    ACBrANe1.Configuracoes.Arquivos.PathANe          := ACBrCTe1.Configuracoes.Arquivos.PathCTe;
    ACBrANe1.Configuracoes.Arquivos.PathSalvar       := ACBrCTe1.Configuracoes.Arquivos.PathSalvar;
    ACBrANe1.Configuracoes.Arquivos.PathSchemas      := ACBrCTe1.Configuracoes.Arquivos.PathSChemas;
    ACBrANe1.Configuracoes.Arquivos.IniServicos      := '';
    ACBrANe1.Configuracoes.Arquivos.Salvar           := True;
    ACBrANe1.Configuracoes.Arquivos.AdicionarLiteral := ACBrCTe1.Configuracoes.Arquivos.AdicionarLiteral;
    ACBrANe1.Configuracoes.Arquivos.SepararPorCNPJ   := ACBrCTe1.Configuracoes.Arquivos.SepararPorCNPJ;
    ACBrANe1.Configuracoes.Arquivos.SepararPorModelo := ACBrCTe1.Configuracoes.Arquivos.SepararPorModelo;
    //ACBrANe1.Configuracoes.Arquivos.OrdenacaoPath    := '';
    ACBrANe1.Configuracoes.Arquivos.SepararPorAno    := ACBrCTe1.Configuracoes.Arquivos.SepararPorAno;
    ACBrANe1.Configuracoes.Arquivos.SepararPorMes    := ACBrCTe1.Configuracoes.Arquivos.SepararPorMes;
    ACBrANe1.Configuracoes.Arquivos.SepararPorDia    := ACBrCTe1.Configuracoes.Arquivos.SepararPorDia;
    // Configurações -> WebServices
    ACBrANe1.Configuracoes.WebServices.AguardarConsultaRet      := ACBrCTe1.Configuracoes.WebServices.AguardarConsultaRet;
    ACBrANe1.Configuracoes.WebServices.AjustaAguardaConsultaRet := ACBrCTe1.Configuracoes.WebServices.AjustaAguardaConsultaRet;
    ACBrANe1.Configuracoes.WebServices.Ambiente                 := ACBrCTe1.Configuracoes.WebServices.Ambiente;
    ACBrANe1.Configuracoes.WebServices.IntervaloTentativas      := ACBrCTe1.Configuracoes.WebServices.IntervaloTentativas;
    ACBrANe1.Configuracoes.WebServices.Tentativas               := ACBrCTe1.Configuracoes.WebServices.Tentativas;
    ACBrANe1.Configuracoes.WebServices.TimeOut                  := ACBrCTe1.Configuracoes.WebServices.TimeOut;
    ACBrANe1.Configuracoes.WebServices.UF                       := ACBrCTe1.Configuracoes.WebServices.UF;
    ACBrANe1.Configuracoes.WebServices.Visualizar               := ACBrCTe1.Configuracoes.WebServices.Visualizar;
    ACBrANe1.Configuracoes.WebServices.ProxyHost                := ACBrCTe1.Configuracoes.WebServices.ProxyHost;
    ACBrANe1.Configuracoes.WebServices.ProxyPort                := ACBrCTe1.Configuracoes.WebServices.ProxyPort;
    ACBrANe1.Configuracoes.WebServices.ProxyUser                := ACBrCTe1.Configuracoes.WebServices.ProxyUser;
    ACBrANe1.Configuracoes.WebServices.ProxyPass                := ACBrCTe1.Configuracoes.WebServices.ProxyPass;
    ACBrANe1.Configuracoes.WebServices.Salvar                   := True;
    // configurações -> certificado
    ACBrANe1.Configuracoes.Geral.SSLLib                         := ACBrCTe1.Configuracoes.Geral.SSLLib;
    ACBrANe1.Configuracoes.Certificados.ArquivoPFX              := ACBrCTe1.Configuracoes.Certificados.ArquivoPFX;
    ACBrANe1.Configuracoes.Certificados.NumeroSerie             := ACBrCTe1.Configuracoes.Certificados.NumeroSerie;
    ACBrANe1.Configuracoes.Certificados.Senha                   := ACBrCTe1.Configuracoes.Certificados.Senha;
    ACBrANe1.Configuracoes.Certificados.VerificarValidade       := ACBrCTe1.Configuracoes.Certificados.VerificarValidade;
  EXCEPT ON E:EXCEPTION DO
    begin
      RESULT := FALSE;
      ShowMessage('Ocorreu um erro ao capturar os dados do Certificado Digital : ' + #13#10 + E.Message);
      Ini.Free;
      BuscaPath;
      Exit;
    end;
  END;

 

[Paulo Alexandre Hostert]

Boa noite,

Já estão disponível opção para cancelamento da averbação?

[Italo Giurizzato Junior]

Bom dia Paulo,

Segundo o Manual de Integração Web Services 2.0 da AT&M, temos o seguinte a respeito de cancelamento.

Se ocorrer o cancelamento de um CT-e deverá ser informado para que não ocorra cobrança indevida no faturamento.
Após cancelar o CT-e na Secretaria da Fazenda (SEFAZ), o transportador receberá um XML de cancelamento protocolado. Este XML será utilizado no cancelamento da averbação na AT&M.
O Webservice da AT&M identifica o XML como sendo de cancelamento, localiza o CT-e averbado anteriormente e registra a informação de cancelamento, enviando os dados para o corretor e/ou seguradora.

No meu entendimento o "XML de cancelamento protocolado" que se refere o texto acima é o arquivo referente ao processamento do evento de cancelamento que é gravado pelo componente ACBrCTe com o seguinte nome: <id>-procEventoCTe.xml

Esse arquivo contem o pedido de cancelamento assinado mais o protocolo gerado pela SEFAZ que acusa que o evento de cancelamento foi registrado e vinculado ao CT-e.

[Paulo Alexandre Hostert]

Boa noite,

No envio do arquivo procEventoCTE.xml  na função GerarMsgLog recebo o seguinte erro:

Project Demo_ACBrANe.exe raised exception class EArgumentOutOfRangeException with message 'Argument out of range'.

Alguém já conseguiu cancelar?

[Italo Giurizzato Junior]

Boa noite Paulo,

Onde exatamente ocorre o erro?

[Paulo Alexandre Hostert]

Bom dia.

Ocorre no envio, dentro do procedimento GerarMsgLog, na linha abaixo:

 

if (FProtocolo <> '') and (FErroCodigo = '') and (FInfoCodigo = '') then
  begin
  Result := Format(ACBrStr('Averbação:' + LineBreak +
                           ' Data     : %s ' + LineBreak +
                           ' Protocolo: %s ' + LineBreak +
                           ' Numero   : %s ' + LineBreak + LineBreak +
                           'Dados do Seguro:' + LineBreak +
                           ' Numero Averbação: %s' + LineBreak +
                           ' CNPJ Seguradora: %s' + LineBreak +
                           ' Nome Seguradora: %s' + LineBreak +
                           ' Numero Apolice : %s' + LineBreak +
                           ' Tipo Movimento : %s' + LineBreak +
                           ' Valor Averbado : %s' + LineBreak +
                           ' Ramo Averbado  : %s' + LineBreak),
                   [IfThen(FdhAverbacao = 0, '', FormatDateTimeBr(FdhAverbacao)),
                    FProtocolo,
                    FNumeroAverbacao,
                    ANeRetorno.Averbado.DadosSeguro.Items[0].NumeroAverbacao,
                    ANeRetorno.Averbado.DadosSeguro.Items[0].CNPJSeguradora,
                    ANeRetorno.Averbado.DadosSeguro.Items[0].NomeSeguradora,
                    ANeRetorno.Averbado.DadosSeguro.Items[0].NumApolice,
                    ANeRetorno.Averbado.DadosSeguro.Items[0].TpMov,
                    FloatToStr(ANeRetorno.Averbado.DadosSeguro.Items[0].ValorAverbado),
                    ANeRetorno.Averbado.DadosSeguro.Items[0].RamoAverbado]);
  end;