Protocolo Esc-ECF Identificar Operador

[Filipe Natividade]

Dei uma olhada no fonte do ACBRSerial e percebi que nos convênios antigos, a procedure de identificar o operador verificava qual era o operador da ECF para depois realizar a troca se necessário. Mas no protocolo Esc-ECF a função somente executa a troca do operador, ocasionando a impressão do RG sempre que ativa a impressora, pois informo o operador antes de ativa-la.

Segue sugestão de alteração na procedure para que seja realizado a verificação do operador já informado na ECF antes de enviar o comando de troca de operador, para evitar que seja impresso o RG sem necessidade.

procedure TACBrECFEscECF.IdentificaOperador(Nome: String);
var
  aOperAtual : String;
begin
  try
    if( IsBematech )then
      begin
        RetornaInfoECF( '99|05' );
        aOperAtual := EscECFResposta.fsParams[2];
      end
    else
    begin
      if( IsDaruma )then
        aOperAtual := RetornaInfoECF( '130' )
      else
        aOperAtual := RetornaInfoECF( '99|17' );
    end;
  except
  end;

  if( aOperAtual <> LeftStr( Nome, 20 ) )then
  begin
    EscECFComando.CMD := 154;
    EscECFComando.AddParamString( LeftStr( Nome, 20 ));
    EnviaComando;
  end;
end;

[Daniel Simoes]

Por favor anexe os fontes alterados, para analise...

[Filipe Natividade]

segue fonte em anexo.

ACBrECFEscECF.pas

[Daniel Simoes]

Obrigado pela contribuição... enviei para o SVN, com pequenos ajustes...