Ncm Com Exclusão Do Arquivo De Backup No Pay&go

[SYSPRO]

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

[Daniel Simoes]

Não compreendi o problema...

 

O que há de errado com:

if (pos(UpperCase(Resp.Conteudo.LeInformacao(9,0).AsString), 'FF|101') > 0) then

[André Ferreira de Moraes]

Enviei para o SVN uma correção que deve funcionar para todas as versões.

[SYSPRO]

anfm, Realizei o Teste que estava gerando o problema e o problema foi resolvido com a solução proposta. Obrigado.