Carta De Correção Em Homologação

[Igor Oliveira]

Bom dia a todos.

 

Ontem fui fazer uns testes na carta de correção e percebi que, mesmo quando você define que é pra enviar em Homologação, o Componente envia para produção. Digo isto porque, assim que envio a carta em Homologação e pesquiso o CTe no site da fazenda, ele mostra a carta de correção.

O código que utilizo é igual ao txt do ACBR

 

 ACBrCTe.EventoCTe.Evento.Clear;

 

 with ACBrCTe.EventoCTe.Evento.Add do

  begin

   infevento.chCTe    := Chave;

   infEvento.CNPJ     := sCNPJ;

   infEvento.dhEvento := now;

   infEvento.tpEvento := teCCe;

   infEvento.tpAmb    := taHomologacao; // Aqui eu defino o tipo de ambiente, essa é a única alteração.

 

   with ACBrCTe.EventoCTe.Evento.Items[0].InfEvento.detEvento.infCorrecao.Add do

    begin

     grupoAlterado   := sGrupo;

     campoAlterado   := sCampo;

     valorAlterado   := sValor;

     nroItemAlterado := iNumItem;

    end;

  end;

 

 ACBrCTe.EnviarEventoCTe(iNumLote);

 

Poderiam me dar uma luz de como enviar uma CCe em Homologação?

 

[Italo Giurizzato Junior]

Boa tarde Igor,

 

Por favor post como anexo o arquivo de envio e de retorno da respectiva CC-e.

[Igor Oliveira]

Segue os respectivos XMLs

2-ped-eve.xml

1101103514110297320300019057001000016147195139152902-procEventoCTe.xml

[Italo Giurizzato Junior]

Boa tarde Igor,

 

Por favor abra a unit ACBrCTeWebServices, verifique se a linha 799 esta desta forma:

 

          infEvento.tpAmb      := TpcnTipoAmbiente(FConfiguracoes.WebServices.AmbienteCodigo-1);

 

Note que existe um menos 1, por que, o ambiente de produção é 1 e o de homologação é 2, correto?

 

Mas o TpcnTipoAmbiente é definido da seguinte forma:

 

  TpcnTipoAmbiente = (taProducao, taHomologacao);

 

Trata-se de um conjunto de valores que neste caso possui apenas dois, correto?

 

Devemos lembrar que o índice do primeiro elemento é zero e não um, sendo assim isso explica o menos 1.

 

Se configuramentos o ambiente para homologação a propriedade AmbienteCodigo vale 2, fazendo as contas 2-1 é um ou seja vai retornar o elemento de índice 1 ou seja o segundo elemento do conjunto que neste caso é taHomologacao.

 

Concluo que o seu fonte tem alguma coisa alterada.

[Igor Oliveira]

Realmente está assim: 

infEvento.tpAmb      := TpcnTipoAmbiente(FConfiguracoes.WebServices.AmbienteCodigo-1);

 

Deletei o arquivo .pas e dei update na pasta, porém ele ainda retorna com esse (-1)... Será que estou com o diretorio de reposicao errado?

 

atualmente está assim:

https://svn.code.sf.net/p/acbr/code

[Italo Giurizzato Junior]

Boa tarde Igor,

 

O correto é ter o -1.

 

Se você pesquisar nesse fonte toda vez que é passado o tipo de ambiente é desta forma.

[Igor Oliveira]

Não sei o que fiz, mas agora não enviou em produção, está como deveria estar

Obrigado pela atenção Italo