* nastavi sazby dph, platne v 2020-05

IF m.issql
    hladajmodul="FOOD_SET"
    hladajsetupskup=""
    DO open_database
    rv('defsubor',"food_set")
    CURSORSETPROP("Buffering",5,"food_set")
    SELECT food_set
ELSE
    use (m.gchom_path + "food_set")
ENDIF

dph1 = "1.00"
dph2 = "1.10"
dph3 = "1.15"
dph4 = "1.21"
dph5 = "1.20"
dph6 = "1.99"
dph7 = "1.99"

repl for var_name = "dph1" var_value with m.dph1
repl for var_name = "dph2" var_value with m.dph2
repl for var_name = "dph3" var_value with m.dph3
repl for var_name = "dph4" var_value with m.dph4
repl for var_name = "dph5" var_value with m.dph5

try
    repl for var_name = "dph6" var_value with m.dph6
catch
endtry

try
    repl for var_name = "dph7" var_value with m.dph7
catch
endtry

dph1 = 1.00
dph2 = 1.10
dph3 = 1.15
dph4 = 1.21
dph5 = 1.20
dph6 = 1.99
dph7 = 1.99


IF m.issql
    tux(.t.,.t.,"food_set")
ENDIF 
DO clos_data 

