Geração, Assinatura e Validação do CT-e

[AlexandreADC]

Caros amigos, eu encontrei um grande problema com a geração do XML do CT-e. Percebi que a cada função que executo, seja ele: CTe.Conhecimentos.GerarCTe; (que realmente gera o código), o CTe.Conhecimentos.Assinar; e depois CTe.Conhecimentos.Valida; está trocando a chave (CTe.Conhecimentos.Items[0].CTe.infCTe.ID) do CTe, mais pra frente dá uma grande dor de cabeça, pois o arquivo XML é salvo no disco no "Assinar" perde a chave que tinha na procedure "Validar" (setando então outra em seu lugar)...

O código que fiz para gerar, assinar e validar é o seguinte:

// cria o XML no componente

try

CTe.Conhecimentos.GerarCTe;

except

on Exc: Exception do

begin

Application.MessageBox(

'Falha ao Gerar o XML. Verifique mensagens de retorno',

'Atenção', MB_ICONERROR);

rtfMsgRetorno.Clear;

rtfMsgRetorno.Lines.Add(Exc.Message);

lblEtapa1.Visible := True;

Img1Nao.Visible := True; // Img XML gerado

Exit;

end;

end;

try

CTe.Conhecimentos.Assinar;

except

on Exc: Exception do

begin

Application.MessageBox(

'Falha na Assinatura do XML. Verifique mensagens de retorno'

, 'Atenção', MB_ICONERROR);

rtfMsgRetorno.Clear;

rtfMsgRetorno.Lines.Add(Exc.Message);

Img3Nao.Visible := True;

Exit;

end;

end;

ChaveDV := CTe.Conhecimentos.Items[0].CTe.infCTe.ID;

rtfMsgRetorno.Lines.Add('Chave de Acesso do CT-e: ' + ChaveDV);

// caso der erro no procedimento validar, retorna excecao

try

CTe.Conhecimentos.Valida;

except

on Exc: Exception do

begin

Application.MessageBox(

'Falha de Validação do XML. Verifique mensagens de retorno'

, 'Atenção', MB_ICONERROR);

rtfMsgRetorno.Clear;

rtfMsgRetorno.Lines.Add(Exc.Message);

Img4Nao.Visible := True;

Exit;

end;

end;

**************************************************************************************************************

Em que lugar eu errei?

Obrigado pela atenção!

[AlexandreADC]

Acredito que é por causa da função "LocCTeW.GerarXml;" no assinar ;s

[Italo Giurizzato Junior]

Boa Noite Alexandre,

Não existe problema algum com a geração do XML do CTe, mais precisamente com a chave do mesmo.

O que esta acontecendo é que, ao alimentar o componente com os dados pertinentes ao transporte da carga, você esta informando ZERO ao campo cCT (código aleatório que compõe a chave do CT-e):

Ide.cCT := 0;

Desta forma ao executar os procedimentos GerarXml ou Assinar ou Validar é gerado a chave do CT-e, a rotina que a gera utiliza o valor do campo cCT se este for igual a ZERO é gerado um código aleatório.

O que eu faço é gerar esse código aleatório e depois atribuir esse valor ao campo cCT, veja este exemplo:

Randomize;

CodigoAleatorio := Random(999999999);


With ACBrCTe.Conhecimentos.Add.CTe do 

  begin

    Ide.cCT := CodigoAleatorio;

    (....)

  end;

Fazendo desse jeito a rotina que gera a chave vai utilizar sempre o mesmo código aleatório, pois é diferente de ZERO, portanto a chave gerada sempre vai ser igual.

Outro detalhe muito importante eu salvo o valor do código Aleatório em um campo na tabela do banco de dados, juntamente com os demais dados.

Espero ter ajudado.

[AlexandreADC]

Ok! Eu imaginava que o próprio componente se encarregaria de gerar e manter ele...

Obrigado pela informação!