Imprimir DANFe layout NFe e não Cupom Fiscal

[franciscolima]

Olá pessoal,

Estou seguindo as informações abaixo para visualizar/imprimir uma DANFE de Nota Fiscal eletrônica, porém está vindo para mim o layout do Cupom Fiscal para impressão/visualização.

Alguém poderia me ajudar?

begin
  OpenDialog1.Title := 'Selecione a NFE';
  OpenDialog1.DefaultExt := '*-nfe.XML';
  OpenDialog1.Filter := 'Arquivos NFE (*-nfe.XML)|*-nfe.XML|Arquivos XML (*.XML)|*.XML|Todos os Arquivos (*.*)|*.*';
  OpenDialog1.InitialDir := ACBrNFe1.Configuracoes.Arquivos.PathSalvar;

  if OpenDialog1.Execute then
  begin
    ACBrNFe1.NotasFiscais.Clear;
    ACBrNFe1.NotasFiscais.LoadFromFile(OpenDialog1.FileName,False);
    ACBrNFe1.NotasFiscais.Imprimir;
  end;
end;

Editado 28 Dezembro, 2016 por franciscolima

[BigWings]

Bom dia,

Veja as configurações do componente ACBrNFeDANFE que está vinculado ao componente ACBrNFe.

Cada componente DANFE tem configurações específicas, você deve preenchê-las de acordo com o documento que está imprimindo.

[franciscolima]

Bom dia,

Onde posso encontrar as configurações para a Nfe?

[Juliomar Marchetti]

Como assim configurações?

veja aqui na sessão downloads que tem o manual do componente.

[BigWings]

10 minutos atrás, franciscolima disse:

Bom dia,

Onde posso encontrar as configurações para a Nfe?

Por configurações entenda "propriedades" do componente ACBrNFeDANFE. 

[Juliomar Marchetti]

e por isso respondi para baixar o manual ali na sessão downloads, claro além do exemplo que tem no svn

[carlosinfoteen]

44 minutos atrás, franciscolima disse:

Bom dia,

Onde posso encontrar as configurações para a Nfe?

Francisco deixa ver se te ajudo...

Você tem que atribuir ao componente as configurações que deseja que o mesmo trabalhe pois o mesmo já vem com algumas configurações padrão, mas pode ser modificada, via tempo de projeto ou via execução através de código.

Logo você pode clicar no componente ACBRNFE e ir no object Inspector do Delphi e modificar as propriedades desejadas. Ou fazer mais ou menos como abaixo em alguma função ou procedimento...

NOTA: Levando em conta se tiver usando O fastreport como gerador do relatorio/DANFE.

 

//-----------------Modelo---------
  with   ACBrNFe.Configuracoes.Geral do
     begin
        ModeloDF := moNFe;
        //.....
     end;

 

  //--------------Impressão DANFE------------------------
  with ACBrNFeDanfeFR do
     begin
//-----Tipo/modo de impressao
        TipoDANFE := TpcnTipoImpressao(cdsConfiguracao.FieldByName('FORMATO_IMPRESSAO_DANFE').AsInteger);
           //----->0=tiSemGeracao, 1=tiRetrato, 2=tiPaisagem, 3=tiSimplificado, 4=tiNFCe, 5=tiMsgEletronica, 6=tiNFCeA4

        //-----Formato Impressao do DANFE / Arquivo de impressao
        if (cdsConfiguracao.FieldByName('FORMATO_IMPRESSAO_DANFE').AsInteger=2)  then    
          FastFile :=cdsConfiguracao.FieldByName('CAMINHO_ARQUIVO_DANFE').AsString + 'DANFePaisagem.fr3'
        else
          FastFile :=cdsConfiguracao.FieldByName('CAMINHO_ARQUIVO_DANFE').AsString + 'DANFeRetrato.fr3';

        if (cdsConfiguracao.FieldByName('VISUALIZAR_DANFE_ANTES_IMPRIMIR').AsString='S')  then              MostrarPreview := True
        else
          MostrarPreview := False;

        Logo:=cdsConfiguracao.FieldByName('CAMINHO_LOGO_CUPOM').AsString;
     end;

 

OBS: Você pode estudar os exemplos da pasta exemplo com calma e ver melhor estes recursos...

..\Exemplos\ACBrDFe\ACBrNFe

 

Espero ter ajudado.

[franciscolima]

Obrigado Pessoal!!