Correção Status Lan MFe

[Suporte Acodi]

Boa tarde, estava conferindo o retorno do MFe  Elgin quando consulta o status operacional:

Sessão: 599877, Resposta: 599877|10000|Resposta com Sucesso.||||DHCP|000.000.000.000|00:00:00:00:00:00|000.000.000.000|000.000.000.000|000.000.000.000|000.000.000.000|DESCONECTADO|ALTO|2.20 GBytes|148.70 MBytes....

Ele retorna DESCONECTADO para o STATUS da LAN, e conferi que a função não tem essa opção, por isso que sempre retorna CONECTADO

function TACBrSATStatus.StrToStatusLan(var ok: boolean; const s: string) : TACBrSATStatusLan;
begin
  result := StrToEnumerado(ok, s, ['CONECTADO', 'NAO_CONECTADO'], [lanCONECTADO, lanNAO_CONECTADO]);
end;
 

Fiz a alteração:

function TACBrSATStatus.StrToStatusLan(var ok: boolean; const s: string
  ) : TACBrSATStatusLan;
begin
  result := StrToEnumerado(ok, s, ['CONECTADO', 'NAO_CONECTADO', 'DESCONECTADO'], [lanCONECTADO, lanNAO_CONECTADO, lanNAO_CONECTADO]);
end;
 e agora sim tenho o retorno certo:

NUMERO SERIE...........: 
LAN_MAC................: 00:00:00:00:00:00
STATUS_LAN.............: NAO_CONECTADO
NIVEL_BATERIA..........: ALTO
MEMORIA_TOTAL..........: 2.20 GBytes
MEMORIA_USADA..........: 148.70 MBytes
DH_ATUAL...............: 04/04/2019 17:53:41
VERSÃO_SB..............: 01.00.06
VERSÃO_LAYOUT..........: 00.07
ULTIMO_CFe.............: 23180914200166000166599000098890000034976150
LISTA_INICIAL..........: 00000000000000000000000000000000000000000000
LISTA_FINAL............: 00000000000000000000000000000000000000000000
DH_CFe.................: 25/09/2018 16:47:29
DH_ULTIMA CONEXÃO SEFAZ: 25/09/2018 16:47:29
CERTIFICADO_EMISSAO....: 10/12/2018
CERTIFICADO_VENCIMENTO.: 10/12/2020
ESTADO_OPERACAO........: DESBLOQUEADO

seria bom vocês fazer a alteração nas fontes.

[Felipe E. Resende Mesquita]

15 horas atrás, Suporte Acodi disse:

 

Bom dia, Suporte Acodi.

Peço por gentileza para que não cole trechos de códigos dessa forma. Anexe a sua implementação com a unit alterada para possível validação.

[Suporte Acodi]

Ok, Entendi, Unit em anexo.ACBrSATClass.pas

[Juliana Tamizou]

Bom dia.

Obrigada pela contribuição, adicionada para análise.

Att.

[Daniel Simoes]

Não compreendi a sugestão... você está convertendo o mesmo Tipo enumerado (lanNAO_CONECTADO) em Duas Strings diferentes ?

function TACBrSATStatus.StrToStatusLan(var ok: boolean; const s: string
  ) : TACBrSATStatusLan;
begin
  result := StrToEnumerado(ok, s, ['CONECTADO', 'NAO_CONECTADO', 'DESCONECTADO'], [lanCONECTADO, lanNAO_CONECTADO, lanNAO_CONECTADO]);
end;

 

[Suporte Acodi]

Daniel, o MEF Elgin retorna DESCONECTADO, na rotina atual tem NAO_CONECTADO, ai o retorno era sempre lanCONECTADO.

[Daniel Simoes]

Apliquei no SVN, alguns ajustes, baseado nos relatos desse tópico...

https://sourceforge.net/p/acbr/code/16884/