Dim riqi
dim riqijiu
set riqijiu = hmiruntime.tags("riqijiu")
dim myid1
set myid1 = hmiruntime.tags("flag")
myid1.read
if flag.value =1 then
riqi=cstr(year(now))&"-"cstr(month(now))&"-"&cstr(day(now))
riqijiu.write ""&riqi&""
dim ua_jiu_id
set ua_jiu_id = hmiruntime.tags("@ua_jiu_id")
dim ua_jiu_jop
set ua_jiu_jop = hmiruntime.tags("@ua_jiu_jop")
ua_jiu_id.read
ua_jiu_id.write -1
ua_jiu_job.read
ua_jiu_job.write 6
end if