*=MESSAGEBOX("Dotisk faktur z E-Shopu",0)
CLOSE DATABASES 
USE (m.my_path+"sk_txt") EXCLUSIVE 
SELECT 0
USE (m.my_path+"sk_fin") EXCLUSIVE 
INDEX on u_cis TAG u_ucis
SELECT 0
USE (m.my_path+"sk_pol") EXCLUSIVE 
INDEX on u_cis TAG u_cis
SELECT 0
USE (m.my_path+"sk_plt") EXCLUSIVE 
INDEX on u_cis TAG u_cis
SELECT sk_txt
SET RELATION TO u_cis INTO sk_plt, u_cis INTO sk_fin, u_cis INTO sk_pol
SET FILTER TO ALLTRIM(sk_plt.druh_pl)="N_ESHOP".or.ALLTRIM(sk_plt.druh_pl)="N_ESHOUT"
m.hl_uPIN=""
DO FORM hajek_seluct TO m.fa_ucis
RETURN 