*:*****************************************************************************
*: Procedure file: HK_ZAPSANO, urceno pro provozy
*:*****************************************************************************
param sk_path, exp_path

IF EMPTY(exp_path)
  exp_path = "c:\ftp\data\"
ENDIF 
sk_path = sk_path + IIF(RIGHT(m.sk_path,1)="\", "", "\")
exp_path = exp_path + IIF(RIGHT(m.exp_path,1)="\", "", "\")
if ! directory(m.exp_path)
   mkdir (m.exp_path)
endif

CLOSE ALL
clos data
SET CPDIALOG OFF

USE (m.sk_path + "hkredobr")
REPLACE FOR datum < "20110811" zapsano WITH .T.		&& Aby se honem nemusely menit kasy
IF FILE(m.sk_path + "_tmhkobr.dbf")
  SELECT 0
  use (m.sk_path + "_tmhkobr")
  REPLACE FOR datum < "20110811" zapsano WITH .T.		&& Aby se honem nemusely menit kasy
ENDIF   
CLOSE DATABASES 

vysledek = " ... OK "
