Группировка по статье затрат и по центру ответственности

Программирование на Атлантисе (VIP, FCOM, ARD), FastReport

Модераторы: m0p3e, edward_K, Модераторы

Ответить
Marisha_P
Местный житель
Сообщения: 232
Зарегистрирован: 10 ноя 2010, 13:49

Группировка по статье затрат и по центру ответственности

Сообщение Marisha_P »

Здравствуйте всем!
Подскажите, пожалуйста, как организовать цикл по маркеру в реестре счетов-фактур.
Маркер заполняется центрами ответственности выбранными из списка:
_loop schfact
{_loop spgrsch
{_loop pick //хранит статьи затрат
if(searchMarker(MyCOMarker, schfact.cotvpodr, MyCOMarkerInd))
{if (schfact.direct=1 and schfact.tipuser=7200)
{Ins_TmpTab(pick.crec, schfact.nrec, schfact.sum[3]); //Временная таблица для информации о счетах-фактурах
nextvisual;} //if
} //pick
} //spgrsch
} //schfact

А сам цикл вывода реестра счетов-фактур осуществляется следующим образом:
Rep._loop groupsch
{Rep._loop tmptab
{Rep._loop schfact
{ sNdogov:=Rep.basedoc.cdogovor
sNdoc:=Rep.basedoc.Nodoc
Summa_Do:=Rep.basedoc.Total
if (csch<>Rep.groupsch.nrec)
{csch:=Rep.groupsch.nrec;
Report.puteventbyid(feDoLoop, fcdogovor_sf);
if (getfirst tmpitog)=tsok
{Report.write('Статья затрат '+Rep.groupsch.kod+ ' Итого по группе: '+Rep.tmpitog.vsum,0);
itog_sum:=itog_sum+Rep.tmpitog.vsum;
}
}Report.puteventbyid(feDoLoop, fcschfact_sf);
Report.write(Rep.schfact.Nrec,0);
Report.write(Rep.schfact.DFACT,0);
Report.write(Rep.schfact.NUM,0);
Report.write(SNdogov,0);
Report.write(SNdoc,0);
Report.write(Round(Summa_Do,2),2);
Rep._loop soprhoz
sKatsopr:='';
{
Rep._loop katsopr
sKatsopr:=''
}
..........

Цикл сначала идет по статьям затрат, потом по центрам ответственности...
Ответить