Gravar Cancelamento no XML

[RODRIGORIOS]

Olá pessoal estou com uma dúvida que não estou conseguindo saná-la.

É o seguinte, em minha aplicação eu cancelo a NFe da seguinte maneira.

Vchave:=IBQueryNFeCHAVE.AsString;

protocolo:=IBQueryNFePROTOCOLO.AsString;

justificativa:=trim(edit1.Text);

ACBrNFe1.WebServices.Cancelamento.NFeChave := VChave;

ACBrNFe1.WebServices.Cancelamento.Protocolo := Protocolo;

ACBrNFe1.WebServices.Cancelamento.Justificativa := Justificativa;

ACBrNFe1.WebServices.Cancelamento.Executar;

ACBrNFe1.NotasFiscais.Clear;

ACBrNFe1.NotasFiscais.LoadFromFile('C:\CLEVER\NFE\'+TRIM(VCHAVE)+'-NFE.XML');

ACBrNFe1.Consultar;

statusnota:=ACBrNFe1.WebServices.Consulta.cStat;

Caso o status retornado seja 101 eu faço os procedimentos no banco de dados. O problema é que estou tentando gravar no xml que ele está cancelado. Pois ao final do cancelamento da nota, o sistema abre novamente a nfe para o usuario imprimir, e nessa impressão nao está saindo com a tarja NFE CANCELADA.

CASE StatusNota OF

101:BEGIN

//SALVAR O XML E IMPRIMIR

ACBrNFe1.NotasFiscais.VALIDA;

Acbrnfe1.NotasFiscais.Assinar;

//IMPRESSÃO DA NOTA FISCAL ELETRÔNICA

ACBrNFe1.NotasFiscais.Imprimir;

ACBrNFe1.NotasFiscais.ImprimirPDF;

Não sei se o que estou fazendo para salvar está correto. Por favor se alguém puder me dar uma mão.

Obrigado

[André Ferreira de Moraes]

Vc não precisa dos comandos abaixo antes de mandar a impressão.

ACBrNFe1.NotasFiscais.VALIDA;

Acbrnfe1.NotasFiscais.Assinar;

[/code]