PARAM sk_path
sk_path = sk_path + IIF(RIGHT(m.sk_path,1)="\", "", "\")

CLOSE DATABASES 
vysledek = " "
DO jedensoubor with "_tmskplt"
DO jedensoubor with "_tmskpol"
DO jedensoubor with "_tmskfin"
DO jedensoubor with "_tmsktxt"

CLOSE DATABASES 
IF EMPTY(m.vysledek)
    vysledek = "... OK"
ENDIF 

CLOSE DATABASES 


************************************************
PROC jedensoubor
PARAM soubor
TRY     
   USE (m.sk_path + m.soubor) EXCL
   ZAP 

CATCH 
   vysledek = vysledek + upper(m.soubor) + " not zapped "
ENDTRY 
USE 
