Суточный финансовый отчет

[stix]

в call.pl добавляем
sub Set_day_in_list

Код:

{
 my $hday="<select size=1 name=day>";
 $hday.="<option value=></option>";
 $hday.="<option value=$_>".($_+0)."</option>" for (1..31);
 $hday.="</select>";
 my $day=int $_[0];
 $hday=~s/=$day>/=$day selected>/;
 return $hday;
}

в report.pl добавляем

Код:

$Fday=int $F{day};

перед

Код:

$br2.'Для групп:'.$br2."<div id=grp>$out</div>".$br

вставляем так

Код:

&form('!'=>1,'#'=>1,&bold('Финансовый отчет за').$br."$day_list $mon_list $year_list".$br2.&submit_a('Показать').

или просто добавляем $day_list перед mon_list

далее после строки

Код:

&Error("Слева в меню отметьте группы, для которых необходимо сформировать отчет.",$tend) if $where_grp eq '';

добавляем

Код:

$year=$year_now;
$month=$mon_now;

if( $Fday )
{
   $month--;
   $time1=timelocal(0,0,0,$Fday,$month,$year);          # начало дня
   $time2=timelocal(59,59,23,$Fday,$month,$year);       # конец дня
   $time2++;
}else
{
   $month--;
   $time1=timelocal(0,0,0,1,$month,$year);              #  начало месяца
   if ($month<11) {$month++} else {$month=0; $year++}
   $time2=timelocal(0,0,0,1,$month,$year);              #  начало следущего месяца
}

строки:

Код:

$time1=timelocal(0,0,0,1,$Fmon-1,$Fyear); # начало месяца
if ($Fmon<12) {$mon=$Fmon; $year=$Fyear} else {$mon=0; $year=$Fyear+1}
$time2=timelocal(0,0,0,1,$mon,$year); # начало следущего месяца

закомментировать

должно получиться как в аттаче

дальше поправить мелочи.
вроде должно так работать, в перле не тру )

[Redmen]

+

[stix]

ой, забыл добавить сюда

Код:

$day_list=&Set_day_in_list;

вставить перед:

Код:

($mon_list,$mon_name)=&Set_mon_in_list($Fmon);

надо бы права уже править свои мессаги

[Jovani]

Код:

$Ftype=int $F{type}; # тип отчета
$Fyear=int $F{year};
$Fmon=int $F{mon};
$Fday=int $F{day}; #Првильно будет сюда дописать

[stix]

да, конечно.
у меня че-то с vim баги при копи-пасте.
а поправить посты не могу

[stix]

теперь надо бы вывести тоже самое в разделе платежи, чтобы по фильтрам категорий можно суммарную статистику глянуть

[vddav]

теперь надо бы вывести тоже самое в разделе платежи, чтобы по фильтрам категорий можно суммарную статистику глянуть

да да да!!) и еще б кол-во операций на вид платежа

[Jovani]

Есть проблема. При выборе за прошедшие месяцы, статистика постоянно показывает за текущий месяц.

[Jovani]

Точнее по дням предыдущую статистику показывает, а вот если выбрать любой предыдущий месяц(за весь месяц) показывает статистику текущего.

[stix]

ох, зря я сразу я писал сразу на форум быстрее, чем проверил )

там где:
$year=$year_now;
$month=$mon_now;

исправь на
$month=$Fmon;

[stix]

всмысле, чтобы было

$year=$year_now;
$month=$Fmon;


и для красоты, чтобы select у нас оставался на выбранном дне:
правим в report.pl

Код:

$day_list=&Set_day_in_list($Fday);

[stix]

блин, куда я спешу писать )

конечно же вот так нужно, чтобы было

Код:

$year=$Fyear;
$month=$Fmon;

дайте права модера )))

[Jovani]

Все нормально сейчас... Спасибо.