Пересчет сальдовых и текущих остатков

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

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

Ответить
Lar
Сообщения: 16
Зарегистрирован: 01 июл 2013, 13:42
Откуда: РБ, Минск

Пересчет сальдовых и текущих остатков

Сообщение Lar »

Добрый день всем. Вопрос избитый , и по нему частично были ответы в других ветках. Но хотелось бы обобщить, так сказать ....
Есть Интерфейс пересчета сальдовых и текущих остатков L_SKLAD::CountSal

нужно реализовать пересчет сальдовых и текущих остатков по выбранным МЦ .

Function CountMC(pcMC: comp; pwSkPr, pwTypeCalc: word; pdDateCalc: date): boolean;

есть работающий вариант вида iCountSal.CountMC(tmpTBL.cMC, 0, 2, pdDateCalc)
работает в цикле по своей таблице с отобранными нреками ...

Вопрос в следующем ...

В интерфейсе есть параметры пересчета :
1) группа чекбоксов ( складской учет, производство, ремонт, строительство)
2) группа переключателей даты ( сдаты первого ордера, с заданной даты, с даты закрытия периода)
3) чекбокс расчета текущих остатков ( не снимая просроч. резервы и снимая просроченные резервы)
4) фильтр по мц (помеченные записи)

КАК в параметрах функции CountMC учесть их все ?

В моем случае, необходимо пересчитать сальдовые по складскому учету + производство с даты закрытия периода + расчитать текущие без снятия просроченных резервов .

как добавить сюда пересчет текущих остатков ?
edward_K
Заслуженный деятель интернет-сообщества
Сообщения: 5184
Зарегистрирован: 29 мар 2005, 17:49
Откуда: SPB galaxy spb

Re: Пересчет сальдовых и текущих остатков

Сообщение edward_K »

Пересчет резервов идет так

Код: Выделить всё

#include CalcRes.vih
interface ....
#include CalcRes.var

 oCalcRes.CalcReserv(dFor, whatCalc = 1, TRUE)
Для пересчета текущих остатков и резерва используйте из L_Ostatki
RunInterface('TekSRas', Cur_Date, 1, 0);
или просто
RunInterface('RasTek1')
Перед этим можете набить Pick с wList =7
Ответить