Urgente Validar se funcionários têm documentos na pasta do sistema.

Fala pessoal gostaria de saber como faço para validar se os funcionários que estão com o Vale Transporte ativos na tabela do DataSul Possuem comprovantes de residência na pasta do sistema.

Padrão dos nomes dos arquivos: 0000_CR_202311 >>> (MATRICULA_CR_ANO/MÊS).

Código:

def temp-table tt-arquivos no-undo
    field c-nome as char format 'x(50)'
    field c-path as char format 'x(200)'
    field c-tipo as char
    index ch-pri as primary c-nome.

def var posi-ini       as int  no-undo.
def var posi-meio      as int  no-undo.
def var posi-fin       as int  no-undo.
def var cont-matricula as char no-undo.
def var cont-data      as int  no-undo.
def var c-arquivo      as int  no-undo.

c-arquivo = 'Inserir pasta de origem'

input from os-dir(c-arquivo) no-convert no-echo.
    repeat transaction:

    create tt-arquivos.
    import tt-arquivos.

    end.

for each func_lin_vale_transp where
         func_lin_vale_transp.idi_sit_lin_transp = no-lock,
   first funcionario of func_lin_vale_transp no-lock:

    for each tt-arquivos where
             not tt-arquivos.c-nome > ''       or
             not tt-arquivos.c-nome begins '.' or
             index(c-nome, '_') > 0 and r-index(c-nome, '_') > 0:

    assign
    posi-ini  = index(c-nome, '_')
    posi-meio = r-index(c-nome, '_')
    posi-fin  = r-index(c-nome, '.').

    cont-matricula = substring(c-nome, 1, posi-ini - 1)
    cont-data      = substring(c-nome, posi-meio + 1, posi-fin - posi-meio - 1).
    end.
end.