Ir para conteúdo
  • Cadastre-se

dev botao

Seja bem-vindo
Regras e orientações da nossa comunidade Participe do Discord do ACBr

NFC-e - Imprimindo DANFE na Bematech MP-4200 TH

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

Recommended Posts

mkonat Apprentice

mkonat

Postado
Postado

Bom dia!

Após fazer a atualização do ACBR a partir do Trunk2, não consigo mais imprimir na impressora Bematech MP-4200 TH utilizando o ACBRDanfeEscPos.

Nos fontes anteriores do ACBR estava conseguindo.

Fiz conforme o exemplo ACBRDanfeEscPos, mas imprime somente o Razao social, endereço do emitente. Procurei se já tivesse algum tópico que já tenha tratado disso mas não localizei.

O que pode estar ocorrendo?

Abaixo como estou setando os componentes:

   ACBrNFe1.NotasFiscais.Clear;
   ACBrNFe1.Configuracoes.WebServices.UF := 'RS';
   ACBrNFe1.Configuracoes.WebServices.Ambiente := StrToTpAmb(Ok,'1');
   ACBrNFe1.Configuracoes.Geral.ExibirErroSchema := True;
   ACBrNFe1.Configuracoes.Geral.FormatoAlerta := 'Campo:%DESCRICAO% - %MSG%';
   ACBrNFe1.Configuracoes.Geral.ModeloDF := moNFCe;
   ACBrNFe1.Configuracoes.Geral.IncluirQRCodeXMLNFCe := True;
   ACBrNFe1.Configuracoes.Geral.VersaoDF := ve310;
   ACBrNFe1.Configuracoes.Geral.IdCSC  := 1;
   ACBrNFe1.Configuracoes.Geral.CSC    := 9999999999999999999999999999999999999999;
   ACBrNFe.NotasFiscais.LoadFromFile('C:\TesteNFCE\43160389553564000165650010003692891003692890-nfe.xml');
   ACBrNFeDANFeESCPOS.TipoDANFE := tiNFCe;
   ACBrNFeDANFeESCPOS.ViaConsumidor := True;
   ACBrNFeDANFeESCPOS.ImprimirItens := True;

   ACBrNFe1.DANFE  := ACBrNFeDANFeESCPOS;
   ACBrPosPrinter1.Modelo := ppEscBematech;
   ACBrPosPrinter1.Device.Porta  := COM14;
   ACBrPosPrinter1.Device.Baud   := 9600;
   ACBrPosPrinter1.IgnorarTags   := True;
   ACBrPosPrinter1.Device.Ativar;
   ACBrPosPrinter1.ControlePorta := True; // True faz com que o componente abra e feche a porta conforme a necessidade automaticamente
   ACBrNFe1.NotasFiscais[0].Imprimir;

  • Curtir 1
  • 2 semanas depois ...
sdysv Apprentice

sdysv

Postado
Postado
Em 06/04/2016 at 11:05, mkonat disse:

Bom dia!

Após fazer a atualização do ACBR a partir do Trunk2, não consigo mais imprimir na impressora Bematech MP-4200 TH utilizando o ACBRDanfeEscPos.

Nos fontes anteriores do ACBR estava conseguindo.

Fiz conforme o exemplo ACBRDanfeEscPos, mas imprime somente o Razao social, endereço do emitente. Procurei se já tivesse algum tópico que já tenha tratado disso mas não localizei.

O que pode estar ocorrendo?

Abaixo como estou setando os componentes:

   ACBrNFe1.NotasFiscais.Clear;
   ACBrNFe1.Configuracoes.WebServices.UF := 'RS';
   ACBrNFe1.Configuracoes.WebServices.Ambiente := StrToTpAmb(Ok,'1');
   ACBrNFe1.Configuracoes.Geral.ExibirErroSchema := True;
   ACBrNFe1.Configuracoes.Geral.FormatoAlerta := 'Campo:%DESCRICAO% - %MSG%';
   ACBrNFe1.Configuracoes.Geral.ModeloDF := moNFCe;
   ACBrNFe1.Configuracoes.Geral.IncluirQRCodeXMLNFCe := True;
   ACBrNFe1.Configuracoes.Geral.VersaoDF := ve310;
   ACBrNFe1.Configuracoes.Geral.IdCSC  := 1;
   ACBrNFe1.Configuracoes.Geral.CSC    := 9999999999999999999999999999999999999999;
   ACBrNFe.NotasFiscais.LoadFromFile('C:\TesteNFCE\43160389553564000165650010003692891003692890-nfe.xml');
   ACBrNFeDANFeESCPOS.TipoDANFE := tiNFCe;
   ACBrNFeDANFeESCPOS.ViaConsumidor := True;
   ACBrNFeDANFeESCPOS.ImprimirItens := True;

   ACBrNFe1.DANFE  := ACBrNFeDANFeESCPOS;
   ACBrPosPrinter1.Modelo := ppEscBematech;
   ACBrPosPrinter1.Device.Porta  := COM14;
   ACBrPosPrinter1.Device.Baud   := 9600;
   ACBrPosPrinter1.IgnorarTags   := True;
   ACBrPosPrinter1.Device.Ativar;
   ACBrPosPrinter1.ControlePorta := True; // True faz com que o componente abra e feche a porta conforme a necessidade automaticamente
   ACBrNFe1.NotasFiscais[0].Imprimir;

Amigo, onde eu acho esse fonte, já procurei no forúm e já estudei o fonte mais que tudo e não acho... consegui até fazer este funcionar em outro botão mas sem o QRcode, que no botão do exemplo funciona normal... poderia me ajudar?

mkonat Apprentice

mkonat

Postado
  • Autor
Postado
Em ‎15‎/‎04‎/‎2016 at 15:35, sdysv disse:
Em ‎06‎/‎04‎/‎2016 at 11:05, mkonat disse:

 

   ACBrNFe1.DANFE  := ACBrNFeDANFeESCPOS;
   ACBrPosPrinter1.Modelo := ppEscBematech;
   ACBrPosPrinter1.Device.Porta  := COM14;
   ACBrPosPrinter1.Device.Baud   := 9600;
   ACBrPosPrinter1.IgnorarTags   := True;
   ACBrPosPrinter1.Device.Ativar;
   ACBrPosPrinter1.ControlePorta := True; // True faz com que o componente abra e feche a porta conforme a necessidade automaticamente
   ACBrNFe1.NotasFiscais[0].Imprimir;

Amigo, onde eu acho esse fonte, já procurei no forúm e já estudei o fonte mais que tudo e não acho... consegui até fazer este funcionar em outro botão mas sem o QRcode, que no botão do exemplo funciona normal... poderia me ajudar?

Opa

Procura na pasta C:\"pasta ACBR"\Fontes\ACBrDFe\ACBrNFe\DANFE\NFCe

  • 1 ano depois...
josival.alecrim Apprentice

josival.alecrim

Postado
Postado (editado)
Em 2016-4-6 at 10:05, mkonat disse:

Bom dia!

Após fazer a atualização do ACBR a partir do Trunk2, não consigo mais imprimir na impressora Bematech MP-4200 TH utilizando o ACBRDanfeEscPos.

Nos fontes anteriores do ACBR estava conseguindo.

Fiz conforme o exemplo ACBRDanfeEscPos, mas imprime somente o Razao social, endereço do emitente. Procurei se já tivesse algum tópico que já tenha tratado disso mas não localizei.

O que pode estar ocorrendo?

Abaixo como estou setando os componentes:

   ACBrNFe1.NotasFiscais.Clear;
   ACBrNFe1.Configuracoes.WebServices.UF := 'RS';
   ACBrNFe1.Configuracoes.WebServices.Ambiente := StrToTpAmb(Ok,'1');
   ACBrNFe1.Configuracoes.Geral.ExibirErroSchema := True;
   ACBrNFe1.Configuracoes.Geral.FormatoAlerta := 'Campo:%DESCRICAO% - %MSG%';
   ACBrNFe1.Configuracoes.Geral.ModeloDF := moNFCe;
   ACBrNFe1.Configuracoes.Geral.IncluirQRCodeXMLNFCe := True;
   ACBrNFe1.Configuracoes.Geral.VersaoDF := ve310;
   ACBrNFe1.Configuracoes.Geral.IdCSC  := 1;
   ACBrNFe1.Configuracoes.Geral.CSC    := 9999999999999999999999999999999999999999;
   ACBrNFe.NotasFiscais.LoadFromFile('C:\TesteNFCE\43160389553564000165650010003692891003692890-nfe.xml');
   ACBrNFeDANFeESCPOS.TipoDANFE := tiNFCe;
   ACBrNFeDANFeESCPOS.ViaConsumidor := True;
   ACBrNFeDANFeESCPOS.ImprimirItens := True;

   ACBrNFe1.DANFE  := ACBrNFeDANFeESCPOS;
   ACBrPosPrinter1.Modelo := ppEscBematech;
   ACBrPosPrinter1.Device.Porta  := COM14;
   ACBrPosPrinter1.Device.Baud   := 9600;
   ACBrPosPrinter1.IgnorarTags   := True;
   ACBrPosPrinter1.Device.Ativar;
   ACBrPosPrinter1.ControlePorta := True; // True faz com que o componente abra e feche a porta conforme a necessidade automaticamente
   ACBrNFe1.NotasFiscais[0].Imprimir;

Você conseguiu resolver este problema? Estou com o mesmo problema.

Em 2016-4-6 at 10:05, mkonat disse:

Bom dia!

Após fazer a atualização do ACBR a partir do Trunk2, não consigo mais imprimir na impressora Bematech MP-4200 TH utilizando o ACBRDanfeEscPos.

Nos fontes anteriores do ACBR estava conseguindo.

Fiz conforme o exemplo ACBRDanfeEscPos, mas imprime somente o Razao social, endereço do emitente. Procurei se já tivesse algum tópico que já tenha tratado disso mas não localizei.

O que pode estar ocorrendo?

Abaixo como estou setando os componentes:

   ACBrNFe1.NotasFiscais.Clear;
   ACBrNFe1.Configuracoes.WebServices.UF := 'RS';
   ACBrNFe1.Configuracoes.WebServices.Ambiente := StrToTpAmb(Ok,'1');
   ACBrNFe1.Configuracoes.Geral.ExibirErroSchema := True;
   ACBrNFe1.Configuracoes.Geral.FormatoAlerta := 'Campo:%DESCRICAO% - %MSG%';
   ACBrNFe1.Configuracoes.Geral.ModeloDF := moNFCe;
   ACBrNFe1.Configuracoes.Geral.IncluirQRCodeXMLNFCe := True;
   ACBrNFe1.Configuracoes.Geral.VersaoDF := ve310;
   ACBrNFe1.Configuracoes.Geral.IdCSC  := 1;
   ACBrNFe1.Configuracoes.Geral.CSC    := 9999999999999999999999999999999999999999;
   ACBrNFe.NotasFiscais.LoadFromFile('C:\TesteNFCE\43160389553564000165650010003692891003692890-nfe.xml');
   ACBrNFeDANFeESCPOS.TipoDANFE := tiNFCe;
   ACBrNFeDANFeESCPOS.ViaConsumidor := True;
   ACBrNFeDANFeESCPOS.ImprimirItens := True;

   ACBrNFe1.DANFE  := ACBrNFeDANFeESCPOS;
   ACBrPosPrinter1.Modelo := ppEscBematech;
   ACBrPosPrinter1.Device.Porta  := COM14;
   ACBrPosPrinter1.Device.Baud   := 9600;
   ACBrPosPrinter1.IgnorarTags   := True;
   ACBrPosPrinter1.Device.Ativar;
   ACBrPosPrinter1.ControlePorta := True; // True faz com que o componente abra e feche a porta conforme a necessidade automaticamente
   ACBrNFe1.NotasFiscais[0].Imprimir;

Conseguiu resolver? Estou com o mesmo problema.

Editado por josival.alecrim
  • Este tópico foi criado há 2747 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
 Compartilhar
Ir para a lista de tópicos
×
×
  • 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.