Bematech_FI_StatusEstendidoMFD

BemaFI32

Bematech_FI_StatusEstendidoMFD

Bematech_FI_StatusEstendidoMFD

 

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

...