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

CLOSE DATABASES 
vysledek = " "
do jedensoubor with "sk_plt_a"
do jedensoubor with "sk_pol_a"
do jedensoubor with "sk_fin_a"
do jedensoubor with "sk_sez_a"
do jedensoubor with "sk_txt_a"

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

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

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