*    *    *    *    *    *    *    *    *    *    *    *    *    *    *    *    *    *    *    *    
*
*    rozkopiruje prazdne nebo null nazvy v tabulkach karty a ktexty
*
* 2024-04-11 - 
*
*
*    *    *    *    *    *    *    *    *    *    *    *    *    *    *    *    *    *    *    *    


IF m.issql
    ae_had.set_txt2(PROGRAM())
    DO open_database
       
    proved("SELECT food600.rozkopiruj_nazvy() ;")
ENDIF 


*    *    *    *    *    *    *    *    *    *    *    *    *    *    *    *    *    *    
FUNCTION proved (co_udelat)
WAIT m.co_udelat WINDOW NOWAIT 
vysledek = sql_exec( m.co_udelat )
zprava_do_logu = m.co_udelat + " " + m.posledni_cas + 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, "uklid_pri_path")
WAIT CLEAR 
