~;
my $t;
$sql="select Code,NameR from ok where Code like '[1-9][1-9]0000[1-9]' or code like '[1-9]0000[1-9]' or code=3400000 or code like '_0000_' or code=4000004 order by namer";
$RS=$Conn->Execute($sql);
while(!$RS->EOF)
{
$t=$RS->Fields('NameR')->value;
$t=lc $t;
$t=ucfirst $t;
$Rubr{$RS->Fields('Code')->value}=$t;
push @keys_rubr,$RS->Fields('Code')->value;
$RS->MoveNext();
}
$RS->Close;
my($s,%Count,$tt,$tt1);
foreach $s (@keys_rubr)
{
if($s=~/^(\d\d)\d{5}$/)
{
$tt="${1}00000";
$tt1=($1+1)."00000";
}
elsif($s=~/^(\d)\d{5}$/)
{
$tt="${1}00000";
$tt1=($1+1)."00000";
}
$sql="SELECT count(Code) FROM GoodsServices WHERE OK>=$tt AND OK<$tt1"; # LIKE '${1}%'
$RS=$Conn->Execute($sql);
if(!$RS->EOF)
{
$Count{$s}=$RS->Fields(0)->value;
}
$RS->Close;
}
$Conn->Close;
$Conn->{Nothing};
my($i,$n);
$n=int($#keys_rubr/2);
$n+=1 if ($#keys_rubr-$n*2)>0;
for($i=0;$i<=$n;$i++)
{
print "";
print "| $Rubr{$keys_rubr[$i]} ($Count{$keys_rubr[$i]}) | ";
print " ";
}
print " | ";
for($i=$n+1;$i<=$#keys_rubr;$i++)
{
print "";
print "| $Rubr{$keys_rubr[$i]} ($Count{$keys_rubr[$i]}) | ";
print " ";
}
print " |
";
print qq~
Информационная поддержка и дизайн © RSoft, Ltd.