|
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:
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 ... |