Erro Ao Tentar Enviar Novamente O Cte

[claudiojose]

Ola pessoal, utilizo o ACBRCte e quanto dento enviar, se tiver algum erro, ele me mostra sem problema algum.

Só que se eu concertar o problema e tentar enviar novamente acontece um erro nas seguintes lilhas:

if not(Self.Retorno.Executar) then
begin
     if Assigned(TACBrCTe( FACBrCTe ).OnGerarLog) then
          TACBrCTe( FACBrCTe ).OnGerarLog(Self.Retorno.Msg);
       raise Exception.Create(Self.Retorno.Msg);
end;

 

tento enviar da seguinte maneira:

 

     xml.SaveToFile(nome_arquivo);
     ACBrCTe1.Conhecimentos.Clear   ;
     ACBrCTe1.Conhecimentos.LoadFromFile(nome_arquivo);
     ACBrCTe1.Enviar(StrToInt('1'));

 

 

o que poderia estar acontecendo...

 

Grato

 

Cláudio
 

[Italo Giurizzato Junior]

Boa noite Cláudio,

 

Quando um CT-e é rejeitado, devemos corrigir o problema e gerar novamente o XML, assinar, validar e enviar.

[claudiojose]

Boa Noite Italo, tudo tranquilo por ai

 

Faço isso mesmo, pensei que havia uma maneira de limpar o Componente ou algo parecido.

 

Vou verificar novamente aqui novamente.

 

Grato

 

Cláudio

[claudiojose]

Bom Dia.

 

Ainda não consegui resolver o problema, o interessante que se eu sair e entrar do Form que faz o processo de enviou dai funciona,

caso tenha alguma ideia do que esta acontecendo,  agradeço

 

Att

 

Cláudio

[Italo Giurizzato Junior]

Boa tarde Cláudio,

 

Tenho na minha aplicação um Data Module com os componentes ACBrCTe e ACBrCTeDACTEQR.

 

Não fico criando e destruindo componentes ou form durante a execução da aplicação.

 

Tenho um Form de Emissão de CT-e, quando o usuário abre ele, é apresentado uma lista de conhecimentos lançados e já salvos no banco de dados.

 

Conhecimentos estes que ainda não foram enviados para SEFAZ.

 

O usuário tem a liberdade de escolher quais os conhecimentos da lista que deseja emitir.

 

Ao clicar no botão [Emitir], tenho uma rotina que identifica os conhecimentos selecionados, busca os dados deles no banco de dados e alimenta o componente.

 

Logo essa rotina é um Loop que a cada laço é adicionado ao componente os dados de um conhecimento.

 

Feito isso simplesmente mando executar o comando Enviar, pois este comando se encarrega de gerar um XML para cada conhecimento adicionado ao componente, alem de assinar cada um deles, validar, gerar o lote com todos eles, enviar para SEFAZ, atualizar os XMLs com o protocolo de autorização e imprimir os DACTE.

 

Não utilizo SaveToFile e LoadFromFile como você apresentou em seu Post.

 

Realizei um teste essa semana, adicionando 3 conhecimentos e depois mandando emitir todos eles, ou seja enviei um lote com os 3 conhecimentos.

 

Sem nenhum problema.

 

Os testes foram realizados em ambiente de homologação, tanto na versão 1.04 quanto na versão 2.00, funcionou perfeitamente.

[claudiojose]

Obrigado Italo, vou fazer isso.

 

Só que atualizei o sistema e na hora de imprimir o conhecimento da erro de acesso violado   nas seguintes linhas

uso o QR4

 

 for i := 0 to TACBrCTe(ACBrCTe).Conhecimentos.Count - 1 do
      frmDACTeQRRetrato.Imprimir(TACBrCTe(ACBrCTe).Conhecimentos.Items.CTe
                                    , Logo
                                    , Email
                                    , ImprimirHoraSaida
                                    , ExpandirLogoMarca
                                    , ImprimirHoraSaida_Hora
                                    , false
                                    , Fax
                                    , NumCopias
                                    , Sistema
                                    , Site
                                    , Usuario
                                    , MostrarPreview
                                    , MargemSuperior
                                    , MargemInferior
                                    , MargemEsquerda
                                    , MargemDireita
                                    , Impressora
                                    , PosRecibo
                                    , CTeCancelada); // Incluido por Italo em 12/04/2013

 

 

 

 

 

 

 

Grato

 

Cláudio