#DEFINE POCETDNI 111

IF m.issql

    DO open_database
       
    posledni_datum = DATE() - POCETDNI * 5
    zacatek_prace = DATETIME()
    DO WHILE posledni_datum < DATE() - POCETDNI .and. DATETIME() - m.zacatek_prace < 66

        posledni_cas   = LEFT(TTOC(m.posledni_datum, 3), 10)
        proved("DELETE FROM food600.zurnal  WHERE    cas  < ?posledni_cas ;")
        posledni_datum = m.posledni_datum + 99
    ENDDO 

    
ENDIF 

*    *    *    *    *    *    *    *    *    *    *    *    *    *    *    *    *    *    
FUNCTION proved (co_udelat)
WAIT m.co_udelat WINDOW NOWAIT 
vysledek = sql_exec( m.co_udelat )
zprava_do_logu = m.co_udelat + STR(m.vysledek, 5)
IF m.vysledek < 0
    DIMENSION chybaexe(9)
    chybaexe(2) = "vsechno v poradku"
    AERROR(chybaexe)
    MESSAGEBOX("SQL Chyba" + CHR(10) + chybaexe(2),64)
    zprava_do_logu = m.zprava_do_logu + " " + chybaexe(2)
ENDIF
small_log (m.zprava_do_logu, "truncate_archivu")
WAIT CLEAR 
