Reimpressão de DACTE

[impactus]

Olá, gostaria de saber quais métodos posso utilizar para uma reimpressão de uma DACTE. Em um modelo de testes tinha a seguinta função:

"if OpenDialog1.Execute then

begin

ACBrCTe1.Conhecimentos.Clear;

ACBrCTe1.Conhecimentos.LoadFromFile(OpenDialog1.FileName);

ACBrCTe1.Conhecimentos.Imprimir;

end;"

Mas no banco eu guardo o xml e queria imprimir apartir dele sem precisa selecionar o arquivo, tem como? Fiz um teste da seguinte maneira mas não deu certo:

"DMCTE.ACBrCTe1.Conhecimentos.Clear;

//DMCTE.ACBrCTe1.Conhecimentos.LoadFromFile(OpenDialog1.FileName);

DMCTE.ACBrCTe1.Conhecimentos.Add.XML:=cdsGenCTE_XML.Value;

DMCTE.ACBrCTe1.Conhecimentos.Imprimir;"

Tem outra maneira de fazer?

[wagner_fix]

Usa o exemplo do TXT...

fiz e funcionou de boa...

var

PathArquivo, NomeArquivo: String;

begin

ACBrCTe1.DACTe.NumCopias := 1;

PageControl2.ActivePageIndex := 0;

PathArquivo := ACBrCTe1.Configuracoes.Arquivos.GetPathCTe(StrToDate(txtEmissao.Text));

NomeArquivo := PathArquivo+'\'+Trim(txtChave.Text)+'-cte.xml';

// Carrega no Componente o CTe salvo em Arquivo XML

ACBrCTe1.Conhecimentos.Clear;

ACBrCTe1.Conhecimentos.LoadFromFile(NomeArquivo);

memoLog.Lines.Add('XML:');

memoLog.Lines.Add(' Carregado');

memoLog.Lines.Add(' CT-e: '+Copy(Trim(txtCTe.Text),4,44));

memoLog.Lines.Add(' Aguarde a Impressão...');

// Somente imprime o CTe

ACBrCTe1.Conhecimentos.Imprimir;

[Mark Apollo]

Olá, impactus,

ainda não trabalho com o CTe, mas com o NFe e também salvo o XML em banco, para reimprimir eu gero o arquivo em um diretório temporário do usuário, ou seja:

    

Nfe_Caminho_XML := IncludeTrailingPathDelimiter(GetEnvironmentVariable('temp'))+Chave+'.XML';

    try

      If FileExists(Nfe_Caminho_XML) then

         DeleteFile(Nfe_Caminho_XML);


      AssignFile( tfXML, Nfe_Caminho_XML );

      ReWrite( tfXML );


      WriteLn( tfXML, DmNFe.AdoDsXML_DanfeXML_Dados.AsString );


      CloseFile(tfXML);

    except

      on E:Exception do

      begin

        CloseFile(tfXML);

        MsgBox('Não foi possível gerar o arquivo!',E,mtError, [mbOk], 0);

      end;

    end;

depois eu carrego o arquivo:

ACBrCTe1.Conhecimentos.LoadFromFile(Nfe_Caminho_XML);

[impactus]

Beleza, obrigado a todos que ajudaram, deu certinho o esquema.

Vlw