Ir para conteúdo
  • Cadastre-se

dev botao

  • Este tópico foi criado há 3000 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

Postado

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

Postado

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. 

  • Este tópico foi criado há 3000 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar Agora
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.