Como saber NFCe / Imp.Não fiscal Ligada/Desligada?

[ROGERIO EDVAR DE SOUZA]

Bom dia!!! Muitíssimo obrigado pelo auxílio que vem nos dando...

- Eu tenho uma função que analisa se a ECF(quando é ECF) está ligada da seguinte maneira :

Uso o método ACBrECF.Estado dentro da função , caso retorne uma EXCEÇÃO,

então a ECF está DESLIGADA. Funciona PERFEITAMENTE desta maneira há alguns meses (4) em todos clientes nossos

(uns 250 computadores, a maior parte com a DARUMA FS700 e alguns poucos com BEMATECH).

...

- Agora estou preparando o sistema para NFCe (todos componentes necessários já estão ligados corretamente,

está saindo relatório gerencial, leitura x ... ),

só que nesta função ( ACBrECF.Estado)  uma vez ativado o objeto, nunca retorna EXCEÇÃO

DÚVIDA : Qual então é a MELHOR MANEIRA de analisar se uma impressora NÃO FISCAL está ligada ?

...

Obrigado,

CARLOS A.F.S. - F&S Informática...

[ROGERIO EDVAR DE SOUZA]

1 hora atrás, ROGERIO EDVAR DE SOUZA disse:

Bom dia!!! Muitíssimo obrigado pelo auxílio que vem nos dando...

- Eu tenho uma função que analisa se a ECF(quando é ECF) está ligada da seguinte maneira :

Uso o método ACBrECF.Estado dentro da função , caso retorne uma EXCEÇÃO,

então a ECF está DESLIGADA. Funciona PERFEITAMENTE desta maneira há alguns meses (4) em todos clientes nossos

(uns 250 computadores, a maior parte com a DARUMA FS700 e alguns poucos com BEMATECH).

...

- Agora estou preparando o sistema para NFCe (todos componentes necessários já estão ligados corretamente,

está saindo relatório gerencial, leitura x ... ),

só que nesta função ( ACBrECF.Estado)  uma vez ativado o objeto, nunca retorna EXCEÇÃO

DÚVIDA : Qual então é a MELHOR MANEIRA de analisar se uma impressora NÃO FISCAL está ligada ?

...

Obrigado,

CARLOS A.F.S. - F&S Informática...

Observação:

Minha impressora é a DR800 da DARUMA

Está configurada corretamente pois estou testando um relatório gerencial com 

todos acentos possíveis, e negrito... sai tudo impresso perfeitamente...

Obrigado a quem ajudar...!

[EMBarbosa]

4 horas atrás, ROGERIO EDVAR DE SOUZA disse:

só que nesta função ( ACBrECF.Estado)  uma vez ativado o objeto, nunca retorna EXCEÇÃO 

DÚVIDA : Qual então é a MELHOR MANEIRA de analisar se uma impressora NÃO FISCAL está ligada ?

Isso acontece porque o ACBrECFVirtualNFCe foi preparado para trabalhar com qualquer tipo de impressora não fiscais, incluindo as que não tem possibilidade de retorno de estado.

Uma opção é verificar diretamente a impressora PosPrinter por meio do comando ACBrPosPrinter. LerStatusImpressora.

Outra opção seria escrever uma classe descendente da ACBrECFVirtualNFCe para sobrescrever o método GetEstadoECFVirtual para ler o estado da PosPrinter.

Ainda outra opção seria escrever um class helper para essa mesma classe para fazer o mesmo.

[ROGERIO EDVAR DE SOUZA]

35 minutos atrás, EMBarbosa disse:

Isso acontece porque o ACBrECFVirtualNFCe foi preparado para trabalhar com qualquer tipo de impressora não fiscais, incluindo as que não tem possibilidade de retorno de estado.

Uma opção é verificar diretamente a impressora PosPrinter por meio do comando ACBrPosPrinter. LerStatusImpressora.

Outra opção seria escrever uma classe descendente da ACBrECFVirtualNFCe para sobrescrever o método GetEstadoECFVirtual para ler o estado da PosPrinter.

Ainda outra opção seria escrever um class helper para essa mesma classe para fazer o mesmo.

Boa tarde...

Eu fiz da seguinte forma, e deu certo :

+ Desativo o ACBrPosPrinter se estiver JÁ ativo

+ Tento ATIVAR ele novamente, caso ocorra uma EXCEÇÃO (try ... except... end), significa que a IMPRESSORA está DESLIGADA .

Deu certo e até que não ficou muito lento não ...

Obrigado...

 

[EMBarbosa]

3 minutos atrás, ROGERIO EDVAR DE SOUZA disse:

Deu certo e até que não ficou muito lento não ...

Sugeri o LerStatusImpressora porque ele pode retornar outros dados também.  Mas que bom que deu certo. Obrigado pelo retorno.

 

 

[ROGERIO EDVAR DE SOUZA]

6 minutos atrás, EMBarbosa disse:

Sugeri o LerStatusImpressora porque ele pode retornar outros dados também.  Mas que bom que deu certo. Obrigado pelo retorno.

 

 

Olá...

Estou testando agora a maneira que me passou pois, além de mais rápido,

pode retornar outros estados, conforme disse...

Já já posto o resultado... Obrigado...

Defini uma constante assim :

VConst_Estados_PosPrinter: array [TACBrPosTipoStatus] of string =
( 'stErro'        , 'stNaoSerial' , 'stPoucoPapel', 'stSemPapel'   ,
  'stGavetaAberta', 'stImprimindo', 'stOffLine'   , 'stTampaAberta', 'stErroLeitura' );

 

Depois tentei um botão assim, MAS Não deu certo... (fiz embasado no que tenho para receber estado da ECF)

Var
V_EstadoACBrPosPrinter : String;
begin
   V_EstadoACBrPosPrinter := VConst_Estados_PosPrinter[ ACBrPosPrinter1.LerStatusImpressora ];

Editado 21 Março, 2019 por ROGERIO EDVAR DE SOUZA
errei ao digitar

[ROGERIO EDVAR DE SOUZA]

Obrigado novamente... 

Fiz assim agora, funcionou... retorna erro de leitura quando a impressora está desligada...

mas por vezes retorna "gaveta aberta" quando a ECF está desligada...

a vantagem é que o retorno é bem rápido...

Var
V_EstadoACBrPosPrinter : TACBrPosPrinterStatus;
MsgErro : String;
begin
   V_EstadoACBrPosPrinter := Fun_Imp_Daruma.ACBrPosPrinter_Enviado.LerStatusImpressora ;

   MsgErro := 'Perfeito estado';

   if stErro in V_EstadoACBrPosPrinter then                               MsgErro := 'Erro'
   else if stPoucoPapel in V_EstadoACBrPosPrinter then        MsgErro := 'Pouco Papel'
   else if stNaoSerial in V_EstadoACBrPosPrinter then            MsgErro := 'Não Serial'
   else if stSemPapel in V_EstadoACBrPosPrinter then           MsgErro := 'Sem Papel'
   else if stGavetaAberta in V_EstadoACBrPosPrinter then     MsgErro := 'Gaveta Aberta'
   else if stImprimindo in V_EstadoACBrPosPrinter then         MsgErro := 'Imprimindo'
   else if stOffLine in V_EstadoACBrPosPrinter then                MsgErro := 'Impressora Desligada...'
   else if stTampaAberta in V_EstadoACBrPosPrinter then     MsgErro := 'Tampa Aberta'
   else if stErroLeitura in V_EstadoACBrPosPrinter then         MsgErro := 'Erro de Leitura' ;

showmessage( 'ESTADO IMP.NÃO FISCAL = '+ MsgErro );

End;

[Felipe E. Resende Mesquita]

Obrigado por reportar.

Fechando. Para novas dúvidas, criar um novo tópico.