*  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  
* 2016-01-04  hranicni datum neni dano napevno, vezme lonsky konec prosince
*             precislovani letosnich vydanych dokladu je na dotaz
*
*  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  

USE (m.gchom_path + "maxima") EXCLUSIVE 
PACK 
REPLACE FOR LEFT(soubor, 6) = "doklad" i_max with 0
USE 

USE (m.fn_doklady) ALIAS doklady ORDER c_dokl

* najde posledni konce mesice
hranicni_datum = DATE(YEAR(DATE()), 1,1) - 7              && lonsky 25. prosinec
SELECT c_stredisk, max(c_dokl) as c_dokl_kon, datum_dokl ;
       group by 1 where operace = "KK" AND datum_dokl > m.hranicni_datum ;
       from (m.fn_doklady) into table (m.gcpri_path + "konce")
IF RECNO() > 0
    BROWSE NODELETE NOAPPEND NOEDIT 

    IF MESSAGEBOX("precislovat jiz vydane letosni doklady?",3+32,"nulovani cislovani dokladu") = 6
        SCAN
           SCATTER FIELDS c_stredisk, c_dokl_kon MEMVAR 
           SELECT doklady
           SCAN FOR c_stredisk = m.c_stredisk .and. c_dokl > m.c_dokl_kon
                doklad = i_max("doklad" + STR(doklady.c_stredisk) + doklady.operace)
                GATHER FIELDS doklad MEMVAR 
           ENDSCAN
           SELECT konce 
        ENDSCAN 
    ENDIF 
ENDIF 
