Ir para conteúdo
  • Cadastre-se

dev botao

Logo Nfe


Ver Solução Respondido por André Ferreira de Moraes,
  • Este tópico foi criado há 4317 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

Postado

Boa Noite

Estou com o seguinte problema.

Carrego a logo no Confignfe, normal, minha imagem é em jpg.

Na geração por pdf é normal(monstra a imagem), no email tb, mas quando gero o processo de criação não aparece.

 

Ex:da Função

 

 

Function TfrmNFe.CarregaConfigNFE(iCODIGO : SmallInt): Boolean;
Begin
  Try
    Result := False;
    With sqlDadosNFe Do
    Begin
      SQLConnection := DBX_Express.SQLConnection;
      Close;
      CommandText := ' SELECT * FROM ConfigNFe WHERE CODPARAM_NFE = ' + IntToStr(iCODIGO);
      Prepared := True;
    End;
    With cdsDadosNFe Do
    Begin
      Close;
      Open;
      If Not(IsEmpty) Then
      Begin
        ACBrNFe1.Configuracoes.Certificados.NumeroSerie := FieldByName('NUMSERIE_NFE').AsString;
 
        ACBrNFe1.Configuracoes.Arquivos.Salvar := (FieldByName('SALVAR_NFE').AsInteger = 1);
        Case FieldByName('FORMAEMISSAO_NFE').AsInteger Of
          0: ACBrNFe1.Configuracoes.Geral.FormaEmissao := teNormal;
          1: ACBrNFe1.Configuracoes.Geral.FormaEmissao := teContingencia;
          2: ACBrNFe1.Configuracoes.Geral.FormaEmissao := teSCAN;
          3: ACBrNFe1.Configuracoes.Geral.FormaEmissao := teDPEC;
          4: ACBrNFe1.Configuracoes.Geral.FormaEmissao := teFSDA;
        Else
          ACBrNFe1.Configuracoes.Geral.FormaEmissao := teNormal;
        End;
        ACBrNFe1.Configuracoes.Geral.PathSalvar := FieldByName('DIR_SALVAR_NFE').AsString;
 
        ACBrNFe1.Configuracoes.WebServices.UF := FieldByName('WS_UF_NFE').AsString;
        ACBrNFe1.Configuracoes.WebServices.Visualizar := (FieldByName('WS_VISUALIZA_NFE').AsInteger = 1);
        Case FieldByName('WS_AMBIENTE_NFE').AsInteger Of
          0: ACBrNFe1.Configuracoes.WebServices.Ambiente := taProducao;
          1: ACBrNFe1.Configuracoes.WebServices.Ambiente := taHomologacao;
        Else
          ACBrNFe1.Configuracoes.WebServices.Ambiente := taProducao;
        End;
        ACBrNFe1.Configuracoes.WebServices.ProxyHost := FieldByName('PROXY_HOST_NFE').AsString;
        ACBrNFe1.Configuracoes.WebServices.ProxyPort := FieldByName('PROXY_PORTA_NFE').AsString;
        ACBrNFe1.Configuracoes.WebServices.ProxyUser := FieldByName('PROXY_USER_NFE').AsString;
        ACBrNFe1.Configuracoes.WebServices.ProxyPass := FieldByName('PROXY_SENHA_NFE').AsString;
 
        Case FieldByName('DANFE_NFE').AsInteger Of
          0: ACBrNFeDANFERave1.TipoDANFE := tiRetrato;
          1: ACBrNFeDANFERave1.TipoDANFE := tiPaisagem;
        Else
          ACBrNFeDANFERave1.TipoDANFE := tiRetrato;
        End;
        ACBrNFeDANFERave1.NumCopias := FieldByName('NUMCOPIAS_NFE').AsInteger;
        ACBrNFeDANFERave1.Logo := FieldByName('DIR_LOGO_NFE').AsString;
      //  ShowMessage(FieldByName('DIR_LOGO_NFE').AsString);
 
        ACBrNFe1.Configuracoes.Arquivos.PathCan  := FieldByName('DIR_CANC_NFE').AsString;
        ACBrNFe1.Configuracoes.Arquivos.PathDPEC := FieldByName('DIR_DPEC_NFE').AsString;
        ACBrNFe1.Configuracoes.Arquivos.PathInu  := FieldByName('DIR_INU_NFE').AsString;
        ACBrNFe1.Configuracoes.Arquivos.PathNFe  := FieldByName('DIR_NFES_NFE').AsString;
        ACBrNFe1.Configuracoes.Geral.PathSchemas := FieldByName('DIR_SCHEMA_NFE').AsString;
        ACBrNFeDANFERave1.PathPDF := FieldByName('DIR_PDF_NFE').AsString;
        //ACBrNFeDANFERave1. := FieldByName('DIR_RAVE_NFE').AsString + '\NotaFiscalEletronica.rav';
 
        Result := True;
      End;
    End;
  Except
    MessageBox(0, 'Falha na abertura dos dados de NF-e. Favor entrar em contato com o Suporte.', 'Atenção', MB_ICONWARNING or MB_OK or MB_SETFOREGROUND or MB_TOPMOST);
    Result := False;
    grbTela.Enabled := False;
  End;
End;
 
×
×
  • 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.

The popup will be closed in 10 segundos...