Добрый  день всем. Вопрос  избитый , и по нему  частично были  ответы  в других ветках. Но хотелось бы обобщить, так  сказать ....
Есть Интерфейс пересчета сальдовых и текущих остатков 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   учесть   их  все ?
В моем случае,   необходимо пересчитать  сальдовые   по  складскому   учету + производство  с даты  закрытия   периода  +  расчитать  текущие  без снятия просроченных резервов .
как  добавить сюда пересчет текущих остатков  ?
			
			
									
						
										
						Пересчет сальдовых и текущих остатков
Модераторы: m0p3e, edward_K, Модераторы
- 
				edward_K
- Заслуженный деятель интернет-сообщества
- Сообщения: 5189
- Зарегистрирован: 29 мар 2005, 17:49
- Откуда: SPB galaxy spb
Re: Пересчет сальдовых и текущих остатков
Пересчет резервов идет так
Для пересчета текущих остатков и резерва используйте из L_Ostatki
RunInterface('TekSRas', Cur_Date, 1, 0);
или просто
RunInterface('RasTek1')
Перед этим можете набить Pick с wList =7
			
			
									
						
										
						Код: Выделить всё
#include CalcRes.vih
interface ....
#include CalcRes.var
 oCalcRes.CalcReserv(dFor, whatCalc = 1, TRUE)
RunInterface('TekSRas', Cur_Date, 1, 0);
или просто
RunInterface('RasTek1')
Перед этим можете набить Pick с wList =7