*************************************************************************************
*
*   2020-04-09
*
*************************************************************************************

IF m.issql
    RETURN
ENDIF 

TRY
    USE (m.gccen_path + "buff_d") ORDER menobuf EXCLUSIVE 
    DELETE FOR EMPTY(odlozene)
    PACK 
    SELECT 0
    USE (m.gccen_path + "buff_r") EXCLUSIVE 
    SET RELATION TO menobuf INTO buff_d
    DELETE FOR  EMPTY(buff_d.menobuf)
    PACK 
CATCH
ENDTRY
DELETE FILE (m.gccen_path + "*.bak")
DELETE FILE (m.gccen_path + "*.tbk")
