Danfe De Entrada Com Logo Da Empresa(Cliente)

[Hetosoft Sistemas]

O Cliente meu min mostrou um detalher, ele usar a opcao imprimir DANFE

so que mirou para um xml de entrada um fornecedor dele, e

saio a logmarca dele ,

ele imprimil a nota de entrada pos tinha somido a que veio com a mercadoria,

pos o vendedor tava la para comfeir 3 produtos que veio errado,

e vimos a logmarca dele na nota,

 

resumindo como façor para quando quando o CNPJ da nota for diferente da Cliente,

nao usar o Logo Marca ?

[André Ferreira de Moraes]

Faça uma verificação na sua rotina de impressão e retire o logo qdo não for do seu cliente.

[Hetosoft Sistemas]

  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.Geral.PathSalvar;
  if OpenDialog1.Execute then
  begin
    ACBrNFe1.NotasFiscais.Clear;
    ACBrNFe1.NotasFiscais.LoadFromFile(OpenDialog1.FileName);

 

 

    ShowMessage(   ACBrNFe1.NotasFiscais.Items[0].NFe.Emit.CNPJCPF );

 

    if ACBrNFe1.NotasFiscais.Items[0].NFe.Ide.tpEmis = teDPEC then
     begin
       ACBrNFe1.WebServices.ConsultaDPEC.NFeChave := ACBrNFe1.NotasFiscais.Items[0].NFe.infNFe.ID;
       ACBrNFe1.WebServices.ConsultaDPEC.Executar;
       ACBrNFe1.DANFE.ProtocoloNFe := ACBrNFe1.WebServices.ConsultaDPEC.nRegDPEC +' '+ DateTimeToStr(ACBrNFe1.WebServices.ConsultaDPEC.dhRegDPEC);
     end;
    ACBrNFe1.NotasFiscais.Imprimir;
  end;

 

 

 

blz, mais como desabilitar pra nao pega a logo,

 

if cnpj<>cnpjdanfe then

Form_NFe.edtLogoMarca.text:='';

 

ou tem um jeito melhor ?

[Hetosoft Sistemas]

    if Form_NFe.edtEmitCNPJ.Text<>Form_NFe.ACBrNFe1.NotasFiscais.Items[0].NFe.Emit.CNPJCPF then
    begin

       Form_NFe.ACBrNFe1.DANFE.Logo:='';

    end;

[Hetosoft Sistemas]

Seria isso ne !

[Régys Silveira]

Isso, basta limpar a propriedade que não vai imprimir a logo.