Duvida em relação ao emissor acbrsat...

[Mário Augusto Pisani]

Tenho uma dúvida no emissor do Sat em Delphi. Depois que inicializo, o sat já está ativado, depois que clico em: consultas - consultar sat, consultas - Consultar Status Operacional. Quando clico neste, ele dá uma resposta (emulador responde), ... Resposta com sucesso... porém ele mostra essa linha: 

EStringListError - List index out of bounds (14)... não mostra uma lista que deveria mostrar com os dados da conexão...

Tem problema isso ou não, para continuar o processo, gerar venda (arquivo xml) e enviar venda(arq xml ) para então aparecer o XML recebido, 

depois que o sistema/equipamento comunica com a Sefaz? 

 

[Juliomar Marchetti]

Está usando o exemplo do svn? como está fazendo quais a configurações?

o SAT tu emite no equipamento e depois ele se encarrega de levar para o sefaz o xml

[Mário Augusto Pisani]

sim ..

Em ACBRSat1.Rede, eu tenho que joga o ip do meu computador e o gateway ??

procedure TfrmSAT.mConsultarStatusOperacionalClick(Sender : TObject);
begin
  ACBrSAT1.ConsultarStatusOperacional;

  if ACBrSAT1.Resposta.codigoDeRetorno = 10000 then
  begin
    with ACBrSAT1.Status do
    begin
      mLog.Lines.Add('NSERIE.........: '+NSERIE);
      mLog.Lines.Add('LAN_MAC........: '+LAN_MAC);
      mLog.Lines.Add('STATUS_LAN.....: '+StatusLanToStr(STATUS_LAN));
      mLog.Lines.Add('NIVEL_BATERIA..: '+NivelBateriaToStr(NIVEL_BATERIA));
      mLog.Lines.Add('MT_TOTAL.......: '+MT_TOTAL);
      mLog.Lines.Add('MT_USADA.......: '+MT_USADA);
      mLog.Lines.Add('DH_ATUAL.......: '+DateTimeToStr(DH_ATUAL));
      mLog.Lines.Add('VER_SB.........: '+VER_SB);
      mLog.Lines.Add('VER_LAYOUT.....: '+VER_LAYOUT);
      mLog.Lines.Add('ULTIMO_CFe.....: '+ULTIMO_CFe);
      mLog.Lines.Add('LISTA_INICIAL..: '+LISTA_INICIAL);
      mLog.Lines.Add('LISTA_FINAL....: '+LISTA_FINAL);
      mLog.Lines.Add('DH_CFe.........: '+DateTimeToStr(DH_CFe));
      mLog.Lines.Add('DH_ULTIMA......: '+DateTimeToStr(DH_CFe));
      mLog.Lines.Add('CERT_EMISSAO...: '+DateToStr(CERT_EMISSAO));
      mLog.Lines.Add('CERT_VENCIMENTO: '+DateToStr(CERT_VENCIMENTO));
      mLog.Lines.Add('ESTADO_OPERACAO: '+EstadoOperacaoToStr(ESTADO_OPERACAO));
    end;

    LeDadosRedeSAT;
  end
  else
    mLog.Lines.Add(ACBrSAT1.Resposta.RetornoStr);
end;

Editado 19 Dezembro, 2020 por Mário Augusto Pisani

[Mário Augusto Pisani]

Outra pergunta, pq quando gera venda, o Laço Enquanto, dentro do   with Det.Add do (colection), dá Looping Infinito ?

Testei para um registro só de uma venda de um só produto (id = 929)... Entra em Looping Infinito...?

[Mário Augusto Pisani]

Não consigo excluir essa publicação kkk Eu idiota esqueci do comando "Next".... kkk 

[Juliomar Marchetti]

resolvido seu problema?