my $updStr="select ARKET_CODE from envent where CODE='${vCode}';";
system (qq( select ARKET_CODE from envent where CODE='${vCode}';));
$command = qx[ select ARKET_CODE from envent where CODE='${vCode}'];