Boa Tarde a Todos,
Tinha Realizado o Check Lista a algumas semanas e hoje quando foi executar o Roteiro de Pré-Certificação me deparei com o seguinte problema.
Relizei a venda no momento da impressão do vinculado reiniciei o computador e apaguei o arquivo de Backup do TEF, ao iniciar a Aplicação ele deveria me apresentar o NCM da Transação contudo devido a alteração aplicada no Topico
A Solução Encontrada segue abaixo
//Controle Anterior que não gerava problemas
//if UpperCase(Resp.Conteudo.LeInformacao(9,0).AsString) = 'FF' then
//Implementação realizada
// Amex retorna 101 e não FF
//if (pos(UpperCase(Resp.Conteudo.LeInformacao(9,0).AsString), 'FF|101') > 0) then
//Controle Proposto para Solução
if MatchText(UpperCase(Resp.Conteudo.LeInformacao(9,0).AsString), ['FF','101']) then
ApagaEVerifica( ArqResp );
Contudo o Controle proposto tem um problema a Função MatchText da StrUtils não está disponivel no Delphi 7 que é a versão mais antiga que tenho disponivel com isso aredito que colocar a função no ACBrUtils para versões que não conte a declaração seria a solução, a função AnsiMatchText está disponivel no Delphi 7 porem não sei se terá compatibilidade com outras versões do Delphi.
function MatchText(const AText: string; const AValues: array of string): Boolean;
begin
Result := AnsiMatchText(AText, AValues);
end;
intpos.txt