Ir para conteúdo
  • Cadastre-se

dev botao

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

Recommended Posts

Postado

Estou com um problema quando eu uso o conjunto de componente:

 

ACBrECF + ACBrECFVirtualNFCe + ACBrNFe + ACBrNFeDANFeESCPOS

 

O problema é que o ACBrNFeDANFeESCPOS tem que passar a porta para o  Device.Porta mas o ACBrECF ja esta usando essa porta o legal seria que quando ACBrECF estiver usando essa porta o ACBrNFeDANFeESCPOS ja interpretar essas função ja que o mesmo esta interligado ao conjunto.

 

para quem for usar esse conjunto vai ter esse mesmo problema, que estou tendo.

 

Alguém tiver alguma ideia de como resolver esse problema.

Postado (editado)

Regys fiz o teste e não funcionou, quando eu mando imprimir no ACBrNFeDANFeESCPOS ele fala que esta sendo usado a porta da Impressora..

Editado por tchuck
Postado

Bom dia Regys tem uma coisa errada no log a unica coisa que grava nele é a comunicação inicial da aplicação ou seja sempre a mesma coisa a baixo e mais nada.

--------------------------------------------------------------------------------
ATIVAR - 06/01/15 09:18:53:528 - Modelo: ECFVirtual - Porta: COM5 - TimeOut: 3
         Device: BAUD=9600 DATA=8 PARITY=N STOP=1 HANDSHAKE= MAXBANDWIDTH=0
--------------------------------------------------------------------------------
Postado

Aqui eu fiz uma alteração apenas para funcionar nos testes na procedure FechaCupomVirtual da unit ACBrECFVirtualNFCe.pas

Pelo visto vai ficar desse jeito mesmo. rsrs

      if (DANFE is TACBrNFeDANFeESCPOS) and
         (TACBrNFeDANFeESCPOS(DANFE).Device.Porta = ECF.Device.Porta) then
      begin
        ECF.Device.Desativar;
        TACBrNFeDANFeESCPOS(DANFE).Device.Ativar;
      end;

      NotasFiscais.Items[0].Imprimir;

      if (DANFE is TACBrNFeDANFeESCPOS) and
         (TACBrNFeDANFeESCPOS(DANFE).Device.Porta = ECF.Device.Porta) then
      begin
        TACBrNFeDANFeESCPOS(DANFE).Device.Desativar;
        ECF.Device.Ativar;
      end;
  • Solution
Postado

Allan o Regys fez uma alteração para a Gaveta que esta funcionando perfeitamente estou testando e esta tudo certo

 

a função é essa ACBrNFeDANFeESCPOS.AbrirGaveta;

  • Este tópico foi criado há 3604 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.
Visitante
Este tópico está agora fechado para novas respostas
×
×
  • 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.