NFc-e imprimindo danfe com modelo nfe

[danielqualhato]

Pessoal estou fazendo uns teste para emissão de NFc-e em mode Homologação e na hora de imprimir o danfe imprime no formato de NF-e. Alguem sabe me dizer o que pode ser?

seque fonte de configuração do componente acBrNFe e Anexo do danfe

 // Repassa Dados para componente AcBrNFe
  {$IFDEF ACBrNFeOpenSSL}
     ACBrNFe1.Configuracoes.Certificados.ArquivoPFX  := tbl_configCERTIFICADO.AsString;
     ACBrNFe1.Configuracoes.Certificados.Senha       := tbl_configSENHA_CERTIF.AsString;
  {$ELSE}
     ACBrNFe1.Configuracoes.Certificados.NumeroSerie := tbl_configNUMERO_SERIE.AsString;
  {$ENDIF}
  ACBrNFe1.Configuracoes.Geral.FormaEmissao         := StrToTpEmis(OK,IntToStr(tbl_configFORMA_EMISSAO.AsInteger));
  if tbl_configSALVAR_ARQUIVO.AsString = 'S' then
    ACBrNFe1.Configuracoes.Geral.Salvar               := true
  else
  ACBrNFe1.Configuracoes.Geral.Salvar               := false;
  ACBrNFe1.Configuracoes.Arquivos.PathSalvar        := tbl_configPATH_ARQUIVO.AsString;

  // modelo
  ACBrNFe1.Configuracoes.Geral.ModeloDF      := moNFe;
  if tbl_configTIPODOCFISCAL.AsInteger = 1 then
  begin
     ACBrNFe1.Configuracoes.Geral.ModeloDF   := moNFCe;
     ACBrNFe1.Configuracoes.Geral.IncluirQRCodeXMLNFCe := true;
     ACBrNFe1.Configuracoes.Geral.IdCSC      := tbl_configCONF_IDCSC.AsString;
     ACBrNFe1.Configuracoes.Geral.CSC        := tbl_configCONF_CSC.AsString;
  end;
  // versão
  case tbl_configVERSAO_NFE.AsInteger of
    0: begin
         ACBrNFe1.Configuracoes.Geral.VersaoDF    := ve200;
         ACBrNFe1.Configuracoes.Arquivos.PathSchemas := ExtractFilePath(Application.ExeName)+'Schemas\V200';
       end;

    1: begin
         ACBrNFe1.Configuracoes.Geral.VersaoDF    := ve300;
         ACBrNFe1.Configuracoes.Arquivos.PathSchemas := ExtractFilePath(Application.ExeName)+'Schemas\V300';
       end;

    2: begin
         ACBrNFe1.Configuracoes.Geral.VersaoDF    := ve310;
         ACBrNFe1.Configuracoes.Arquivos.PathSchemas := ExtractFilePath(Application.ExeName)+'Schemas\NFe';
       end;
  end;
  ACBrNFe1.Configuracoes.Geral.ExibirErroSchema := true;
  ACBrNFe1.Configuracoes.Geral.FormatoAlerta    := 'Campo:%DESCRICAO% - %MSG%';
  // WebServices
  ACBrNFe1.Configuracoes.WebServices.UF         := tbl_configUF_NFE.AsString;
  ACBrNFe1.Configuracoes.WebServices.Ambiente   := StrToTpAmb(OK,IntToStr(tbl_configAMBIENTE.AsInteger+1));
  ACBrNFe1.Configuracoes.WebServices.Visualizar := True;
  ACBrNFe1.Configuracoes.WebServices.ProxyHost  := tbl_configHOST.AsString;
  ACBrNFe1.Configuracoes.WebServices.ProxyPort  := tbl_configPORTA.AsString;
  ACBrNFe1.Configuracoes.WebServices.ProxyUser  := tbl_configUSUARIO_NFE.AsString;
  ACBrNFe1.Configuracoes.WebServices.ProxyPass  := tbl_configSENHA_NFE.AsString;
  //Configuração do Danfe
  ACBrNFeDANFeRL1.ACBrNFe      := ACBrNFe1;
  //ACBrNFeDANFeRL1.FastFile := ExtractFileDir(application.ExeName) + '\Report\DANFeRetrato_Basic.fr3';
  ACBrNFeDANFCeFortes1.PathPDF      := tbl_configPATH_ARQUIVO.AsString;
  ACBrNFe1.DANFE.Sistema           := ExtractFileName(Application.ExeName);
  ACBrNFe1.DANFE.Usuario           := tbl_usuLogadoUSU_NOME.AsString;
  ACBrNFe1.DANFE.Impressora        := 'Laser';
  ACBrNFe1.DANFE.MostrarPreview    := True;
  ACBrNFe1.DANFE.NumCopias         := 1;
  ACBrNFe1.DANFE.Fax               := '';
  ACBrNFe1.DANFE.Email             := tbl_configCONF_EMAIL.AsString;
  ACBrNFe1.DANFE.Site              := tbl_configCONF_SITE.AsString;
  ACBrNFe1.DANFE.ImprimirDescPorc  := True;
  ACBrNFe1.DANFE.Logo              := tbl_configLOGOMARCA.AsString;
  ACBrNFe1.DANFE.PathPDF           := tbl_configPATH_ARQUIVO.AsString;
  if sPAFNFCe = 1 then // NFc-e
    ACBrNFeDANFCeFortes1.TipoDANFE   := tiNFCe
  else
    ACBrNFeDANFCeFortes1.TipoDANFE    := tiRetrato;

 

52160912328999000181650010000002891000002892.pdf

[Jean Peixoto]

Boa tarde,

Qual componente Danfe você está utilizando? Bem provável que esteja utilizando o danfe errado!

[danielqualhato]

Olá Jean

Eu estava com os dois danfes, um para NFe e outro para NFc-e. Tirei um e deixei somente o danfe NFc-e e setei a propriedade manualmente em tempo de dezine e funcionou. Provavelmente seja isso que você disse mesmo. Mas muito obrigado. Tudo de bom.