Número Do Último Item Vendido Ecf 09/09 - Escecf

[carlosmarian]

Olá,

  Estou ajustando a aplicação para permitir uso de impressoras do convênio 09/09.

  Verifiquei que não existe comando(no SCU) para obter o nro do último item vendido/registrado;

  Fiz um pequeno ajuste no fonte "ACBrECFEscECF.pas", será que pode ser adicionado ao repositório?

  A alteração consiste em um contador interno que é alimentado pelo retorno do comando de vende item.

  ..
  procedure TACBrECFEscECF.VendeItem(Codigo, Descricao: String;
  ...
  RespostasComando.AddField( 'NumUltItem', EscECFResposta.Params[0] );
  RespostasComando.AddField( 'TotalItem',  EscECFResposta.Params[1] );
  RespostasComando.AddField( 'SubTotal',   EscECFResposta.Params[2] );
  fsEmPagamento := false ;


  fsNroUltimoItem := StrToIntDef(EscECFResposta.Params[0], 1);
  ...

Obrigado pela  atenção.

ACBrECFEscECF.pas

Editado 4 Março, 2015 por carlosmarian

[Daniel Simoes]

Ola... obrigado pela colaboração... Analisando, percebi que poderíamos aplicar uma abordagem mais simples

function TACBrECFEscECF.GetNumUltimoItem: Integer;
begin
  try
    Result := RespostasComando.FieldByName('NumUltItem').AsInteger;
  except
    Result := 0;
  end ;
end;

Por favor verifique se funciona a contento... (nos meus testes deram certo)

[carlosmarian]

Olá Daniel...

  Bah realmente muito muito mais simples.

 Fiz alguns testes aqui e esta funcionando, acho que poderia ser uma boa alternativa, parabéns.

 

 

at+

[carlosmarian]

Olá,

  Revisão 8485 já esta com esta implementação.

 

Obrigado.

At+