Jump to content

dev botao

Logo Nfe


Go to solution Solved by André Ferreira de Moraes,
  • Este tópico foi criado há 4136 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

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;
 
Link to comment
Share on other sites

  • Moderadores

Vc diz que no PDF e no Email o logo aparece, apenas qdo manda imprimir que não aparece?

Qual versão do Rave que vc tem instalado? Testou em outro micro?

djsystem-logo.png
 youtube.png facebook.png instagram.png linkedin.png
André Ferreira de Moraes | Analista de Sistemas
www.djsystem.com.br | www.djpdv.com.br
www.tefhouse.com.br | www.lambretinha.com.br
Link to comment
Share on other sites

  • Moderadores
  • Solution

O recomendado para usar a versão RaveCB é a versão "Rave be 5.0.8", vc encontra a atualização na página da embarcadero.

djsystem-logo.png
 youtube.png facebook.png instagram.png linkedin.png
André Ferreira de Moraes | Analista de Sistemas
www.djsystem.com.br | www.djpdv.com.br
www.tefhouse.com.br | www.lambretinha.com.br
Link to comment
Share on other sites

×
×
  • Create New...

Important Information

We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.

The popup will be closed in 10 seconds...