*  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *
* 
* vsechny uzaverky starsi nez pocet_dni budou smazany
* pokud pocet_dni neni uveden, default hodnota je 99 dni
* 2012-12-20 - protoze cilem je redukovat velikost dat, neni dulezite, aby se zpracovaly vsechny soubory,
*              takze i kdyz nektery neni pristupny, ostatni se zkrati
* 2019-12-05 - mazou se i zurnaly, dvoj- i ctyrmistne
*            - zaroven se ZAPuji archivni eskacka
* 2021-0405  - pouzita promenna m.crlf
*
*  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *

PARAMETERS sk_path, pocet_dni

vysledek = vysledek + " v.2021-0405 "
IF EMPTY(m.pocet_dni)
    pocet_dni = 99
ENDIF 
sk_path  = ADDBS(m.sk_path)
max_uzav = SUBSTR(DTOS(DATE() - m.pocet_dni), 3) + " 00:00"

CLOSE DATABASES 
vysledek = ""
do jedensoubor with "sk_plt"
do jedensoubor with "sk_pol"
do jedensoubor with "sk_fin"
do jedensoubor with "sk_sez"
do jedensoubor with "sk_txt"

crd_path = LEFT(m.sk_path, AT('\', m.sk_path,2))        && Cesta k databazi karet
Skdtreq = DTOS(DATE() - m.pocet_dni)

TRY     
    USE (m.crd_path + "hk_bony")
    DELETE FOR datum < m.sSkdtreq
    PACK 
CATCH 
   vysledek = vysledek + " HK_BONY not truncated "
FINALLY
ENDTRY 

DO smaz_stare_zurnaly


*  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *
proc jedensoubor
param soubor
TRY     
   USE (m.sk_path + m.soubor) EXCL
   DELETE FOR uzaverka < m.max_uzav
   PACK 
CATCH 
   vysledek = vysledek + " " + upper(m.soubor) + " not truncated "
ENDTRY 

TRY
   USE (m.sk_path + m.soubor + "_a") EXCL
   ZAP 
CATCH 
   vysledek = vysledek + " " + upper(m.soubor) + " not zapped "
ENDTRY 
USE 


*  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *
PROCEDURE smaz_stare_zurnaly

vysledek = m.vysledek + m.crlf
FOR ii = MAX(m.pocet_dni, 33) TO 133 step 29
    jmeno_zurnalu4 =  m.crd_path + "z?" + LEFT(SUBSTR(DTOS(DATE() - m.ii), 3), 4) + ".txt "
    jmeno_zurnalu2 =  m.crd_path + "zu" + LEFT(SUBSTR(DTOS(DATE() - m.ii), 5), 2) + ".txt "
    cmd = "run del /S /Q " + jmeno_zurnalu4 + jmeno_zurnalu2
    ? cmd
    vysledek = m.vysledek + m.cmd + m.crlf
    &cmd
ENDFOR 
