Opera��es Pendentes em TEF

Question

ol� pessoal, gostaira de contar com a ajuda de voc�s.....bem � o seguinte, como fazer as verifica��es de opera��es pendentes no tef?? alguem ai tem algum

Essistemas · Answer

Eu tenho um arquivo INI, e quando � bem sucedido a abertura da venda ou Adm eu uso ela

procedure TTef.AbreTransacaoTEF;
begin
try
ArquivoINI := TIniFile.Create(F_PathArq+�ESPDV.INI�);
ArquivoINI.WriteString(�STATUS�, �Transacao�, �Aberta�);
ArquivoINI.WriteString(�STATUS�, �Rede�, F_Rede);
finally
ArquivoINI.Free;
end;
end;

quando cancelo ou fecho a venda e da tudo certo uso

procedure TTef.FechaTransacaoTEF;
begin
try
ArquivoINI := TIniFile.Create(F_PathArq+�ESPDV.INI�);
ArquivoINI.WriteString(�STATUS�, �Transacao�, �Fechada�);
ArquivoINI.DeleteKey(�STATUS�,�Rede�);
finally
ArquivoINI.Free;
end;
end;