Retorna o status de relatório gerencial ou comprovante não-fiscal aberto.
Parâmetro:
iStatus: Variável INTEGER para receber a informação.
Retornos da Função (INTEIRO):
0 - Erro de comunicação.
1 - Ok.
-4 - Arquivo ini não encontrado ou parâmetro inválido para o nome da porta.
-5 - Erro ao abrir a porta de comunicação.
-8 - Erro ao criar ou gravar no arquivo STATUS.TXT ou RETORNO.TXT.
-27 - Status da impressora diferente de 6,0,0,0 (Ack, St1, St2 e St3).
Observação:
| · | Função disponível para a impressora fiscal térmica MP-2000 TH FI versão 01.00.02 ou 01.01.01 e MP-4000 TH FI. |
Exemplo:
' Exemplo em Visual Basic
iRetorno = Bematech_FI_StatusEstendidoMFD(iStatus)
// Exemplo em Delphi
iRetorno := Bematech_FI_StatusEstendidoMFD( iStatus );
Análise do iStatus:
...
if iStatus >= 128 then
iStatus = iStatus - 128
endif
if iStatus >= 64 then
iStatus = iStatus - 64
cMensagem = cMensagem + "Estorno de Comprovante de Débito ou Crédito
permitido" + chr(13) + chr(10)
endif
if iStatus >= 32 then
iStatus = iStatus - 32
cMensagem = cMensagem + "Permite cancelamento do CNF" + chr(13) + chr(10)
endif
if iStatus >= 16 then
iStatus = iStatus - 16
endif
if iStatus >= 8 then
iStatus = iStatus - 8
cMensagem = cMensagem + "Totalizando Cupom" + chr(13) + chr(10)
endif
if iStatus >= 4 then
iStatus = iStatus - 4
cMensagem = cMensagem + "Relatório Gerencial Aberto" + chr(13) + chr(10)
endif
if iStatus >= 2 then
iStatus = iStatus - 2
cMensagem = cMensagem + "Comprovante de Débito ou Crédito
Aberto" + chr(13) + chr(10)
endif
if iStatus >= 1 then
iStatus = iStatus - 1
cMensagem = cMensagem + "Comprovante Não-Fiscal Aberto" + chr(13) + chr(10)
endif
...
|