Current File : //data/www_bck/varak.net_bck/nextcloud.varak.net/data/monami/files/Programy/vet/VET/j.PRG
if .krizek5.Value=1
if .not. empty(.Pol_SplatOd.Value) .and. .Not. empty(.Pol_SplatDo.Value)
if .not. empty(lctext)
lctext=lctext+" AND "
else
lctext="("
EndIf
set date to british
=setCent(.T.)
lctext=lctext+"BETWEEN("+.tabulka+"DATSPL,{"+alltrim(dtoc(.Pol_SplatOd.Value))+"},{"+alltrim(dtoc(.Pol_SplatDo.Value))+"})"
set date to (lcdat)
=setCent(.F.)
Ovl.podminkaSest=Ovl.podminkaSest+" Datum splat.=("+alltrim(dtoc(.Pol_SplatOd.Value))+".."+alltrim(dtoc(.Pol_SplatDo.Value))+")"
Endif
EndIf
if .krizek5.Value=1
if .not. empty(.Pol_DatOd.Value) .and. .Not. empty(.Pol_DatDo.Value)
if .not. empty(lctext)
lctext=lctext+" and "
else
lctext="("
EndIf
set date to british
=setCent(.T.)
lctext=lctext+"(convert(datetime,convert(char(10),"+.tabulka+".Datum,103),103) BETWEEN CONVERT(datetime,'"+alltrim(dtoc(.Pol_DatOd.Value))+"',103) and convert(datetime,'"+alltrim(dtoc(.Pol_DatDo.Value))+"',103))"
* lctext=lctext+"(convert(datetime,convert(char(10),Datum,103),103) BETWEEN CONVERT(datetime,'"+alltrim(dtoc(.Pol_DatnavOd.Value))+"',103) and convert(datetime,'"+alltrim(dtoc(.Pol_DatnavDo.Value))+"',103))"
ovl.podminkasest=ovl.podminkasest+" Datum od "+dtoc(.Pol_DatOd.Value)+" do "+dtoc(.Pol_DatDo.Value)
set date to (lcdat)
=setCent(.F.)
Endif
EndIf
*****
Mini Shell